自己不懂的几个问题

1. 一个机房管理系统的客户端程序   用户登陆前，程序是全屏锁定电脑  用户登录后程序最小化到任务栏，用鼠标右键右键点击可以执行系列操作   请问这个的实现原理是什么  2.
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  xd:trect;
begin              //限定鼠标
   xd:=p1.BoundsRect;
   mapwindowpoints(handle,0,xd,2);
   clipcursor(@xd);
end;上边那段代码是则么实现限制鼠标移动的？