怎么通过窗体句柄获取程序路径

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

[解决办法]
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;