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