delphi 检测进程是否存在函数


本文整理自网络,侵删。

 uses
TlHelp32;


function CheckTask(ExeFileName: string): Boolean; //检测XX进程是否存在函数
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := False;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while integer(ContinueLoop) <> 0 do begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then
result := True;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;

相关阅读 >>

Delphi求解一元二次方程

Delphi 程序退出时删除自身

Delphi shellexecute调用系统命令关闭计算机

Delphi base64编码/解码及zlib压缩/解压

Delphi 判断素数的简单例子

Delphi 清除字符串两边空格或指定字符

Delphi 用浏览器来显示带图片的邮件内容,图片无需保存为本地文件

Delphi中使用临界区来让线程同步

Delphi 一句话获取文件的最新修改时间

Delphi mediaplayer1 设置音量

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



打赏

取消

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

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

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

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

评论

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