在NT/win2000下如何锁住键盘鼠标？急！

-- 问题点数：50、回复次数：4Top

1 楼zx_wang（wzx）回复于 2002-04-12 11:13:04 得分 0

BlockInput   API函数Top

2 楼avay（）回复于 2002-04-12 11:14:53 得分 0

大哥，能具体点吗Top

3 楼zx_wang（wzx）回复于 2002-04-12 11:21:46 得分 50

function   BlockInput(fBlock:   Boolean):   Boolean;stdcall;external   'USER32.DLL';  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      BlockInput(true);  
      Sleep(5000);  
      BlockInput(False);  
  end;Top

4 楼avay（）回复于 2002-04-12 11:25:37 得分 0

谢谢，给分Top

相关问题

• blockinput
• boolean

• 帖主：avay
• zx_wang

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