Правильная посылка последовательностей сообщений

[VintProg]

Есть последовательность функций:

PostMessage(WinProxifier[0], WM_COMMAND,  32774, 0);
WinProxifier[1] := FindWindow(nil , 'Proxy Settings');
PostMessage(WinProxifier[1], WM_COMMAND,  3, 0);

PostMessage(WinProxifier[0], WM_COMMAND, 32774, 0); - эта срабатывает нормально, а вот когда окно еще не создалось
WinProxifier[1] := FindWindow(nil , 'Proxy Settings');

то этот пост не доходит PostMessage(WinProxifier[1], WM_COMMAND, 3, 0);
как правильно это сделать?

[mihali4]

Я бы попробовал так :

PostMessage(WinProxifier[0], WM_COMMAND,  32774, 0);
WinProxifier[1] := 0;
while WinProxifier[1] = 0 do
begin
WinProxifier[1] := FindWindow(nil , 'Proxy Settings');
Application.ProcessMessages;
end;
PostMessage(WinProxifier[1], WM_COMMAND,  3, 0);

[Utkin]

Ну возможно стоит и просто вставить между командами по нескольку:

Application.ProcessMessages;

Вроде должно прокатить.

[evg_m]

может просто заменить PostMessage на SendMessage.