Fórum Desabilitar CRTL ALT DELETE #166114

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.

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>