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

[$@#Y@]

Ситуация: есть идея написания простой проги-прикола- весь введенный в любое окно текст проеобразововать в другой.Перехватить сообщение кое-как получилось,а как сделать так,что б оно не дошло до получателя, т.е. заменить его другим?Перехватил так:

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);

Заранее благодарен.

 

[KmeT]

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


©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.