Dateiname von einem Fensterhandle ermitteln

[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