Ну если с имитацией нажатия мыши что-то не клеится, то есть другой вариант. Кнопку можно нажать (если фокус на нее уже установлен) послав с клавиатуры нажатие клавиши "пробел". Выглядит это где-то вот так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var h: HWND;
begin
h:= FindWindow('Окно', nil); // ищем окно
SendMessage(h, WM_SYSCOMMAND, SC_HOTKEY, h); // активизируем его
Button2.Click;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
keybd_event(32,0,WM_KEYDOWN,0); //Имитируем нажатие клавиши "пробел" на клавиатуре
end;
Admin: Пользуемся тегами!