屏蔽
var
  Dummy: Integer;
begin
  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
end;

打开
var
  Dummy: Integer;
begin
  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, @Dummy, 0);
  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @Dummy, 0);
end;