ich stell mich mal wieder zu blöd an. Ich schaffe es nicht einen simplen Reg-Eintrag zu löschen.
Code: Alles auswählen
Procedure.i _Autostart_aktivieren(iStatus.i = #True)
Protected lKey.l = #HKEY_CURRENT_USER ; oder #HKEY_LOCAL_MACHINE für alle Benutzer
Protected sPfad.s = "Software\Microsoft\Windows\CurrentVersion\Run"
Protected sEintrag.s = "Zeitserver_CLIENT"
Protected sWert.s = Chr(34) + ProgramFilename() + Chr(34)
Protected lCurKey.l = 0
; Registrieeintrag erstellen (oder löschen)
If iStatus
RegCreateKey_ (lKey, @sPfad, @lCurKey)
RegSetValueEx_ (lCurKey, @sEintrag, 0, #REG_SZ, @sWert, StringByteLength(sWert))
Else
RegOpenKey_ (lKey, @sPfad, lCurKey)
RegDeleteKeyValue_ (lKey, @sWert, @sEintrag) ; --> geht nicht???
EndIf
RegCloseKey_(lCurKey)
ProcedureReturn 0
EndProcedure
viele Grüße,
SBond

