Dateiname von einem Fensterhandle ermitteln

[Hobby-Programmierer]

Moin ...,
wie kann ich anhand eines Fensterhandle zb.

Delphi-Quellcode:

WndHandle:= GetForegroundWindow;

den Dateinamen und Pfad der jeweiligen Anwendung ermitteln?
Trotz stundenlanger Suche im Net und der SuFu habe ich bisher keine Lösung gefunden. Vielleicht gebe ich auch einfach nur die falschen Suchbegriffe ein :gruebel:

Danke schonmal ...

[Luckie]

Mit GetWindowThreadProcessId die ProzessID zum Fenster ermitteln und dann alle Prozesse durchgehen und gucken zu welchem Prozess die ID gehört.

[Aphton]

Hier, viel Vergnügen damit:

Delphi-Quellcode:

function GetFilenameByHandle( const hWnd: DWord ): String;
var
  PID, hSnapshot: DWord;
  ME32: TModuleEntry32;
begin
  Result := '';
  GetWindowThreadProcessId( hWnd, PID );
  hSnapshot := CreateToolhelp32Snapshot( TH32CS_SNAPMODULE, PID );
  if not(hSnapshot = INVALID_HANDLE_VALUE) then
  begin
    try
      ME32.dwSize := SizeOf( ME32 );
      if Module32First( hSnapshot, ME32 ) then
        Result := ME32.szExePath;
    finally
      CloseHandle( hSnapshot );
    end;
  end;
end;

EDIT:
"tlHelp32" sollte noch eingebunden werden

MfG

[Hobby-Programmierer]

:thumb: Super und ein grosses Dankeschön Euch beiden!
Vielleicht wäre die Funktion von Aphton ja etwas für die Codelib.

[himitsu]

[edit] war blöd