Условие если

[Turboman]

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

В сам алгоритм нужно внести условие "если", тоесть если запущен updater.exe – wasppacer. exe не запускать.
кто поможет f_52651276e8db19cf.zip

[Lardes]

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

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

[Turboman]

Не понял собственно условия и этой функции

Сообщение от Lardes

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

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

[Человек_Борща]

Тогда вам надо читать основы Delphi, если не поняли.
Другие не поняли что вы хотите.

[Turboman]

куда мне вставить этот код??

Сообщение от Человек_Борща

Тогда вам надо читать основы Delphi, если не поняли.
Другие не поняли что вы хотите.

[Lardes]

Сообщение от Turboman

Не понял собственно условия и этой функции

Функция проверяет существование процесса, если он существует, то возвращается True, в ином случае - False.

Сообщение от Turboman

куда мне вставить этот код??

В uses добавляешь TlHelp32, после {$R *.dfm} добавляешь код функции

[Turboman]

Сообщение от Lardes

Функция проверяет существование процесса, если он существует, то возвращается True, в ином случае - False.


В uses добавляешь TlHelp32, после {$R *.dfm} добавляешь код функции

а как на счет????
это не работает бегин и комменты
И само условие:

Код:

//если запущен updater.exe
if ProcessExists('updater.exe') then
begin
//wasppacer.exe не запускать
end

[Lardes]

Сообщение от Turboman

а как на счет????

Этот участок кода:

  //если запущен updater.exe
  if ProcessExists('updater.exe') then
  begin
    //wasppacer.exe не запускать
  end;

Вставляешь туда, куда нужно обработать условие. Прав Человек_Борща, изучай основы Delphi

[Turboman]

Сообщение от Lardes

Этот участок кода:

  //если запущен updater.exe
  if ProcessExists('updater.exe') then
  begin
    //wasppacer.exe не запускать
  end;

Вставляешь туда, куда нужно обработать условие. Прав Человек_Борща, изучай основы Delphi

ты не понял- условие ничего не означает, как правильно написать?

[Turboman]

Блин, еслибы я знал куда нужно вставить код- я бы не писал!
Я попросил помощи а не подсказок..
Спасибо