Desabilitar ALT TAB, ou só ALT, ou só TAB???? (Correção)

Delphi

05/02/2003

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Á...


Anonymous

Anonymous

Curtidas 0

Respostas

Dor_poa

Dor_poa

05/02/2003

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;


GOSTEI 0
POSTAR