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获取dos命令行输出函数 运行cmd命令并获取结果

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

进程隐藏的Delphi代码

Delphi 得到文件创建时间，修改时间，访问时间

Delphi nativeexcel获取excel所有列

Delphi里面判断一个字符串在另一个字符串中出现的次数

Delphi中break,exit,abort跳出循环的比较

Delphi通过解析搜狐网页来获取天气的函数

Delphi 使用indy解决tidssliohandlersocketopenssl could not load ssl library错误

Delphi 测试 tstreamwriter、tstreamreader

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

转载请注明出处：木庄网络博客 » delphi 检测进程是否存在函数