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]


Ginosam

Ginosam

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;


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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar