Сообщество Чайников

Вопрос

Можно ли программно нажать кнопку у чужой программы? Известен заголовок программы и надпись на кнопке.

Ответ


var
MyFormHandle, BtnHandle: HWND;
begin
//ищем нужное окно
MyFormHandle := FindWindow(nil, 'Заголовок');
//ищем кнопку
BtnHandle := FindWindowEx(MyFormHandle, 0, nil, 'Текст на кнопке');
//нажимаем кнопку
SendMessage(MyFormHandle, WM_COMMAND, BN_CLICKED shl 16, BtnHandle);
end;

Из конференции Expert_FAQ