锁定<br>procedure hidekey;<br>Var<br>temp:integer;<br>begin<br>SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);<br>end;<br>解锁<br>procedure hidekey;<br>Var<br>temp:integer;<br>begin<br>SystemParametersInfo(Spi_screensaverrunning,0,@temp,0);<br>end;<br>