Desabilitar CRTL ALT DELETE

Delphi

24/06/2003

e ai moçada...

como faço para desabilitar o CTRL+ALT+DELETE do windows 2000 do 98 e do Me?????

e sem mostrar a aplicação rodando....

Alemão


By Alemão

By Alemão

Curtidas 0

Respostas

Coppola

Coppola

24/06/2003

Tente fazer isso, Eu sei que funcionar no win 98, mas nao testei em outras versões!!!!

No envento 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.


GOSTEI 0
Vmotta

Vmotta

24/06/2003

Pessoal, criei uma unit alternativa para bloquear o micro no windows XP e 2000, espero que te ajudem.
Basta inserir a unit no projeto,e no inicio do arquivo pas está esxplicando como usa-la ...

http://web.eep.br/~vmotta/xp/

qq dúvida me mandem um e-mail ...
Vitor <vmotta@eep.br>


GOSTEI 0
POSTAR