【求助】Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的？(100分)

【求助】Windows 的“当按 CTRL 键时显示指针是用了什么 API 来实现的？
对不起, 重发了!!!这里有 89 分
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3924151


鼠标设置-->指针选项
当按 CTRL 键时显示指针的位置

如果上面的打勾（选上），当用户按 CTRL 键时， windows 会画几个圆， 我想在我的工程中显示一下Windows 的“当按 CTRL 键时显示指针的位置”的效果！！！（不用按 CTRL 键）

类似于：

procedure TForm1.Button1Click(Sender: TObject);
var
ScreenDC : HDC;
PointA : TPoint;
S_Canvas : TCanvas;
I, LeltP, BottomP, RightP, TopP : integer;
RectA : PRect;
begin
GetCursorPos(PointA);
ScreenDC:=GetDC(0);
S_Canvas:=TCanvas.Create;

with S_Canvas do
begin
Pen.Color:=clBlue;
Pen.Width:=3;
Handle:=ScreenDC;
Brush.Style:=bsClear;

for I := 8 downto 1 do
begin
LeltP:=PointA.X - I * 15;
TopP:=PointA.Y + I * 15;
RightP:=PointA.X + I * 15;
BottomP:=PointA.Y - I * 15;
Ellipse(LeltP, TopP, RightP, BottomP);
Sleep(100);
end;
//InvalidateRect(S_Canvas.Handle, RectA, True);
end;
DeleteDC(ScreenDC);
end;

把所有的 record 都换成 packed record 试试吧，应该是对齐的问题

谢谢， 试过了， 不行！！！