Mostrando Codigo - Delphi

<!-- 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;

<!-- 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 -->

Joe 31-12-2009 22:20:26

informasion
del programa
descrito

camilo rojas

¿Como puedo bloquear la escritura en un campo de texto de un formulario?
Respondan a mi email.

ramon 28-11-2009 00:10:12

quiero desactivar/desactivar teclado y mouse de un equipo remoto por medio de un programa en delphi
por su ayuda Gracias!!!