EXE-/Modulname aus Fensterhandle ermitteln

[c113plpbr]

Zitat von Olli:

GWL_HINSTANCE und GetWindowLong() sind deine Freunde. Hilft allerdings nicht viel, weil das Instanzenhandle in deinem Prozess vermutlich genau deine EXE identifiziert.

Dazu gibts ja eigentlich GetModuleFilenameEx, allerdings akzeptiert das dieses Handle nicht ... warum auch immer ... daher empfehle ich die untenstehende lösung ...

Zitat von Marphy:

Habe ich auch schon versucht, funktioniert aber irgendwie nicht

Seltsam ... na dann probier mal das:

Delphi-Quellcode:

uses PsApi;

(*...*)

var
  hwnd_ : HWND;
  PID : Cardinal;
  hProc : Cardinal;
  Buffer : array[0..MAX_PATH - 1] of Char;
  modules : array of HModule;
  modulecount : cardinal;
begin
  hwnd_ := FindWindow('Notepad', nil);

  GetWindowThreadProcessId(hwnd_, PID);
  hProc := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PID);

  EnumProcessModules(hProc, nil, 0, modulecount);
  SetLength(modules, modulecount div SizeOf(HModule));
  EnumProcessModules(hProc, PDWord(@modules[0]), modulecount, modulecount);

  GetModuleFilenameEx(hProc, modules[0], @Buffer[0], MAX_PATH);

  ShowMessage(string(Buffer));

  CloseHandle(hProc);
end;

Is natürlich auch wieder NT-only ... aber wenn das auch ned funktioniert, dann schau mal, ob es nicht von irgendwas geblockt wird ... z.B. ZoneAlarm tut das manchmal ganz gern ... ^^

Und unter 9x-Systemen solltest du über GetWindowThreadProcessId die PID rausfinden können, und über CreateToolhelp32Snapshot, Process32First & Process32Next sämtliche Prozesse auflisten können. Du müsstest dann nurnoch die PID's vergleichen, und wenn du dann die richtige gefunden hast, einfach in szExeFile den Namen nachschauen ...

ciao, Philipp