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