Von Fensterhandle auf EXE-Pfad + Dateiname schließen

[mumu]

ich schaffe es mit folgendem Code von einem Fensterhandle auf die zugehörige Exe-Datei zu schließen.

Delphi-Quellcode:

function hGetWindowModuleFileName(const hSrcWnd: HWND): string;
var
  Data :TProcessEntry32;
  hID  :DWord;
  Snap : Integer;
  Done : boolean;
  ExeName : string;
begin
  Result := '';
  try
    GetWindowThreadProcessId(hSrcWnd,@hID);
    Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
    Done:=false;
    ExeName := '';
    try
      Data.dwSize:=SizeOf(Data);
      if(Process32First(Snap,Data))then
      begin
        repeat
          if Data.th32ProcessID=hID then
          begin
            ExeName:= StrPas(Data.szExeFile);
            Done:=true;
          end;
        until Done or not(Process32Next(Snap,Data));
      end;
    finally
      Windows.CloseHandle(Snap);
    end;
    result := ExeName;
  except
  end;
end;

wie bekomme ich es aber hin den kompletten Pfad der EXE auszulesen (über ein bestimmtes Fensterhandle)?

[NicoDE]

Ab Windows XP steht die Funktion GetProcessImageFilename zur Verfügung.
Alternativ könnte man den Namen aus dem ersten Eintrag eines Snapshots der Module auslesen - allerdings ist das mit Vorsicht zu genießen, da zum Beispiel die VMware Tools unter Windows 9x noch vor der Exe eine DLL laden und diese als erstes Modul auftaucht...

[mumu]

hmm mich nur auf Windows xp zu stützen ist leider zu wenig. das ganze müsste ziemlich unter jedem Betriebssystem funktionieren.

ich hab folgendes gefunden:
get_exe_path_from_window_handle

funktioniert soweit ohne probleme innerhalb einer EXE-Datei. Wenn ich es jedoch in meine DLL integrier, dann stürzt diese ab...

könnte mir jemand sagen, was ich hier beachten muss, wenn ich das ganze in ne DLL integrier.

vielen dank schonma

[NicoDE]

Eigentlich brauchst du in deinem Code nur den Process mit den entsprechenden Rechten öffnen und GetModuleFileNameEx aufrufen...

[mumu]

jo vielen dank. fehler lag ganz wo anders. funktioniert perfekt. thx!