Allerdings versteh ich das ganze nich ! Wie zum Henker bekomm ich die Procedure so hin das diese auch unter Windows 8 meine Einträge in die Registry schreibt ?? Vielleicht hat ja jemand mehr Ahnung !
Code: Alles auswählen
Procedure.l SetValueEx(topKey.l, sKeyName.s, sValueName.s, lType.l, vValue.s)
lValue.l
sValue.s
Select lType
Case #REG_SZ
sValue = vValue
size.l = Len(sValue)
RegCreateKey_(topKey,sKeyName,@hKey)
SetValueEx = RegSetValueEx_(hKey, sValueName, 0, #REG_SZ, @sValue, size)
Case #REG_DWORD
lValue = Val(vValue)
SetValueEx = RegSetValueEx_(hKey, @sValueName, 0, #REG_DWORD, @lValue, 4)
EndSelect
ProcedureReturn SetValueEx
EndProcedure
setvalueex(#HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run","XBMC",#REG_SZ,"1")



