如何通过窗体句柄获取程序路径

Question

我是这样的到窗体句柄的   
  var   
      hwnd:   THandle;   
  hwnd   :=   Findwindow('aaa',   nil);   
  我如何通过   hwnd得到程序的路径
请问如何得到程序aaa的完全路径,谢谢了!

Answer 1

uses PSAPI
function GetPath(hWnd:HWND):string;
var hProcessID, hProcess: THandle;
    hMod: HMODULE;
    Size: DWORD;
    Buf: array[0..255] of char;
begin
  GetWindowThreadProcessId(hWnd, @hProcessID);
  hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, hProcessID);
  EnumProcessModules(hProcess, @hMod, SizeOf(hMod), Size);
  GetModuleFileNameEx(hProcess, hMod, Buf, SizeOf(Buf));
  CloseHandle(hProcess);
  Result:= StrPas(Buf);
end;