博客

      

       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

      

      

       ;