Отследить удачный запуск программы

@sonyk · Регистрация: 20.10.2017

Author24 — интернет-сервис помощи студентам

Доброго времени суток:
Для запуска программы использую такую процедуру:

Delphi

procedure RunProgram(cmdStr:string; Wait:Boolean; ShowWindow:Word);    ///////////запуск программ
var si:TStartupInfo;
  pi:TProcessInformation;
  s:string;
begin
  FillChar(si, SizeOf(si), 0);
  si.cb := SizeOf(si);
  si.dwFlags:=STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_HIDE;
  s:=cmdStr;
  UniqueString(s);
  getlasterror;
  if not CreateProcess(nil, PChar(S), NIL, NIL, False, 0, NIL, NIL, si, pi) then
    showMessageFmt('Ошибка %d. %s',[getlasterror,SysErrorMessage(getlasterror)]);
 
  if wait then
    WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
end;

В дальнейшем ее вызываю так:
RunProgram('путь на файл',false, SW_HIDE);
Вопрос:
Как отследить запуск программы (с прорисовкой окон, если возможно), для того чтобы выполнять дальнейшие действия с этой программой???????
Заранее благодарю за любую помощь

Добавлено через 20 часов 12 минут
Использовал для поиска запуска программы такую конструкцию но она не совершенна):

Delphi

1
2
3

repeat
                            sleep(100) ;
                       until  FindWindow(nil, 'uDisk ToolBar')<>0;

после нее все равно надо ставить, я так понимаю не успевают прорисовываться окна.

Delphi

1	sleep(1000);

Но это фиксированная цифра и на разных машинах она может не сработать, соответственно, приложение откроется но манипуляции с окнами не произойдут.
Может, можно ка-то отследить запуск приложения иначе.

@sonyk · 08.11.2017, 21:07 **[ТС]**

Товарищи программисты, не ужели нет идей по реализации данной проблемы?

Добавлено через 46 минут
а если создать отдельный поток на выполнение этой функции?? У кого есть опыт работы с потоками

@krapotkin · 10.11.2017, 10:54

какая знакомая функция))

Delphi

1	WaitForInputIdle(PI.hProcess, INFINITE); // ждем завершения инициализации

@sonyk 1 / 1 / 0 Регистрация: 20.10.2017 Сообщений: 32
	08.11.2017, 21:07 [ТС]	2
	Товарищи программисты, не ужели нет идей по реализации данной проблемы? Добавлено через 46 минут а если создать отдельный поток на выполнение этой функции?? У кого есть опыт работы с потоками 0

	10.11.2017, 10:54