判斷工作管理員內的某個處理程序是否還存在

uses
    Tlhelp32;

function FindProc(ProcName: string): Boolean;   
var
    OK: Bool;
    hPL: THandle;
    ProcessStruct: TProcessEntry32;
begin
    Result := False;
    hPL := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
    ProcessStruct.dwSize := SizeOf(TProcessEntry32);
    OK := Process32First(hPL, ProcessStruct);
    while OK do
    begin
    if UpperCase(ProcessStruct.szExeFile) = UpperCase(ProcName) then
    begin
      Result := True;   
    end;
    OK := Process32Next(hPL, ProcessStruct);
    end;   
    CloseHandle(hPL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FindProc('bds.exe') then
  begin

  end;

end;



///////////////////new////////////
//加入process的數量判斷,若大於2,一定是重復執行囉~
function FindProc(ProcName: string): integer;
var
    OK: Bool;
    hPL: THandle;
    ProcessStruct: TProcessEntry32;
    i:integer;
begin
  i:=0;
  hPL := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  ProcessStruct.dwSize := SizeOf(TProcessEntry32);
  OK := Process32First(hPL, ProcessStruct);
  while OK do
  begin
    if UpperCase(ProcessStruct.szExeFile) = UpperCase(ProcName) then
    begin
      i := i+1;
    end;
    OK := Process32Next(hPL, ProcessStruct);
  end;
  Result := i;
  CloseHandle(hPL);
end;