HanDs
NO.2

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





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

转帖,不仅锁键盘连鼠标都不能动了.你自己改下
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 


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