本文整理自网络,侵删。
引用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 用 directshow 获取本机的视频摄像设备列表
Delphi xe8中的正则表达式提取日语(平假名,片假名,汉字)
Delphi tgifimage:timage显示gif动画
Delphi setfileattributes 功能:修改文件属性
更多相关阅读请进入《Delphi》频道 >>