怎么才能锁定键盘 让键盘的按钮用不起来
发布网友
发布时间：2022-04-21 07:06
共4个回答
热心网友
时间：2022-06-18 15:02
开机后按亮NumLoc，首先在BIOS中把NumLock项设为Enable，然后在BIOS中将PnP With OS项亦设为Enable即可。不过注销用户时NumLock小键盘锁是关闭的，要手工打开。
打开注册表编辑器，找到HKEY_USERS\.DEFAULT\Control Panel\Keyboard，将它下面的InitialKeyboardIndicators的键值改为 2 ，退出注册表编辑器，重新启动计算机，你就会发现数字小键盘的灯不再熄灭了。
另外，仅需要对config.sys文件改动即可达到此目的。设置方法如下：
1.单击 开始 菜单中的 运行 命令，然后在 打开 框中键入 sysedit ，按下回车键，打开 系统配置编辑程序 窗口。
2.单击 Config.sys 标题栏，将它切换为当前编辑窗口，然后在编辑区中键入 NumLock=off 这一行命令。
3.保存修改并关闭 系统配置编辑程序 窗口k键，不要做任何操作，重新启动，以后就不需要再按这个按钮了。
热心网友
时间：2022-06-18 15:03
最好别用控件...
加点注释..
转帖,不仅锁键盘连鼠标都不能动了.你自己改下
function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var LibHandle: tHandle;
begin Result := false;
LibPointer := NIL;
if LoadLibrary(PChar(LibName)) = 0 then exit;
LibHandle := GetMoleHandle(PChar(LibName));
if LibHandle <> 0 then
begin
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
if LibPointer <> NIL then Result := true;
end;
end;
procere TForm1.Button1Click(Sender: TObject);
var xBlockInput :
function (Block: BOOL): BOOL; stdcall;
begin
if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
begin xBlockInput (True); // 禁止键盘鼠标
Sleep(10000); // 等待10秒
xBlockInput (False); // 允许键盘鼠标
end;
end
来自：tianlove, 时间：2006-10-17 17:07:52, ID：3598907
转帖
锁键盘
procere TForm1.Button1Click(Sender: TObject);
begin
Asm //封锁20端口
IN AL,21H
OR AL,02H
OUT 21H,AL
end;
end;解锁键盘：
procere TForm1.Button2Click(Sender: TObject);
begin
Asm //解锁20端口
IN AL,21H
AND AL,0FDH
OUT 21H,AL
end;
end;
来自：天邪狼, 时间：2006-10-17 17:09:13, ID：3598910
我顶[:D]
来自：yunxi126, 时间：2006-10-17 17:29:56, ID：3598939
不能屏蔽del+Alt+ctrl
如何实现屏蔽DEL+ALT+CTRL
来自：_Murray, 时间：2006-10-17 17:35:16, ID：3598942
给个你EMAIL, 我发你一个.
来自：tianlove, 时间：2006-10-17 17:45:10, ID：3598961
也给我一个 xumeitian@163.com
来自：kabeiroy, 时间：2006-10-17 18:51:03, ID：3599016
请给我一个,email:kabeiroy@163.com。
来自：网中戏, 时间：2006-10-17 19:01:57, ID：3599030
语法：EnableWindow(hWnd: HWND; bEnable: BOOL): BOOL;单元：windows.pas 作用：指定的窗口里允许或禁止所有鼠标及键盘输入 返回值：BOOL，如果返回真，WINDOWS已经禁止，否则返回假 示例： procere TForm1.Button1Click(Sender: TObject); begin if (IsWindowEnabled(Edit1.Handle)) then begin EnableWindow(Edit1.Handle,FALSE); Button1.Caption:=‘Enable Window'; Edit1.Text:=‘This window is disabled'; end else begin EnableWindow(Edit1.Handle,TRUE); Button1.Caption:=‘Disable Window'; Edit1.Text:=‘This window is enabled'; end; end;
热心网友
时间：2022-06-18 15:03
热心网友
时间：2022-06-18 15:04
