Question

delphi 怎么把键盘搞死?

用delphi 代码 怎么把键盘搞死?
就像挂机锁那样的程序！

Answer 1

转来的程序，你试着用下吧。。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

Answer 2

搜索注册表里的键盘驱动程序，就是从设备管理器看到的那个键盘的驱动程序详细信息，然后编个程序给随便找个文件给它替换掉，下次重启动键盘就玩完了。