不难的问题(200分)

  • 主题发起人 xie_huan
  • 开始时间
X

xie_huan

Unregistered / Unconfirmed
GUEST, unregistred user!
&nbsp;如何使所有的键盘动作失去响应,所有的程序都不接受键盘输入。或者屏蔽热键Alt+Esc,<br>Alt+Tab,还有Alt+F4等等
 
向鍵盘的端口写0<br>
 
拦截键盘消息。
 
98下可以用API让系统认为屏幕保护程序正在运行,<br>2K及XP就没办法!关注
 
to cxz9:<br>&nbsp; 我是初学者,不知道怎么做,能否详细点?<br>&nbsp; &nbsp; 谢谢(一定送上200分)
 
这里是屏的<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; temp:integer;<br>begin<br>&nbsp; SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@temp,0);<br>end;<br>这里是解屏的<br>procedure TForm1.Button2Click(Sender: TObject);<br>var<br>&nbsp; temp:integer;<br>begin<br>&nbsp; SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@temp,0);<br>end;
 
var tmp:integer; <br>begin<br>  tmp := 0;<br><br>  //屏蔽 Alt-Tab <br>  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0); <br><br>  //屏蔽 Ctrl-Alt-Del<br>  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0);   <br>end;<br>
 
BlockInput 函数就可以拉
 
顶部