由窗口句柄获得对应可执行文件名

摘　要：由窗口句柄获得对应可执行文件名
关键字：句柄
类　别：系统控制


下面这个函数将根据窗口句柄参数返回相应程序的可执行文件名和路径。

function GetAppName(hwindow: HWND): string;
var
  h : HMODULE;
begin
  SetLength(Result, 100);
  h:=GetClassLong(hwindow, GCL_HMODULE);
  GetModuleFileName(h, PChar(Result), 100);
end;


用法： ShowMessage(GetAppName(FindWindow('notepad.exe', nil)));