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

本文整理自网络，侵删。

  
引用PsAPI

var
  h:HWND;
  pid: Cardinal;
  pHandle: THandle;
  buf: array[0..MAX_PATH] of Char;
begin
  h:=GetForegroundWindow; //获取当前激活的窗体句柄
  GetWindowThreadProcessId(h, @pid); //通过句柄获取其进程ID
  pHandle := OpenProcess(PROCESS_ALL_ACCESS, False, pid);//通过进程ID获取进程句柄
  GetModuleFileNameEx(pHandle, 0, buf, Length(buf));//通过进程句柄获取其模块路径
  CloseHandle(pHandle);
  Edit1.Text:= buf;
end;


把它放进一个Timer里，半秒获取一次。。。
 

相关阅读 >>

Delphi结构，字符串和指针

Delphi 在windows右键菜单中加上关联

Delphi中使用tlist类的简单分析

Delphi 检测进程是否存在函数

Delphi启动屏幕保护

Delphi使用mcisendstring播放背景音��

8086 汇编指令手册查询

Delphi执行sql提示“不正常地定义参数对象”，“提供了不一致或不完整的信息”错误

Delphi xe 泛型数组和splitstring处理数据

Delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 通过程序窗体句柄获取程序路径