请问如何锁定鼠标和键盘

请问如何锁定鼠标和键盘，有源码的最好提供，本人菜鸟！！ 问题点数：20、回复次数：4Top

1 楼jinjintalk（西门吹雪）回复于 2004-09-03 15:37:06 得分 1

把系统热键全部Disable,然后弄一个无标题无边框的全屏表单Top

2 楼fei19790920（饭桶超人II（抵制日货））回复于 2004-09-03 15:44:12 得分 18

//   Import   BlockInput   function   form   user32.dll:    
  //   BlockInput   Funktion   von   user32.dll   importieren:    
   
  function   BlockInput(fBlockInput:   Boolean):   DWORD;   stdcall;   external   'user32.DLL';    
   
  {block   input/   blockieren}    
   
  procedure   TForm1.Button1Click(Sender:   TObject);    
  begin    
      BlockInput(True);    
  end;    
   
  {Unblock   input   /   Blockierung   aufheben}    
   
  procedure   TForm1.Button2Click(Sender:   TObject);    
  begin    
      BlockInput(False);    
  end;    
  Top

3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2004-09-03 15:49:01 得分 1

就上面的BlockInput   API了Top

4 楼Conworld（）回复于 2005-01-29 13:23:18 得分 0

TO   fei19790920：  
  你的方法确实实现了锁键盘和鼠标，但锁定后，如果按Ctrl+Alt+Del，再点取消，则会自动解锁，  
  这是为什么啊，如何解决，谢谢  
  Top

相关问题

• 鼠标
• 键盘
• dll
• blockinput
• 请问如何
• 锁定鼠标和键盘
• tobject
• proceduretform1
• user32
• sender

• 帖主：hbuzcy
• jinjintalk
• fei19790920
• ly_liuyang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载