查找进程

最新推荐文章于 2025-05-30 11:01:05 发布

转载最新推荐文章于 2025-05-30 11:01:05 发布 · 855 阅读

文章标签：

#function #string #api

api 专栏收录该内容

29 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的函数，该函数通过遍历系统进程列表来查找指定名称的进程是否存在。利用CreateToolhelp32Snapshot创建快照，并通过Process32First及Process32Next读取进程信息。

function FindProcess(AFileName: string): boolean;
var
    hSnapshot: THandle;//用于获得进程列表
    lppe: TProcessEntry32;//用于查找进程
    Found: Boolean;//用于判断进程遍历是否完成
    KillHandle: THandle;//用于杀死进程
begin
    Result :=False;
    hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//获得系统进程列表
    lppe.dwSize := SizeOf(TProcessEntry32);//在调用Process32First API之前，需要初始化lppe记录的大小
    Found := Process32First(hSnapshot, lppe);//将进程列表的第一个进程信息读入ppe记录中
    while Found do
    begin
      if ((UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(AFileName)) or (UpperCase(lppe.szExeFile )=UpperCase(AFileName))) then
      begin
        showmessage( '找到进程' );
        Result :=True;
      end;
      Found := Process32Next(hSnapshot, lppe);//将进程列表的下一个进程信息读入lppe记录中
    end;
end;