Note: the code does NOT work under Win NT systems (XP, 2000)
For more info check the "Big brother Delphi code toolkit"
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure SystemKeys(Disable: Boolean) ;
var OldVal : LongInt;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,
Word(Disable), @OldVal, 0) ;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Hide Title Bar
« IsTrueTypeFont
