[F] Eigenes Programm in Autostart schreiben
Hallo ich will mein Programm mit
Code:
procedure TForm1.FormCreate(Sender: TObject);
var regist : tregistry;
begin
regist:=tregistry.create;
regist.rootkey:=HKEY_CURRENT_USER;
regist.openkey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
regist.writestring('{Name}','{Dateipfad}');
regist.closekey;
regist.destroy;
end;
in den Autostart einzutragen. Wenn ich einen bekannten Pfad eintrage funktioniert das auch. Allerdings soll das Programm in der Lage sein seinen aktuellen Pfad selbst zu ermitteln und entsprechend einzutragen, hat jemand ne Idee wie man das realisieren kann?