Доброго времени суток, уважаемые.
Никак не могу понять тонкость работы с SendMessage.
Есть процедура:
Код:
procedure TMyThread.ClickOnForm;
var
TheChildHandle: HWND;
begin
TheChildHandle := FindWindowEx(FindWindow(nil, 'Microsoft Office Outlook'), 0, nil, PChar('Да'));
SendMessage(TheChildHandle, WM_ACTIVATE, 1, 1);
SendMessage(TheChildHandle, WM_LBUTTONDOWN, MK_LBUTTON, 1);
Sleep(300);
SendMessage(TheChildHandle, WM_LBUTTONUP, MK_LBUTTON, 1);
end;
В общем и целом работает. НО! Только визуально! Видно как нажимается кномпа "Да". Только аутлук, не реаигрует на эти нажатия, пока не кликнешь по форме созданного письма или по форме с вопросом. Как решить эту проблему? В качестве параметров я уже многое пробовал подставлять, безрезультатно. Кто знает как победить проблему? Зарание благодарен.