怎样屏蔽或打开windows里的快捷键

屏蔽
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;