Hay algun código para bloquear la tecla ctrl?

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

<!-- Codigo ofrecido por tutores.org -->
<script language="JavaScript">function tecla(){alert('EL TECLADO BLOQUEADO')}; document.onkeydown=tecla;</script>