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 ;
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 ;