Bloquear acesso ao Windows

Delphi

30/05/2003

:arrow: Como faço para bloquear essa teclas: Alt+Tab e Windows (aquela do lado do Control), enquanto meu programa estiver aberto.


Fmd

Fmd

Curtidas 0

Respostas

Rafael Roni

Rafael Roni

30/05/2003

(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;


GOSTEI 0
Fmd

Fmd

30/05/2003

[quote:a6498ccc71=´rafael roni´](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;[/quote:a6498ccc71]

Infelizmente esse método não funciona no Windows XP. Mas, obrigado pela ajuda.


GOSTEI 0
Vmotta

Vmotta

30/05/2003

Ola.

Espero que sirva pra você, fiz uma Unit para bloquear algumas combinações de teclas no XP, veja se te ajuda ok?

pega em:
http://www.vmotta.cjb.net/xp/

T+
Vitor Hugo


GOSTEI 0
POSTAR