Procedure DisableWinKeys(Value : Boolean);
Var
Dummy : Integer;
State : Byte;
Begin
If Value Then State:=1 Else State:=0;
Dummy:=0;
SystemParametersInfo(SPI_SETFASTTASKSWITCH,State,@Dummy,0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING,State,@Dummy,0);
End;