Desabilitar ALT TAB, ou só ALT, ou só TAB???? (Correção)
05/02/2003
0
Gostaria de desabilitar as teclas ALT e TAB. Tenho o WinXP e o seguinte comando não funciona:
procedure TfrmRelatorio.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
keypreview:=true;
if (Key = VK_Tab) and (ssAlt in Shift) then
Key := 0;
EXISTE OUTRA MANEIRA?????????
AGRADEÇO DESDE JÁ...
procedure TfrmRelatorio.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
keypreview:=true;
if (Key = VK_Tab) and (ssAlt in Shift) then
Key := 0;
EXISTE OUTRA MANEIRA?????????
AGRADEÇO DESDE JÁ...
Anonymous
Curtir tópico
+ 0
Responder
Posts
05/02/2003
Dor_poa
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;
(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
Clique aqui para fazer login e interagir na Comunidade :)