HanDs
管理员

[Delphi文章] 如何锁键盘和打开键盘 



如何锁键盘和打开键盘...(键盘完全无效状态)
最好别用控件...
加点注释.. 


来自:tianlove, 时间:2006-10-17 17:04:51, ID:3598903
转帖,不仅锁键盘连鼠标都不能动了.你自己改下
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 := GetModuleHandle(PChar(LibName));   
if LibHandle <> 0 then   
begin     
LibPointer := GetProcAddress(LibHandle, PChar(FuncName));     
if LibPointer <> NIL then Result := true;   
end;
end;
procedure 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
转帖
锁键盘
procedure TForm1.Button1Click(Sender: TObject);
begin
  Asm    //封锁20端口
    IN AL,21H
    OR AL,02H
    OUT 21H,AL
  end;
end;

解锁键盘:
procedure 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已经禁止,否则返回假

  示例:

  procedure 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;


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
如何 键盘 打开 键盘
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复