Некоторое время назад на этом форуме Vit приводил примеры с использованием Hook(Автора не помню сейчас).
Пожалуйста, помогите разобраться с этим кодом:

var
HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
begin
if Code >= 0 then begin //Я ни как не пойму для чего этот параметр
  result := 0;
  msg := Pointer(LParam);//Сдесь насколько я понимаю msg поучает указатель на LParam

  with Form1 do // Обработка сообщений, которые необходимо отловить
    case msg.message of
      WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr(msg.ParamH);
      WM_LBUTTONDOWN: CheckBox1.Checked := true;
      WM_LBUTTONUP: CheckBox1.Checked := false;
      WM_RBUTTONDOWN: CheckBox2.Checked := true;
      WM_RBUTTONUP: CheckBox2.Checked := false;
      WM_KEYUP: CheckBox3.Checked := false;
    end;
end else
  result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

Я вот, например хочу отловить нахатие клавы, но в хелпе написано, что виртуальный код клавы находится в WParam(a msg указывает на LParam). А если попытаться сделать так:
msg:=Pointer(WParam) то это приведет к зависанию.
Пожалуйста, подскажте ответ на возникшие вопросы.

Цитата

Я вот, например хочу отловить нахатие клавы

Дык это ж для мыша у тебя Когда хук ставишь, там один параметр для клавы другой. А в целом почти так. Все должно пахать

Цитата

Я ни как не пойму для чего этот параметр

Нужен... Если уберешь, пахать не будет

Параметр, можно сказать нужен для того, чтобы понять как его обрабатывать.
А если надо про клаву, то
FAQ
И здесь в FAQ было.