Проверить запущен процесс или нет?

Posted by Chas under Delphi

Мой проект выполняет действие по мониторингу процессов (это программа серфинга сайтов одной системы САР), и при отсутствии процесса wasppacer.exe запускает его снова из указанной папки. Но как только обновляется программа серфинга, запускается updater.exe, а процесс wasppacer.exe исчезает из процессов. Вследствие чего, мой проект инициирует запуск wasppacer.exe снова, не успев обновить серфинг. Бывает до 10 updater.exe работает, пока первый не обновит, тогда в процессах снова запустится wasppacer.exe и процесс обновления завершится, но те updater.exe, что остались висеть в процессах, также обновятся и запустится 10 копий (образно говоря).

Lardes
добавь новую функцию проверки процесса:

uses TlHelp32;

function ProcessExists(FProcess: 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(FProcess))

      or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(FProcess)))

    then

    begin

      Result := True;

      Break;

    end;

    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

  end;

  CloseHandle(FSnapshotHandle);

end;

И само условие:

//если запущен updater.exe

  if ProcessExists('updater.exe') then

  begin

    //wasppacer.exe не запускать

  end

тема на форуме

Похожие статьи

• Проверить запущен ли процесс
• Как можно получить имя родительского процесса чужой программы?
• Как узнать имя пользователя под которым запущен процесс?
• Преобразовать массив байт в вещественное число (single)
• Посоветуйте ПО для защиты ПК с пред-настройкой «групп файлов». На примере Comodo.
• Handle окна по файлу EXE
• При нажатии кнопки открыть сайт
• Получить время через интернет
• Сеть на ассемблере: проблема
• Получить иконку файла