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服务! ');