Как перехватить сообщение и послать другое?

Тема в разделе "Delphi - FAQ", создана пользователем $@#Y@, 18 апр 2005.

Статус темы:
Закрыта.
  1. $@#Y@

    $@#Y@ Гость

    Ситуация: есть идея написания простой проги-прикола- весь введенный в любое окно текст проеобразововать в другой.Перехватить сообщение кое-как получилось,а как сделать так,что б оно не дошло до получателя, т.е. заменить его другим?Перехватил так:
    Код (Text):
    function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
    var
    msg: PEVENTMSG;
    begin
    if Code >= 0 then begin
     result := 0;
     msg := Pointer(LParam);
     with Form1 do
      case msg.message of
       WM_KEYUP:
       begin
        //сообщение о нажатии клавиши
        // какой код написать здесь?чтоб он заменял это сообщение на //другое    
       end;
      end;
    end else
     result := CallNextHookEx(HookHandle, code, WParam, LParam);
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
     HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
     if HookHandle <> 0 then
      UnhookWindowsHookEx(HookHandle);
    Заранее благодарен.
     
  2. KmeT

    KmeT Гость

    Анализируем lParam и wParam. и изменяме их на необходимые.


    &copy;Msdn
    WM_KEYUP
    wParam
    Specifies the virtual-key code of the nonsystem key.
    lParam
    Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table. Value Description
    0–15 Specifies the repeat count for the current message. The value is the number of times the keystroke is autorepeated as a result of the user holding down the key. The repeat count is always one for a WM_KEYUP message.
    16–23 Specifies the scan code. The value depends on the original equipment manufacturer (OEM).
    24 Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0.
    25–28 Reserved; do not use.
    29 Specifies the context code. The value is always 0 for a WM_KEYUP message.
    30 Specifies the previous key state. The value is always 1 for a WM_KEYUP message.
    31 Specifies the transition state. The value is always 1 for a WM_KEYUP message.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей