1

Как постоянно проверять запущена ли другая программа, если нет то запустить ее. Второе приложение иногда вылетает.

Обе программы мои, одна на делфи, вторая на c# - постоянно вылетает ошибка, нужно запускать его. Обе приложения оконные.

Слышал про WinExec, а как сделать чтобы постоянно проверять запущена ли она?

4
  • 2
    Самое простое - проверять есть ли окно с нужным именем (программы). Более хитрый вариант - через мьютекс (создавать его программой, и проверять). Более костыльный - писать таймстэмпы в лог, и проверять, если лог замер, значит прога убилась/повисла.
    – Kromster
    25 мая 2017 в 5:17
  • Если оба приложения ваши, почему бы не сделать перехват исключений в них? Какая ошибка-то? 25 мая 2017 в 8:22
  • я дак за мьютекс, не будет зависимости от класса окна и его названия.
    – teran
    25 мая 2017 в 10:57
  • Kromster дельно написал. И костыльный вариант с проверкой времени изменения log файла иногда самый лучший (позволяет отследить зависание программы).
    – Vlad Chapl
    31 мая 2017 в 7:03

2 ответа 2

3

Проверить запуск можно по наличию хэндла окна FindWindow
Wnd := FindWindow(PChar('TApplication'), PChar(Application.Title));

WND > 0- окно найдено.

Если окно найдено, то программа запущена

Wnd : THandle

3
  • а как сделать постоянную проверку?
    – Barlukov
    25 мая 2017 в 6:35
  • 3
    @Barlukov, по таймеру или в цикле.
    – iluxa1810
    25 мая 2017 в 7:01
  • дабы не запутать спрашивающего, в данном виде вызов функции возвращает дескриптор своего окна.
    – teran
    25 мая 2017 в 10:56
0

Вопрос решен, повесил на таймер:

procedure TFMain.Timer1Timer(Sender: TObject);
var
Wnd : THandle;
begin
  Wnd := FindWindow(nil, PChar('app1'));
  if WND > 0 then
  BEGIN
    Memo1.Lines.Add('good')
  END
  else
  BEGIN
    Memo1.Lines.Add('bad');
    WinExec('app1.exe', SW_SHOWNORMAL);
  END;
end;

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.