鼠标的获取和信息的识别

procedure TForm1.btnClick(Sender: TObject);
var
  bmp:TBitmap;
  hCur : TCursorInfo;
begin
//ffffff-e2e2e2
  cur := TIcon.Create;
  bmp:= TBitmap.Create;
  ZeroMemory(@hCur,sizeof(hCur));
  hCur.cbSize:=SizeOf(hCur);
  GetCursorInfo(hCur);
  self.cur.Handle:=hCur.hCursor  ;
  bmp.Width  := cur.Width;
  bmp.Height := cur.Height;
  bmp.PixelFormat := pf24bit;
  bmp.Canvas.Brush.Color := clFuchsia;
  bmp.Canvas.Pen.Color := clFuchsia;
  bmp.Canvas.Rectangle(0,0,bmp.Width,bmp.Height );
  if DrawIconEx(bmp.Canvas.Handle,0,0,self.cur.Handle,0,0,0,0,DI_NORMAL) then
  bmp.SaveToFile('1.bmp');
  Sleep(10);
  mmo.Lines.Add (dm.OcrInFile(0,0,bmp.Width,bmp.Height,GetCurrentDir +'\1.bmp','ffffff-e2e2e2',1.0));
  DeleteFile(GetCurrentDir +'\1.bmp');
  bmp.Free;
  cur.Free;
end;