[Artem28]

Что-то вроде этого:

Код:

winexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show);

А можешь assambler:

Код:

Отрубить 

Asm  
 in al,21h   
 or al,00000010b  
 out 21h,al    
End;  

Врубить 

Asm  
 in al,21h  
 mov al,0  
 out 21h,al  
 End;