PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 25 → WD - Trabalhando/Lendo e Gravando dados no Resgistro do Windows (REGEDIT)
WD - Trabalhando/Lendo e Gravando dados no Resgistro do Windows (REGEDIT)
Iniciado por Boller, out., 28 2015 2:28 PM - 2 respostas
#1
Membro registado
4.520 mensagems
Publicado em outubro, 28 2015 - 2:28 PM
//Exemplo de como acessar dados do registro do Windows

sBaseBoardManufacturer, sBaseBoardProduct, sBaseBoardVersion, sBIOSReleaseDate, sBIOSVendor, sBIOSVersion, sSystemFamily, sSystemManufacturer is string = ""

ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS")

ResExist2 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0")

IF ResExist1 = True AND ResExist2 = True

sBaseBoardManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer", True)
sBaseBoardProduct = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct", True)
sBaseBoardVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardVersion", True)
sBIOSReleaseDate = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSReleaseDate", True)
sBIOSVendor = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVendor", True)
sBIOSVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVersion", True)
sSystemFamily = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemFamily", True)
sSystemManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", True)

EDT_Pais = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", True)

EDT_Processador = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", True)

EDT_Placa_Mae = sBaseBoardManufacturer +" - "+ sBaseBoardProduct +" - "+ sBaseBoardVersion +" - "+ sBIOSReleaseDate +" - "+ sBIOSVendor +" - "+ sBIOSVersion +" - "+ sSystemFamily +" - "+ sSystemManufacturer

Windows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", True)

SerialWindows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "BuildGUID", True)

EDT_Version_Windows = Windows +" - "+ SerialWindows +" - "+ SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +" - "+ SysWindowsVersion(sysVersionInfo) +" - "+ SysWindowsVersion(sysVersionNumber) +" - "+ SysWindowsVersion(sysVersionPlatform)

END


--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
#2
Membro registado
4.520 mensagems
Publicado em outubro, 28 2015 - 2:29 PM
//Marca_Modelo_Placa_de_Rede
ResExist3 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist3 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo = Achou
EDT_Placa_de_Rede_ServiceName = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END

END


--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
#3
Membro registado
4.520 mensagems
Publicado em outubro, 28 2015 - 2:31 PM
//Cria ou verifica se existe as Chaves no Registro do Windows

bResCreateKey01 is boolean = RegistryCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT")

bResCreateKey02 is boolean = RegistryCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT\WEBDEV")
bCHAVE_WB is boolean = RegistrySetValue("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT\WEBDEV", "WB"+Length(EDT_Serial_Webdev), EDT_Serial_Webdev)

bResCreateKey03 is boolean = RegistryCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT\WINDEV")
bCHAVE_WD is boolean = RegistrySetValue("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT\WINDEV", "WD"+Length(EDT_Serial_Windev), EDT_Serial_Windev)

bResCreateKey04 is boolean = RegistryCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT\WINDEVMOBILE")
bCHAVE_WM is boolean = RegistrySetValue("HKEY_LOCAL_MACHINE\SOFTWARE\PCSOFT\WINDEVMOBILE", "WM"+Length(EDT_Serial_WindevMobile), EDT_Serial_WindevMobile)

//INFO(bCHAVE_WB,bCHAVE_WD,bCHAVE_WM)
IF bCHAVE_WB = True OR bCHAVE_WD = True OR bCHAVE_WM THEN
Info("Open Wx")
END


--
Adriano Jose Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
______________________________________________
→ Voltar para WINDEV 25