Also hab jetzte mal rumprobiert... nur löscht er mir die Einträge nich wieder aus der Registry!?
Hier mal mein Code:
Aufruf der Prozeduren:
Delphi-Quellcode:
procedure Tfrm_einstellungen.Checkbox6Click(Sender: TObject);
begin
if Checkbox6.Checked=true
then begin
DoAppToRunOnce('SmSo_Terminplaner',ExtractFilePath(Application.ExeName)+'terminplaner.exe');
end else
if IsAppInRunOnce('SmSo_Terminplaner')=true then ShowMessage('Existiert');
DelAppInRunOnce;
begin
end;
end;
Prozedur zum Eintragen:
Delphi-Quellcode:
procedure DoAppToRunOnce(RunName, AppName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
WriteString(RunName,AppName);
CloseKey;
Free;
end;
end;
Prozedur zum löschen:
Delphi-Quellcode:
procedure DelAppInRunOnce;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
Reg.DeleteValue('SmSo_Terminplaner');
Reg.Destroy;
end;
Könnt ihr mir helfen - bestimmt, oder?