var<br>tmp:integer;<br>begin<br> tmp := 0;<br> //屏蔽 Alt-Tab 查看其它,可以看到很多信息;<br> SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @tmp, 0);<br> //屏蔽 Ctrl-Alt-Del<br> SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @tmp, 0);<br>end;<br><br><br>Or<br>procedure Tmainform.Lockkey(lock: boolean);<br>begin<br> if lock = true then<br> begin<br> asm //封锁20端口 锁定键盘 98&95<br> IN AL,21H<br> OR AL,02H<br> OUT 21H,AL<br> end;<br> end<br> else<br> begin<br> asm //解锁20端口 解锁键盘<br> IN AL,21H<br> AND AL,0FDH<br> OUT 21H,AL<br> end;<br> end;<br>end; <br>