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