delphi 怎么把键盘搞死?

用delphi代码怎么把键盘搞死?就像挂机锁那样的程序!... 用delphi 代码 怎么把键盘搞死?
就像挂机锁那样的程序!
展开
 我来答
luckyso111
2010-04-22 · TA获得超过208个赞
知道大有可为答主
回答量:261
采纳率:0%
帮助的人:234万
展开全部
转来的程序,你试着用下吧。。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
madaraii
2010-04-22 · TA获得超过668个赞
知道小有建树答主
回答量:842
采纳率:41%
帮助的人:286万
展开全部
搜索注册表里的键盘驱动程序,就是从设备管理器看到的那个键盘的驱动程序详细信息,然后编个程序给随便找个文件给它替换掉,下次重启动键盘就玩完了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式