Fórum Desabilitando/habilitando o teclado #175508
17/08/2003
0
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
Curtir tópico
+ 0
Responder
Posts
17/08/2003
Kroki
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;
Responder
Gostei + 0
17/08/2003
Glaubergs
eu tambem naum conheço esse código, mas se está disable em um, tente enable em outro ...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)