foxjose desavilitar teclas cuando tu sistema no require de usar el teclado bueno para aplicacion con codigo de barras


Primero tienes que crear una clase Personalizada donde desactivas todas las teclas, pero es un poco largo, entonces te doy una alternativa suponiendo que tienes un formulario para el ingreso de datos, sería algo así: 

En el evento KeyPress del Form 
LPARAMETERS nKeyCode, nShiftAltCtrl 
If nKeyCode = LastKey() 
Wait Window "No se aceptan teclas" 
NODEFAULT 
EndIF 

En el evento UnloadQuery 
Nodefault && Esto es para que no se ejecute el evento 
*-- en caso de que se presione ALT+F4 

Nota: 
*-- La propiedad KeyPreview = .t. 
*-- SET ESCAPE OFF && Para que al pres. ESC no se interrumpa el prog.