Como travar as teclas de atalho do Windows

 

Esta dica ensina como travar as teclas de atalhos do windows, tais como, ALT + TAB, CTRL + ALT + DEL, tecla Win95 e seus atalhos, mesmo depois de sua aplicação estar fechada. O código abaixo mostra como fazer isto.

 

 

// Para desabilitar os atalhos.

procedure TForm1.Button1Click(Sender: TObject);

var

  Dummy: Integer;

begin

  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);

  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);

end;

 

/Para habilitar os atalhos.

procedure TForm1.Button2Click(Sender: TObject);

var

  Dummy: Integer;

begin

  SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, @Dummy, 0);

  SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @Dummy, 0);

end;

 

Com esta técnica, você poderá evitar que usuário faça algo que você não deseja, por exemplo utilizar a tecla de atalho (Alt + Tab) para trocar de aplicação, entre outras coisas ...

 

Por Marco Antonio

marco@clubedelphi.net