下面的过程来自Sunset大虾:<br>目的是干掉系统键,但你的要求自然可以实现<br><br> type<br> TKeyState = ( kbOn, kbOff );<br><br> procedure SetSystemKey( value : TKeyState );<br> var<br> NoUse : integer;<br> begin<br> case value of<br> kbOn : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @NoUse, 0);<br> kbOff : SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @NoUse, 0);<br> end;<br> end;<br>