Desabilitando/habilitando o teclado
Oi pessoal, coloquei num Form um button e no seu evento onClick
adicionei este código:
{Desabilita o teclado}
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(Pchar(´rundll32 keyboard,disable´),sw_Show);
end;
Tentei habilitar o teclado mas não consegui. [color=blue:fde45fe387]Como faço para habilitá-lo?[/color:fde45fe387]
Tentei habilitá-lo com este código:
procedure TForm1.Button2Click(Sender: TObject);
begin
winexec(Pchar(´rundll32 keyboard,enabled´),sw_Show);
end;
Aparece a seguite mensagem:
[color=red:fde45fe387]Erro em keyboard
Está faltando a entrada:enabled[/color:fde45fe387]
adicionei este código:
{Desabilita o teclado}
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(Pchar(´rundll32 keyboard,disable´),sw_Show);
end;
Tentei habilitar o teclado mas não consegui. [color=blue:fde45fe387]Como faço para habilitá-lo?[/color:fde45fe387]
Tentei habilitá-lo com este código:
procedure TForm1.Button2Click(Sender: TObject);
begin
winexec(Pchar(´rundll32 keyboard,enabled´),sw_Show);
end;
Aparece a seguite mensagem:
[color=red:fde45fe387]Erro em keyboard
Está faltando a entrada:enabled[/color:fde45fe387]
Ginosam
Curtidas 0
Respostas
Kroki
17/08/2003
Não sabia que existia esse código.
Eu fiz estes:
procedure desabilita;
asm
mov al,$ad
out $64, al
end;
procedure habilita;
asm
mov al, $ae
out $64, al
end;
Eu fiz estes:
procedure desabilita;
asm
mov al,$ad
out $64, al
end;
procedure habilita;
asm
mov al, $ae
out $64, al
end;
GOSTEI 0
Glaubergs
17/08/2003
eu tambem naum conheço esse código, mas se está disable em um, tente enable em outro ...
GOSTEI 0