判斷進程是否存在，存在返回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;

總結

以上是生活随笔為你收集整理的判断windows进程是否存在的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。