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

[russian-stalker]

Это ответ на:

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

[Alex Cones]

Перевожу: Это означает, что при нажатой клавише Ctrl (Зажал? Лучше скотчем залепи, чтоб палец не соскользнул) нужно кликнуть по надписи WM_CLOSE, которую ты скопировал из поста 8 (в этой теме) и вставил в пустой проект дельфи. После клика появится вкладка наверху, называется MESSAGES. Там показан список всех возможных сообщений, что может посылать Delphi.
Например WM_CLOSE. Что это такое? Сейчас узнаем. Выделяем это. Копируем. и вставляем в поиск яндекса или гугла. нажимаем "искать". Читаем инфу по данной мессаге. Вау! Какая прикольная мессага! Она закрывает указанное (чужое!) окно.

[uberchel]

Все нормально работает:

procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.WMHotKey(var Message: TMessage);
begin
Beep;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 RegisterHotKey(Handle, 13, 0,13); //Enter
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle,13)
end;

Stilet - и не только в рамках проги, тут Хоткей езает сообщения винды и если нажали нужную клавишу, то произошло действие!

[856100]

Можно обойтись без хуков:

procedure TForm1.Timer1Timer(Sender: TObject); \\Интревал таймера 90 (проверено опытным путем)
Var I:Integer;
begin
For I:=65 to 125 do //Символы в промежутке от 65 до 125
If (GetKeyState(I) and 128) = 128 then Memo1.Lines.Add(Chr(I)); //Добовляем символы в memo
end;

Работает и в блокноте и в ворде.....

[russian-stalker]

можно что-то типа того:

var
h:hwnd;
begin
if h=0 then
h:=getforegroundwindow;
if (getforegroundwindow<>h) and (h<>0) then
begin
UnregisterHotKey(h,13)
h:=getforegroundwindow;
RegisterHotKey(h, 13, 0,13); //Enter
end;
end;

P.S.
работает код от uberchel. Так что этот код бестолков

[TwiX]

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

[Stilet]

Stilet - и не только в рамках проги, тут Хоткей езает сообщения винды и если нажали нужную клавишу, то произошло действие!

Дружище, все то это хорошо , но есть еще одна проблема - если ты переопределил клавишу Энтер то она ни в одной программе больше не сработает.

[TwiX]

Так нажимается у кого-нить кнопки после использования wm_hotkey?? У меня слышен бип, но больше ничего не происходит. Абсолютно.

[russian-stalker]

Я же писал решение, вот прикрутил к коду uberchel'а:

procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure Tform1.WMHotKey(var Message: TMessage);
begin
Beep;
UnregisterHotKey(Handle,13);
SetKey(13);
RegisterHotKey(Handle, 13, 0,13); //Enter
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 RegisterHotKey(Handle, 13, 0,13); //Enter
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Handle,13)
end;

[uberchel]

Сообщение от TwiX

Так нажимается у кого-нить кнопки после использования wm_hotkey?? У меня слышен бип, но больше ничего не происходит. Абсолютно.

Что не ужели не доходит, что в обработчике:

procedure Tform1.WMHotKey(var Message: TMessage);
begin
Beep; // Написано Бип, кто мешает тут написать другое ??????????????
end;