uses
UsesTLHelp32;
function FindProcess(AFileName: string): boolean;
var
hSnapshot: THandle; lppe: TProcessEntry32;
Found: Boolean;
begin Result := False;
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
lppe.dwSize := SizeOf(TProcessEntry32);
Found := Process32First(hSnapshot, lppe);
while Found do
begin
if ((UpperCase(ExtractFileName(lppe.szExeFile)) = UpperCase(AFileName)) or (UpperCase(lppe.szExeFile) = UpperCase(AFileName))) then
begin
Result := True;
end;
Found := Process32Next(hSnapshot, lppe);
end;
end;
进程检测
最新推荐文章于 2022-05-18 22:08:30 发布