Dicas - Habilitando/Desabilitando o Crtl+Alt+Del

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Habilitando e Desabilitando o Ctrl+Alt+Del do Windows.

Habilitando e Desabilitando o Ctrl+Alt+Del do windows.

 

Esta dica serve para você criar uma aplicação e deseja que ela não seja fechada por este método, então você coloca o código para desabilitar o Ctrl+Alt+Del, que nós veremos logo abaixo, no Onshow do seu formulario, e quando alguém for tentar fechar, aquela tela "Fechar Programa" não aparecerá. Mas não se esqueça de abilitar de novo, porque esta tela não aparecerá nem para outra aplicação enquanto você não habilitá-la.

Inicie o Delphi, crie uma nova aplicação. Coloque dois botões no seu form, sete a propriedade caption do button1 para Desabilitar e o button2 para Habilitar (apenas para diferênciar).

No evento OnClick do botão Desabilitar, insira o código abaixo:

 

procedure TForm1.Button1Click(Sender: TObject);

const

  SPI_SCREENSAVERRUNNING = 97;

var

  OldValue : Longbool;

begin

  SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(True), @OldValue,0);

end;

 

Agora, no evento OnClick do botão Habilitar insira o códigó abaixo:

 

procedure TForm1.Button2Click(Sender: TObject);

const

  SPI_SCREENSAVERRUNNING = 97;

var

  OldValue : Longbool;

begin

  SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(False), @OldValue,0);

end;

 

Agora salve a sua aplicação, rode o programa e clique no botão Desabilitar. Faça o Teste e veja se a tela aparece ?? Não !! isso ai então funcionou, agora clique no botão Habilitar e faça o teste novamente para ver se tudo voltou ao normal.

Esta dica não é apenas uma brincadeira, existem várias possibilidades bem sérias onde ele pode ser usada. Espero que eu possa ter lhe ajudado dando esta dica.

 

Feito po Marco Antonio

marco@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?