Перехват боковых кнопок мыши (Delphi)

[Simply-Art]

Делаю глобальных перехват кнопок мыши, вот код длл

library hooklib;

uses
windows, sysutils, messages;

var
H, wh, cw : THandle;

function hook(code, w, l : integer): Lresult; stdcall;
var
str:string;
begin
str:=IntToStr(LoWord(w))+'_'+IntToS tr(HiWord(w));
if w <> 512 then SendMessage(Cw,WM_SETTEXT,0,lParam( str));
result := CallNextHookEx(H, code, w, l);
End;


procedure sethook;
begin
H:= SetWindowsHookEx(14, @hook, hInstance, 0);
wh:=FindWindow(nil,PChar('Form1'));
Cw:=FindWindowEx(Wh,0,PChar('TMemo' ),nil);
if H = 0 then
messagebox(0,'AAAAAA!!! ERORR!!!','ERROR',mb_iconhand);
end;

procedure removehook;
begin
UnhookWindowsHookEx(H);
end;

exports
sethook index 1 name 'sethook',
removehook index 2 name 'removehook';
end.

По идее LoWord(w) передает код события (нажатия отпускания кнопки), а HiWord(w) должен передавать как раз "модификаторы", чтобы различать боковые кнопки мыши, но почему то там ничего не передается. А при нажатии на боковые кнопки в LoWord идут одни и те-же значения. Как правильно считать какая из боковых (дополнительных) кнопок у мыши нажата?

[Simply-Art]

Блин пока дождешься ответа, сам решишь задачу
Надо использовать еще L параметр, который указывает на структуру, там то и есть модификаторы.

function hook(code, w, l : integer): Lresult; stdcall;
var
  str:string;
  ll:tagMSLLHOOKSTRUCT;
begin
ll := PtagMSLLHOOKSTRUCT(l)^;
str:=IntToStr(HiWord(ll.mouseData));
// меняется 1 или 2 в зависимости от нажатой боковой кнопки

Оставлю, может кому пригодится.