获取鼠标图形

Question

如何获取鼠标图形？用LoadImage? LoadImage怎么用？最好能给个例子。（给例子的分多）

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  vCursorInfo: TCursorInfo;
begin
  vCursorInfo.cbSize := SizeOf(vCursorInfo);
  GetCursorInfo(vCursorInfo);  Image1.Picture.Bitmap.Width := 32;
  Image1.Picture.Bitmap.Height := 32;
  Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
  DrawIcon(Image1.Canvas.Handle, 0, 0, vCursorInfo.hCursor);
end;