如何通过句柄取得程序EXE路径,下面的方法可以实现:
在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;

调用的方式：label1.Caption:=GetPath(findwindow(nil,'计算器'));
[本文来自: 学Delphi网(http://www.xuedelphi.com/) ]详细出处参考：http://www.xuedelphi.com/article/html2010/2007122311491057.html