This article demonstrates how to enable / disable task switching.
var
OldValue : LongBool;
begin
{turns the trap on}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{turns the trap off}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;