Re: Как отправить сообщение.
От: Demiurg  
Дата: 08.07.03 12:12
Оценка:
Здравствуйте, SCrash, Вы писали:

SC>Привет всем!


SC>У меня возник вопрос:

SC>Можно ли при помощи своей программы "нажимать" кнопку в другой программе? Извините за тавтологию, сейчас поясню суть.


procedure TForm1.Button1Click(Sender: TObject);
var
  H: HWND;
begin
  H := HWND(131128); //Хэндл кнопки пуск :)
  SendMessage(H, WM_LBUTTONDOWN, 0, 0);
  Sleep(20);
  SendMessage(H, WM_LBUTTONUP, 0, 0);
end;


Другое дело как получать хэндлы нужных тебе кнопок. Что могу посоветовать — врубай Spy++, запоминай их капшины...
... << RSDN@Home 1.1 beta 1 >>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.