Date: Sat, 31 Mar 2001 16:38:14 +0200
From: Michael Winter <delphi.net@gmx.net>
Organization: me@home
X-Mailer: Mozilla 4.51 [de]C-CCK-MCD QXW03200  (Win98; I)
X-Accept-Language: de,en
MIME-Version: 1.0
Newsgroups: borland.public.delphi.winapi
Subject: Re: Get the mouse cursor bitmap problem
References: <3ac5a26e_1@dnews>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 212.7.137.151
Message-ID: <3ac5ecc4_1@dnews>
X-Trace: 31 Mar 2001 06:42:12 -0800, 212.7.137.151
Lines: 16
Path: dnews!212.7.137.151
Xref: dnews borland.public.delphi.winapi:128422

Milen Boev schrieb:

> I'll be very grateful if somebody tell me how to get the cursor bitmap
> wherever it is on the screen!

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CI: TCursorInfo;
begin
  CI.cbSize := SizeOf(CI);
  GetCursorInfo(CI);
  Image1.Picture.Icon.Handle := CI.hCursor;
end;

-Michael