本源码主要演示Delphi锁定鼠标和键盘10秒后解锁，数字键、字母键和大部分功能键以及鼠标全部键都将锁定不能操作，但对键盘中的“Power”键、“Sleep”键、“WakeUp”键无效。锁定10秒后会自动解锁。 　　begin 　　iflock('USER32.DLL','BlockInput',@forbid)then 　　begin 　　forbid(True);//禁止键盘鼠标 　　Sleep(10000);//等待10秒 　　forbid(False);//允许键盘鼠标 　　end; 　　end;