System Delphi

procedure DisableAltTab;
var
iTemp: Integer;
begin
iTemp := 0;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @iTemp, 0);
end;