基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

想知道某个程序是否在运行，并持续监控它，且可设定轮询时间

Function FindProcess(aFileName:  String):  boolean;     // 判断本机是否在运行后台程序
var
    hSnapshot:THandle;               //获取进程列表
    lppe:TProcessEntry32;            //用于查找进程
    Found:boolean;                          //用于判断进程是否历遍完成
begin
    Result:=false;
    hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);  //获取系统进程列表
    lppe.dwSize:=SizeOf(TProcessEntry32);  //在调用Process32First  API之前,需要初始化lppe记录的大小
    Found:=Process32First(hSnapshot,lppe);  //将进程列表的第一个进程信息读入lppe记录中
    while  Found   do
    begin
        if (UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(aFileName))  or  (UpperCase(lppe.szExeFile)=UpperCase(aFileName)) then
        begin
            Result:=true;
            break;
        end;
            Found  :=  Process32Next(hSnapshot,  lppe);  //将进程列表的下一个进程信息读入lppe记录中
     end;
end;