Hi,
mach mal das
Reg.Destroy;
weg und schreib stattdessen ein
Reg.CloseKey;
hin.
Der komplette Code einmal (ein bissle verbessert):
Delphi-Quellcode:
if Checkbox1.Checked then
begin
try
reg := TRegistry.Create;
reg.rootKey := HKEY_LOCAL_MACHINE; // besser wäre HKEY_CURRENT_USER!
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True)
reg.WriteString('SPM','C:\Programme\SPM-APPS\bar.exe');
reg.CloseKey;
finally
reg.Free;
end else
begin
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE; // besser wäre HKEY_CURRENT_USER!
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
reg.DeleteValue('SPM');
reg.CloseKey;
finally
reg.free;
end;
close;
end;
mfG
mirage228
David F.