delphi 获得指定进程的ID号


本文整理自网络,侵删。

 {delphi 获得指定进程的ID号。}
function GetProcessIDFromExename(ExeName: string): Cardinal;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLEAN;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if (LowerCase(ExtractFileName(FProcessEntry32.szExeFile)) =
LowerCase(ExeName)) then
Result := FProcessEntry32.th32ProcessID;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

相关阅读 >>

Delphi stringgrid常用属性和常用操作

Delphi 解决“richedit line insertion error”错误

Delphi xe6 取得app自己的版本号(横跨4个平台)

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi 延迟时间函数

Delphi 获取网页源代码的最简单办法

Delphi 获取窗体坐标触发事件

Delphi 屏蔽汉字,年月日,时间,银行卡正则表达式

Delphi 获取文件修改时间

Delphi 简单判断图片类型

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



打赏

取消

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

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

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

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

评论

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