Ожидание создания окна после запуска процесса

[Аникейка]

Запускаю процесс при помощи CreateProcess чтобы получить его PID, а затем пытаюсь получить HWND главного окна этого процесса.
Но окно создается не сразу после запуска процесса а спустя некоторое
время, причем на машинах с разной производительностью оно тоже разное. Примерно от 1 до 10 секунд занимает процесс создания окна...
Сейчас использую просто Sleep так как по другому не умею...
Есть мысль создать таймер и пытаться по интервалу таймера
получить HWND, но приложение без формы неохота с этим заморачиваться, ведь возможно есть более простой способ?

Как грамотно дождаться создания главного окна после запуска процесса чтобы получить его HWND?

Вот такой код использую сейчас

  try
    PID := ExecProcess(WorkDir+'process.exe','');
    sleep(10000); // хотелось бы избавиться от такого способа
    hWnd := GetWndHandleByPID(PID);
  except
     Alert('#$0!');
  end;

[mss]

> Как грамотно дождаться

WaitForInputIdle()

[Аникейка]

хм, спасибо. делаю WaitForInputIdle(PID, INFINITE) - и ничего все равно не получается...

[Пепел Феникса]

эмм, а что есть PID?
если то что я думаю, то вам нужен хендл процесса а не его идентификатор