Dateiname einer Anwendung wenn sie aktiviert wird....

[glkgereon]

Hi,

hmm...is was schwer zu erklären

also ich möchte dass sich der User den Dateinamen einer beliebigen (laufenden) Anwendung angucken kann.
Das sollte imho so funktionieren:

Delphi-Quellcode:

procedure TForm_Settings.Chb_GetNextActiveWindowClick(Sender: TObject);
var H: HWND;
begin
  if not Chb_GetNextActiveWindow.Checked then
    begin //Zum Abbrechen
    H:=0;
    Exit;
    end;

  H:=Application.Handle;
  while H=Application.Handle do
    begin //Solange Eigenes Prog Aktiv
    if H=0 then Exit; //Abbruch
    Delay(250); //Codelib -> "Delay revisited"
    H:=GetActiveWindow;
    end;

 
  ShowMessage(GetProcessCmdLine(H)); //Aus der CodeLib

  Chb_GetNextActiveWindow.Checked:=False;
end;

tut es aber nicht
Die Showmessage ist einfach leer.
ist GetProcessCmdLine einfach das falsche?
oder ist GetActiveWindow die falsche wahl?
oder ist mein ganzes Prinzip für die Tonne?