Как послать нажатие кнопки? И вопрос про хук клавы.

[TwiX]

1. как послать нажатие кнопки? например, висит таймер и каждые тридцать секунд посылает нажатие кнопки A. т.е. если курсор висит в блокноте, туда написалась А.


2. почему после перехвата WM_HOTKEY'ем не приходит нажатая кнопка на экран?

procedure TForm1.wmhotkey(var msg: TWMHotKey);
begin
  beep();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(handle,  0, 0, ord('A'));
end;

Если запустить и попробовать написать в блокноте АААА, то ничего не выйдет.

3. Как поменять посылаемое значение кнопки, используй WM_hotkey

[Alex Cones]

1)

procedure TForm1.Button1Click(Sender: TObject);
 var
   wnd: HWND;
   I: Integer;
   Str: string;
 begin
   wnd := FindWindow('Notepad', Nil);
   if wnd <> 0 then
   begin
     wnd := FindWindowEx(wnd, 0, 'Edit', nil);  
    Str := 'Текст, который необходимо ввести';
     for i := 1 to Length(s) do
       SendMessage(wnd, WM_CHAR, Word(Str[i]), 0);
    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
   end;
 end;

Разберешься.

[Stilet]

не приходит нажатая кнопка на экран?

Ты бы расшифровал эту фразу.

[TwiX]

1) Alex Cones, блокнот был просто примером, я имел ввиду, чтобы если ты переставишь курсор, туда тоже бы нажималась кнопка.

2) Stilet, я и расшифровал:
если зарегать кнопку А вм_хоткеем, то "Если запустить и попробовать написать в блокноте АААА, то ничего не выйдет".

[Stilet]

А вм_хоткеем, то "Если запустить и попробовать написать в блокноте АААА, то ничего не выйдет".

Так ведь ХотКеи работают только в рамках твоей проги. Если ее окна не активны Хоткеи не будут им посылаться Тут хук ставить нужно... т.е. я неверно выразился. Я хотел сказать что просто символ не может быть Хоткеем. Хот Кей - это комбинация символа с CTRL ALT SHIFT иначе не будет работать.

[Alex Cones]

чтобы если ты переставишь курсор, туда тоже бы нажималась кнопка.

Тут высокоуважаемый Stilet с месяц назад выкладывал программу, которая выясняет тип и заголовок окна, которое находится под мышью. Если он объяснит принцип её действия, то параметры этого куска можно вставлять в мой кусок.

[TwiX]

Я просто думабл, что существует некая "wm_setket" которая посылает нажатие кнопки...

[Alex Cones]

Введи в пустом проекте этот код:

Begin
SendMessage(HWND,WM_CLOSE,0,0);
End;

Зажми Ctrl и жмакни по WM_CLOSE. Откроется вкладка MESSAGES. Там все сообщения, которые можно напрямую посылать. Разбирайся. Удачи!

[russian-stalker]

procedure SetKey(Key:Integer);
begin
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

[TwiX]

Stilet, я дома делал такую прогу, в которой при нажатии, например, кнопки А, выводиться на экран исмвол Б. Но сейчас нет возможности глянуть исходник =(

russian-stalker, что это?)

Alex Cones, как понять "шмякни на вм_клозе"?