Wie kann man nen externes Programm im Hintergrund starten

[Delphi Star]

Ich möcht ne Delphi-Anwendung schreiben, die nen externes Programm im Hintergrund startet
Wichtig: Das externe Programm liegt im selben Ordner wie die Delphi-Anwendung, ich möchte das man in der Delphi-Anwendung keinen Pfad für das externe Programm angeben muss weil der Ordner in dem es liegt nicht immer gleich ist. Außerdem möcht ich noch das das externe Programm mit Parametern gestartet werden kann.

[gekmihesg]

Delphi-Quellcode:

uses ..., ShellApi;
...
Shellexecute(Handle,nil,PChar(Extractfilepath(paramstr(0)+'datei.exe'),
  '-Parameter',nil,SW_HIDE);

[Delphi Star]

Es funzt