Sometimes we do not want users to use the procedure to be Alt + Tab, Ctrl + Alt + Del, Ctrl + Esc keys to interrupt, and other system functions (such as automatic presentation program), then how to do that? You are prompted, in the run screen saver, these function keys are non-functional - that is to say, as long as you are in the running, "deceit" about windows, it is thought the screen Protection of the state has become! See the following code:
Var
Temp: integer;
Begin
SystemParametersInfo (SPI_SCREENSAVERRUNNING, 1, @ temp, 0);
End;
Of course, at the end of the procedure in the tens of millions do not forget to restore setting, the Windows "wake-up." Code is as follows:
Var
Temp: integer;
Begin
SystemParametersInfo (SPI_SCREENSAVERRUNNING, 0, @ temp, 0);
End; |
