Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

2nd
Май

Как проверить запустилось ли приложение?

Posted by Chas under Пост-обзор

Так я запускаю приложения

ShellExecute(0, 'open', 'Project1.exe', nil, 'C:\New project', SW_SHOWNORMAL);

Как проверить, что приложение действительно запустилось и сообщить об этом?

SERG1980:
Вот немного переделанная ф-ия из delphiWorld

uses Tlhelp32;
function FindTask(ExeFileName: 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(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =

    UpperCase(ExeFileName))) then

    Result := true;

    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

  end;

  CloseHandle(FSnapshotHandle);

end;