Fórum como desabilitar as teclas Ctrl esc e Ctrl Alt Del? #158448
07/05/2003
0
podem me ajudar sou meio que iniciante, ja tentei a dica do site do clube do delphi, mas não funcionou, se alguem puder me ajudar agradeço.
valeu
valeu
Hc
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Marcelo.c
007 - Desabilitar Teclas Ctrl+Alt+Del
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
Responder
Gostei + 0
07/05/2003
Hc
marcelo eu ja tentei essa linha de codigo, e só pra me certifica eu testei de novo e não funcionou as teclas continuam funcionando, por acaso o windows utilizado influencia? eu estou utilizando o XP?
Responder
Gostei + 0
12/05/2003
Vmotta
esse comando funnciona até o ME :
var
i: LongInt;
begin
SystemParametersInfo(97,Word(true),@i,0);
end;
no XP e Windows 2000 nao funciona, tb estou procurando uma solução, se alguem achar a resposta me manda um e-mail por favor:
vmotta@eep.br
Obrigado
Vitor
var
i: LongInt;
begin
SystemParametersInfo(97,Word(true),@i,0);
end;
no XP e Windows 2000 nao funciona, tb estou procurando uma solução, se alguem achar a resposta me manda um e-mail por favor:
vmotta@eep.br
Obrigado
Vitor
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)