Code: Select all
hKey.l
OpenConsole()
Str.s = "Software\Microsoft\WindowsNT\CurrentVersion"
RetCode.l = RegOpenKeyEx_(#HKEY_LOCAL_MACHINE, @Str, 0, #KEY_READ, @hKey)
If RetCode = #ERROR_SUCCESS
PrintN("Opened OK")
Else
PrintN("Failed")
EndIf
RegCloseKey_(hTestKey)
Input()
CloseConsole()
Tony