Mein Programm beim Windowsstart Automatisch starten

[MiniKeks]

Wie geht das?

Gruss MiniKeks


PS: Der andere Thread bitte löschen, da im falschen Forum. Danke!

[Nightshade]

Entweder eine Verknüpfung ins Autostart-Verzeichniss (Startmenu) oder

in die Registry :

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run"

[MiniKeks]

Ich blick das ned durch, kann mir jemand mal schnell was coden? danke¨!

[arbu man]

Delphi-Quellcode:

uses Registry;
var  regist:tregistry;

Aufruf

Delphi-Quellcode:

regist:=tregistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
regist.WriteString('Prog',application.ExeName);

[Nightshade]

Delphi-Quellcode:

uses Registry;

procedure AddToAutoStart(KeyName, Filename : string);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
  Reg.WriteString(KeyName, Filename);
  Reg.Free;
end;

procedure RemoveFromAutoStart(KeyName: string);
var
  Reg : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
  Reg.DeleteValue(KeyName);
  Reg.Free;
end;

[Edit] Zu langsam [/Edit]

[Matze]

Nächstes Mal bitte suchen. Die Code-Library enthält schon sehr viele nützliche Tipps: [cl]"Autostart"[/cl]