Moin Trouble Maker,
zu Deinen Code Schnipseln fällt mir 'ne ganze Menge ein:
Zum einen warum es nicht funktioniert:
Vermutlich befindet sich im Programmpfad ein Leerzeichen. Du müsstest nicht paramstr(0) in den Key schreiben, sondern '"'+paramstr(0)+'"'.
Dann vermisse ich in den ersten beiden Abschnitten die Freigabe des Reg Objektes und überall das Schliessen des Keys. (try/finally Blöcke wären auch gut)
Als nächstes prüfst Du nirgends, ob das was Du da gemacht hast auch funktioniert hat. Ob ein OpenKey den Key überhaupt geöffnet hat wird nicht geprüft, und dank Deines Try/Except Blockes würde auch nie eine
Exception in diesem Bereich auffallen.
Ausserdem kannst Du leicht unnötigen Code vermeiden:
Der letzte Abschnitt könnte auch so aussehen:
Delphi-Quellcode:
procedure TForm1.CheckBox1Click(Sender: TObject);
var Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
try
if CheckBox1.Checked then begin
Reg.WriteString('Security-Tool.exe', '"'+ParamStr(0)+'"');
end else begin
Reg.DeleteValue('Security-Tool.exe');
end;
finally
Reg.CloseKey;
end;
end;
finally
FreeAndNil(Reg);
end;
end;
Aufpassen solltest Du noch beim Zuweisen eines Wertes an CheckBox.Checked, denn hierdurch wird ein OnClick Ereignis ausgelöst.