DELPHI 获取系统当前活动窗口的句柄及对应的进程名


本文整理自网络,侵删。

 // 下面的GetProcessNameById函数如下

uses TLhelp32;
function GetProcessNameById(const AID: Integer): String;
var     
h:thandle;     
f:boolean;     
lppe:tprocessentry32;
begin     
Result := '';     
h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);     
lppe.dwSize := sizeof(lppe);     
f := Process32First(h, lppe);     
while integer(f) <> 0 do     
begin       
if Integer(lppe.th32ProcessID) = AID then       
begin         
Result:= StrPas(lppe.szExeFile);         
break;       
end;       
f := Process32Next(h, lppe);     
end;
end;


var
  wnd: HWnd;
  title: array[0..MAX_PATH] of char;
  formH: HWND;
  dwProcessID: DWORD;
  s: string;
  menu_string: string;
  group_string: string;
begin

  formh := GetForegroundWindow;//获得当前活动窗口句柄
  GetWindowThreadProcessId(formH, dwProcessID); //通过活动窗口句柄获取对应的进程ID
  s := GetProcessNameById(dwProcessID);// GetProcessNameById函数如下

                                                                 //通过上面得到的进程ID得到对应的进程名称,这里也就得到了当前系统处于活动状态的进程名称

end;

相关阅读 >>

Delphi winsock 域名获取远程服务器ip

Delphi playsound(); 停止播放

Delphi mscomm1自动获取串口

Delphi webbrowser1 读取当前页面字体大小

Delphi打印timage图片

Delphi 如何把一个exe做为res加入到dll中,并在运行时生成exe文件执行

Delphi开机启动项管理源码

Delphi cxgrid:动态设计统计功能

Delphi xe10实现移动端支付宝、微信支付接口

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...