SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Delphi
Code

Delphi - Como Bloquear el teclado

Códigos Delphi

Una de las formas de hacer un bloqueo en el teclado
Visitas: 20,308 - 14/10/2003 21:15:12
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


<!-- Codigo ofrecido por Tutores.org -->

  1. Uses
  2.   SysUtils;
  3. function PortIn(IOAddr : Word) :Byte;
  4. begin
  5.   asm
  6.    mov dx,IOAddr
  7.    in al,dx
  8.    mov result,al
  9.   end;
  10. end;
  11. procedure PortOut(IOAddr : Word; Data : Byte);
  12. begin
  13.   asm
  14.    mov dx,IOAddr
  15.    mov al,Data
  16.    out dx,al
  17.   end;
  18. end;
  19. procedure LockKeyboard(Lock:Boolean);
  20. begin
  21.   if Lock then
  22.    PortOut($21,PortIn($21) or 2) else
  23.    PortOut($21,PortIn($21) and 253);
  24. 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 -->
COMENTARIOS
Comentario usuario
31-12-2009 22:20:26
4 5
informasion
del programa
descrito
Comentario usuario
camilo rojas
4 5
¿Como puedo bloquear la escritura en un campo de texto de un formulario?
Respondan a mi email.
Comentario usuario
28-11-2009 00:10:12
3 5
quiero desactivar/desactivar teclado y mouse de un equipo remoto por medio de un programa en delphi
por su ayuda Gracias!!!
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.