Verfasst: 01.08.2007 17:59
Statt Declare aber besser Define, ich war schon wieder bei einem anderen Dialekt 

Code: Alles auswählen
HKEY = #HKEY_CURRENT_USER
key.s = "lalalala\"
Repeat
Value.s = JHRegListSubValue(HKEY.l,key.s, i.l)
If Value
content.s = JHRegGetString(HKEY, key, Value)
If content
If Not RegistryAvailable(HKEY, Value)
debug "-----"
debug HKEY
debug key
debug Value
debug content
EndIf
EndIf
EndIf
i+1
Until Not Value
Code: Alles auswählen
If RegOpenKeyEx_(#HKEY_CURRENT_USER, "Software\Easy_Termin", 0, #KEY_ALL_ACCESS, @hKey) = #ERROR_SUCCESS
Debug "passt"
EndIf
lpcdata= (255*SizeOf(Character)) + 1
Inhalt.s = Space(255)
ValueName$ = "nfm.dat"
If RegQueryValueEx_(hKey, valueName$, 0,0, @Inhalt, @lpcdata) = #ERROR_SUCCESS
Debug Inhalt
Debug lpcdata
EndIf