Programm öffnen und Handle erhalten

[Helmi]

Hallo,

wie man ein Programm öffnet weiss ich ja:

Delphi-Quellcode:

procedure OpenFile(FileName: string);
var
  c: array[0..800] of Char;
begin
  StrPCopy(c, FileName);
  ShellExecute(Application.Handle, 'open', c, nil, nil, SW_NORMAL);
end;

Nur wie bekomm ich nun das Handle des geöffneten Programmes zurück?