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
