Página 1 de 1

TRegistry

Publicado: Dom Sep 13, 2009 1:02 am
por jrcsistemas
Hola. Antes que nada. Gracias a Jesus Semper por su ayuda.
Necesito un ejemplo de uso de TRegistry.
Deseo obtener los datos desde.
HKEY_LOCAL_MACHINE->HARDWARE->DESCRIPTION->System->SystemBiosDate y
SystemBiosVersion
Usando TRegistry:GetString y :GetDate como lo hago?
Como le indico el camino hasta llegar a SystemBiosDate ?
Gracias
Juan Castañeda

TRegistry

Publicado: Lun Sep 14, 2009 12:18 am
por notengo
Juan,
> Necesito un ejemplo de uso de TRegistry.
Lo he escrito al vuelo y no lo he probado por lo que quizás necesite alguna
corrección:
WITH OBJECT TRegistry():New()
:Root := HKEY_LOCAL_MACHINE
IF :OpenKey( "HardwareDescriptionSystem" )
cBiosDate := :GetString( "BiosDate" )
cBiosVersion := :GetString( "BiosVersion" )
:CloseKey()
ENDIF
END
Saludos,
José Lalí­n

TRegistry

Publicado: Lun Sep 14, 2009 1:31 pm
por jrcsistemas
Gracias José.
Juan Castañeda