отследить процесс в диспетчере задач

[L.A.M.E.R.]

Доброе время суток! Такой вопрос у меня. Как можно отследить процесс (по имени) в диспетчере задач, мне получается надо если процесса нет то запустить определенную программу... Помогите кто чем может... заранее спасибо!

[Пепел Феникса]

а зачем диспетчер?

список процессов получить то не трудно.

да и в поиске легко ищется моя процедура для проверки на наличие процесса.

[GunSmoker]

Гугли по OpenProcess, WaitForSingleObject, PS API или ToolHelp. А потом вникай тут.

[VladimirVB]

uses tlhelp32;

procedure TfrmMain.Button1Click(Sender: TObject);
var
  PrcEntry : TProcessEntry32;
  Snapshot : THandle;
  bThereis: Boolean;
begin
  bThereIs := False;
  PrcEntry.dwSize := SizeOf(PrcEntry); //установка размера структуры
  Snapshot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0); //получаем снимок процессов
  {начало цикла перебора процессов в снимке}
  if Process32First(Snapshot, PrcEntry) = True then
  repeat
      if PrcEntry.szExeFile = 'calc.exe' then //имя процесса
      begin
        ShowMessage('Процесс calc.exe существует');
        bThereIs := True;
        Break;
      end;
  until not Process32Next(Snapshot, PrcEntry); //условие продолжения перебора
  CloseHandle(Snapshot); //освобождение дескриптора снимка процессов
  if bThereis = False then
    WinExec('calc.exe', SW_SHOWNORMAL);
end;