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
 
 