高手帮忙，锁定鼠标和键盘问题

Question

有没有现成的函数或API函数来锁定键盘和鼠标,  就是使键盘和鼠标失效
类似网吧管理软件那样，用户不能再玩机器，除非重启
  
 

Answer 1

我会把鼠标限制在一定区域内
procedure TForm1.Button1Click(Sender: TObject);
var
rtButton2: TRect;
begin
rtButton2 := Button2.BoundsRect;
MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算
ClipCursor(@rtButton2); // 限制鼠标移动区域
end;
// 还原
procedure TForm1.Button2Click(Sender: TObject);
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;

Answer 2

用   clipcursor  可以把鼠标限制在一定的范围，
  getcurosorpos(youVAR)
then
  ClipCursor(youVar.x,youVar.y);
还有用   BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT      BLOCKINPUT   
可以把鼠标键盘  锁住，
不过要放在TIMER 中不然的话你只有   ctrl +alt  +deletet 了
呵呵，我忘了结贴被扣分了给我一点分好吗？？？