Проверка процесса.

[egorzenit]

Приветствую,как можно проверить работает ли опредленный процесс в системе сейчас или нет?

[Alex11223]

Примерно так (взято из гугла, работоспособность неоднократно проверена):

function IsRunning(sName: string): boolean; // проверяет, запущен ли процесс sName
var
  han: THandle;
  ProcStruct: PROCESSENTRY32;
  sID: string;
begin
  Result := false;

  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then
    exit;


  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then
  begin
    repeat
      sID := ExtractFileName(ProcStruct.szExeFile);

      if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
      begin

        Result := true;
        Break;
      end;
    until not Process32Next(han, ProcStruct);
  end;

  CloseHandle(han);
end;

[Кольша]

находим здесь искходник ДП,ну а потом просто перебором