System Delphi

Title: How to enable and disable task switching
Question: Never need to disable the user the ability to switch between applications?
I needed it and I found a simply solution...
Answer:
Thats not a very professional way to do it, but it works!
We simulate the start and the end of a screen saver. Simply, not?
Procedure TaskSwitchingStatus( State : Boolean );
Var
OldSysParam : LongInt;
Begin
SystemParametersInfo( SPI_SCREENSAVERRUNNING, Word( State ), @OldSysParam, 0 );
End;