怎样屏蔽TAB键,怎么样锁定键盘!!!在线等待!!!!
我的程序如下
屏蔽TAB键
procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #09 then exit;
end;
或
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_tab then exit;
end;
以上两种情况都无法截获消息!请高手指点。
锁定键盘:
procedure TForm1.Button1Click(Sender: TObject);
var
lock: boolean;
begin
lock := true;
OleContainer1.OldStreamFormat:=false;
OleContainer1.Handle;
{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;
可是也锁定不了,运行弹出错误(Privileged instruction),我找不出错误来,请高手指点,谢谢!