Recently I needed to render the Screen's Cursor image to
a bitmap. This is how to do it.
var
HCursor: THandle;
begin
//Get the handle of the current cursor
HCursor := Screen.Cursors[Ord(Screen.Cursor)];
//Draw the icon to a canvas
DrawIconEx(MyBitmap.Canvas.Handle,
XPos,Ypos,HCursor,32,32,0,0,DI_NORMAL);
end;
See DrawIconEx in the Delphi help for combinations which may replace DI_NORMAL, like DI_MASK or DI_DEFAULTSIZE