各位兄弟,知道怎么得到全局鼠标的状态吗

我用了一个全局钩子,但是得到的部是箭头的形状
  function MouseHook(nCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
  var
     meico:TIcon;
     mp:TBitmap;
  begin
      if wParam = WM_LBUTTONDOWN then
      begin
        MessageBeep(0);
        meico:=TIcon.Create;
        meico.Handle:=GetCursor;
        mp:=TBitmap.Create;
        mp.Width:=meico.Width;
        mp.Height:=meico.Height;
        mp.Canvas.Draw(0,0,meico);
        mp.SaveToFile('c:\g' + inttostr(HookCount) + '.bmp');
        HookCount:=HookCount+1;
        mp.Destroy;
        meico.Destroy;
      end;
      Result := CallNextHookEx(hook, nCode, wParam, lParam);
  end;