检测某个软件是否正在运行

function Checkexeisrunning(ename:string):Boolean;
var
hwd:hwnd;
scr:array [0..254] of Char;
begin
Result:=False;
hwd:=GetWindow(Application.Handle,GW_HWNDFIRST);
while hwd<>0 do
begin
if GetWindowText(hwd,@scr,255)>0 then
begin
if LowerCase(PChar(@scr))=LowerCase(ename) then
begin
result:=True;
Exit;
end;
end;
hwd:=GetWindow(hwd,GW_HWNDNEXT);
end;
end;