本文整理自网络，侵删。
delphi查找进程
━━━━━━━━━━━━━━━━━━━━━━━━━━
uses TLHelp32//---------------------------查找进程-------------------------------------//
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);//将进程列表的第一个进程信息读入ppe记录中
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);//将进程列表的下一个进程信息读入lppe记录中
end;
end;
调用:if FindProcess('mysqld-nt.exe') then memo1.Lines.Add('发现SQL服务!');// 相关阅读 >>
Delphi开发firemonkey应用程序时无法打开窗体的解决
更多相关阅读请进入《Delphi》频道 >>
