Как запустить прогу и получить handle её главного окна?

← →
Deus © (2002-08-29 18:21) [0]

Казалось, что сложного?
делаем
CreateProcess(nil, "C:\WINDOWS\system32\calc.exe", nil, nil, false, 0, nil, nil, StartInfo, ProcInfo);
получаем в ProcInfo хандл процесса, перебираем окна, сравниваем GetWindowThreadProcessId.
Не находим....
GetGUIThreadInfo так же не помогает....

← →
Song © (2002-08-30 09:13) [1]

GetActiveWindow()

← →
Ученик © (2002-08-30 09:21) [2]

После CreateProcess, наверно надо, WaitForInputIdle

← →
Deus © (2002-08-30 11:33) [3]

2Song:
"GetActiveWindow()"
А если оно неактивным запустилось?

2Ученик:
Гм...
А зачем?
Нужное окно я могу найти! Но GetWindowThreadProcessId возвращает иные значения, нежели чем возвращенные в ProcInfo.
Конкретный пример:
Я запускаю "c:\windows\calc.exe". CreateProcess в ProcInfo вернул значения:
ProcInfo.hProcess:=1932
ProcInfo.hThread:=1932
ProcInfo.dwProcessId:=1932
ProcInfo.dwThreadId:=1932

Перебираю окна, нахожу окно с ClassName="SciCalc".
Но GetWindowThreadProcessId=588!

← →
Ученик © (2002-08-30 12:00) [4]

>Deus © (30.08.02 11:33)
Может быть не с тем сравниваешь, я проверил ThreadID у окна и запущенного процесса они совпадают.

← →
Deus © (2002-08-30 12:33) [5]

2Ученик:
Если не сложно, приведи код.
И, кстати, что ты запускаешь?

procedure TForm1.Button1Click(Sender: TObject);
var
pi : TProcessInformation;
si : TStartupInfo;
begin
FillChar(si, SizeOf(TStartupInfo), 0);
si.cb := SizeOf(TStartupInfo);
if CreateProcess(NIL, "calc.exe",
NIL, NIL, False, 0, NIL, NIL, si, pi) then try
WaitForSingleObject(pi.hProcess, INFINITE)
finally
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess)
end
end;

Опс. У меня оказывается всё правильно было.
Я просто в отладочное окно слал hProcess вместе dwProcess :)))
Сорри за беспокойство....

Как запустить прогу и получить handle её главного окна? Найти похожие ветки