Hallo Zusammen!
Gibt es den keine Möglichkeit den aktuellen Mauszeiger abzufragen...
Und zwar nicht das Icon sondern das ID...
Ich möchte einfach nur wissen: Aktueller Mauszeiger ist z.b. : crHandPoint
Von mir aus auch das Windows ID : IDC_HAND
Nochmal nicht sowas..:
Delphi-Quellcode:
procedure DrawCursor(ScreenShotBitmap : TBitmap);
var
r: TRect;
CI: TCursorInfo;
Icon: TIcon;
II: TIconInfo;
begin
CI.cbSize := SizeOf(CI);
if GetCursorInfo(CI) then
if CI.Flags = CURSOR_SHOWING then
begin
r := ScreenShotBitmap.Canvas.ClipRect;
Icon := TIcon.Create;
try
Icon.Handle := CopyIcon(CI.hCursor);
if GetIconInfo(Icon.Handle, II) then
begin
ScreenShotBitmap.Canvas.Draw(
ci.ptScreenPos.x - Integer(II.xHotspot) - r.Left,
ci.ptScreenPos.y - Integer(II.yHotspot) - r.Top,
Icon
);
end;
finally
Icon.Free;
end;
end;
end;
Mavarik
