Delphi中限制鼠标的移动区域

下面把鼠标的移动区域限制在(100,100,200,200)

var
rect:TRect;
begin
rect.Left:=100;
rect.Top:=100;
rect.Bottom:=200;
rect.Right:=200;
windows.ClipCursor(@rect);
end;

恢复鼠标的移动区域
windows.ClipCursor(0);