判断windows进程是否存在

判断进程是否存在，存在返回true，不存在返回false

function IsTaskRunning(TaskName:string):Boolean;

const

PROCESS_TERMINATE = $0001;

var

ContinueLoop: BOOL;

FSnapShotHandle: THandle;

FProcessEntry32: TProcessEntry32;

begin

Result := False;

FSnapShotHandle := CreateToolhelp32SnapShot(TH32CS_SNAPPROCESS, 0);

FProcessEntry32.dwSize := SizeOf(FProcessEntry32);

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while integer(ContinueLoop) <> 0 do

begin

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(TaskName))

or (UpperCase(FProcessEntry32.szExeFile ) = UpperCase(TaskName))) then

begin

Result := True;

end;

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

end;

CloseHandle(FSnapShotHandle);

end;