Dicas - Teclas do Windows

Esta dica ensina como travar as teclas de atalhos do Windows.

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

 

Ebook exclusivo
Dê um upgrade no início da sua jornada. Crie sua conta grátis e baixe o e-book

Artigos relacionados