网上查到资料
* 调用Windows API函数BlockInput来禁用鼠标和键盘输入
* 需要先使用Declare关键字声明函数原型
Declare Integer BlockInput In win32api
Declare Integer EnableInput In win32api

* 禁用输入
BlockInput(1)
 
* 在此处编写需要在禁用输入的情况下运行的代码
? ' 示例代码，打印一条消息
? ' 你的程序代码应该放在这里
 
* 重新启用输入
EnableInput(1)

实际测试发现禁用只能是BlockInput()括弧内不能加参数，实现禁用键盘鼠标，否则就报错
但是解除禁用，发现“Declare Integer EnableInput In win32api”这句直接报错“在DLL中找不到入口点Enablelnput。”无法实现解除键盘鼠标禁用

Vfp9.0+Windows10环境
麻烦高手指点下，谢谢！如有其他办法实现，烦请给下示例代码，谢谢！

Declare Integer BlockInput In win32api Integer
BlockInput(1)
or
BlockInput(0)

感谢版主，解决了！
Declare Integer BlockInput In win32api Integer   网上资料少了“Integer”这个参数