应该没有这样的api 只能通过enablewindow来禁止窗口接收输入 另外可以通过汇编程序来禁止键盘 procedure TForm1.Lockkey(lock: boolean); begin if lock = true then begin asm //封锁20端口 锁定键盘 98&95 IN AL,21H OR AL,02H OUT 21H,AL end; end else begin asm //解锁20端口 解锁键盘 IN AL,21H AND AL,0FDH OUT 21H,AL end; end; end; 在2000下不行,因为2000不支持对端口直接操作(in,out)
只能通过enablewindow来禁止窗口接收输入
另外可以通过汇编程序来禁止键盘
procedure TForm1.Lockkey(lock: boolean);
begin
if lock = true then
begin
asm //封锁20端口 锁定键盘 98&95
IN AL,21H
OR AL,02H
OUT 21H,AL
end;
end
else
begin
asm //解锁20端口 解锁键盘
IN AL,21H
AND AL,0FDH
OUT 21H,AL
end;
end;
end;
在2000下不行,因为2000不支持对端口直接操作(in,out)