Registry Eintrag optimieren?

[AlexII]

Hallo, ich hab folgenden Code um meine Freeware in den Autostart der Registry einzutragen:

Delphi-Quellcode:

procedure TForm1.Autostartein1Click(Sender: TObject);
begin
  // Anwendung in die Registry aufnehmen...
  DoAppToRun('Programm', ExtractFilePath(ParamStr(0)) + 'MyProgramm.exe');
  Autostartaus1.Checked:=False;
  Autostartein1.Checked:=True;
end;

Wie kann ich diesen ändern, dass der Name der exe-Datei automatisch ermittelt und in die Registry eingetragen wird. Denn mit meinem Code darf der Nutzer den Namen der exe-Datei nicht ändern, sonst funktioniert dann das ganze nicht.

[worker]

ParamStr(0) bringt Dir doch schon Deinen Exe-Namen mit.

[DeddyH]

Schau Dir ParamStr(0) mal ganz genau an

[edit] Mist, um Sekunden zu spät [/edit]

[omata]

DoAppToRun('Programm', ParamStr(0));

[AlexII]

Ich versuch mal....

[AlexII]

Vielen Dank, es funkt