Delphi通过进程名获取进程PID函数

本文整理自网络，侵删。

 
uses TLhelp32;

Function GetPID(_GetPID:String):String;
var
     h:thandle;
     f:boolean;
     lppe:tprocessentry32;
begin
     h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);
     lppe.dwSize := sizeof(lppe);
     f := Process32First(h, lppe);     //lppe.szExeFile是进程的名字，自己挑选你要的
     //lppe.th32ProcessID就是你要的进程号
     while integer(f) <> 0 do
     begin
       //if lppe.szExeFile=‘QQ.exe‘ then showmessage(‘ok‘);
       if lppe.szExeFile = _GetPID then
       begin
         Result:=(inttostr(lppe.th32ProcessID));
         break;
       end;
       f := Process32Next(h, lppe);
     end;
end;
 

相关阅读 >>

Delphi中使用spcomm来实现串口通讯

Delphi 不管什么datetime日期格式时间格式转换都不会错了

Delphi xe5 for android 地理定位gps

Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi 一行关键代码阻止360云查杀

Delphi 从 twebbrowser中获得当前输入处的链接

Delphi sysem.json 链式写法

Delphi下pos机控制钱箱,客显,打印机

Delphi 判断两个时间差是否在一个指定范围内 -withinpastyears、withinpastmonths、withinpastweeks、withinpastdays

Delphi压缩与解压_不需要特别的控件

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

转载请注明出处：木庄网络博客 » Delphi通过进程名获取进程PID函数