Hi Chris,
ich hab das jetzt mal so gemacht:
Zitat von
Christian Seehase:
Delphi-Quellcode:
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True) then begin
try
Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
finally
Reg.CloseKey;
end;
end;
finally
Reg.Free;
end;
end;
weil es mir logisch und sinnvoll erscheint. Aber leider kommt die ursprüngliche Fehlermeldung, was bei
Delphi-Quellcode:
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.WriteString('TempCleaner','"' + ParamStr(0) + '" ' + ParamStr(1) + ' "' + ParamStr(2) + '"');
Reg.CloseKey;
except
end;
Reg.Free;
end;
nicht der Fall ist.