Desabilitando Teclas

[ferj]

Oi,

Gostaria de saber, como desabilitar teclas do tipo: CTRL+ALT+DEL, ALT+TAB, ALT+F4 num programa em Delphi. Sei que devo usar o onKeyDown mas não sei o resto...

Alguém pode me ajudar?

V@leu!

Fernando Magalhães

[...fabinho]

procedure Desabilita;

var valor: longbool;

begin

SystemParametersInfo(97, word(true), @valor, 0);

end;

procedure Habilita;

var valor: longbool;

begin

SystemParametersInfo(97, word(false), @valor, 0);

end;

O que habilita/desabilita é o TRUE ou FALSE. Não é necessário colocar isto no evento OnkeyDown.

abraço,

...fabinho

ICQ UIN 117459074

[ferj]

funcionou com o CRTL+ALT+DEL e com o ALT+TAB, mas não desabilitou o ALT+F4...

Tem como desabilitá-lo tb?

[ferj]

Pode deixar, já descobri:

Colocando um evento: OnCloseQuery no Form1, ficaria:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

CanClose:=False; {Isso impede o programa de ser fechado}

end;