Как нажать клавишу на клавиаруте в другом приложении

[BoT_T]

Сабж.
Для тех, кто непонял:
Какое сообщение нужно послать, предположим, блокноту, что бы в нем сэмулировалось нажатие например клавиши Q, и при этом в блокноте бы конечно же написался бы этот символ?

[Stilet]

http://yandex.ua/yandsearch?date=&te...=7950&lr=20554

[BoT_T]

Невероятно, но ни 1 пример из поиска не подошел (не работает)! Можете дать проверенный код, чтоб например (обязательно на примере) в блокноте вводилось "Q" (например).
С меня отзыв!

[_Engine_]

var Buffer : AnsiString;
begin
  Buffer := 'Q';
  SendMessage(HandleWND, WM_SETTEXT, 0, LongINT(Buffer));

где, HandleWND - хэндл того окна, в который посылаете текст.

[BoT_T]

Твой код походу меняет хэндл окна, а не посылает ему сообщение нажать кнопку... Хотя может и я что то не то сделал... Код:

var
handle:hwnd;
Buffer : AnsiString;
begin
handle:=GetForegroundWindow;
Buffer := 'Q';
SendMessage(Handle, WM_SETTEXT, 0, LongINT(Buffer));
end;

[ArtGrek]

вот как хандел получить:

procedure Tasd.FormCreate(Sender: TObject);
var
  TrayWnd, BtnWnd:  hwnd;
begin
  if FindWindow('TForm1', 'Form1') <> 0 then begin
    TrayWnd:=FindWindow('TForm1', 'Form1');
    BtnWnd:=FindWindowEx(TrayWnd,0,'TMemo', 'Memo1');
    // как послат не знаю
  end;
end;

[BoT_T]

Хэндл получает GetForegroundWindow

[XeruH]

procedure TTempForm.ButtonClick(Sender: TObject);
var
  NotepadHandle, EditHandle: HWND;
  Buffer : AnsiString;
begin
  NotepadHandle := FindWindow('Notepad', 0);
  if NotepadHandle > 0 then
  begin
    EditHandle := FindWindowEx(NotepadHandle, 0, PChar('Edit'), 0);
    if EditHandle > 0 then
    begin
      Buffer := 'Q';
      SendMessage(EditHandle, WM_SETTEXT, 0, LongINT(Buffer));
    end else
      ShowMessage('Поле ввода не найдено');
  end else
    ShowMessage('Notepad не найден! Возможно приложение Notepad не запущено!');
end;

[BoT_T]

1. Это отсылка текста, а не нажатия кнопки.
2. А если не будет едита?? ВОт вот...
Нужно именно послать сообщение о нажатии кнопки.

[_Engine_]

Чем Вас тогда ответ №2 не устроил?