Delphi - Como Bloquear el teclado
Códigos Delphi
Una de las formas de hacer un bloqueo en el teclado
Tutores.org
Mostrando Codigo - Delphi
CODIGO
<!-- Codigo ofrecido por Tutores.org -->
- Uses
- SysUtils;
- function PortIn(IOAddr : Word) :Byte;
- begin
- asm
- mov dx,IOAddr
- in al,dx
- mov result,al
- end;
- end;
- procedure PortOut(IOAddr : Word; Data : Byte);
- begin
- asm
- mov dx,IOAddr
- mov al,Data
- out dx,al
- end;
- end;
- procedure LockKeyboard(Lock:Boolean);
- begin
- if Lock then
- PortOut($21,PortIn($21) or 2) else
- PortOut($21,PortIn($21) and 253);
- end;
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Como Bloquear el teclado" href="http://www.tutores.org/codigo/713/" target="_blank">Como Bloquear el teclado</a>
<!-- Final enlace Tutores.org -->
<a title="Tutores.org - Como Bloquear el teclado" href="http://www.tutores.org/codigo/713/" target="_blank">Como Bloquear el teclado</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
camilo rojascamilo rojas
3
5
¿Como puedo bloquear la escritura en un campo de texto de un formulario?
Respondan a mi email.
Respondan a mi email.
Comentario usuario
ramon
28-11-2009 00:10:12
5
5
quiero desactivar/desactivar teclado y mouse de un equipo remoto por medio de un programa en delphi
por su ayuda Gracias!!!
por su ayuda Gracias!!!
INSERTAR COMENTARIO