为什么在win7下全局键盘钩子（用delphi写的）会失效？（在xp下测试能用）如果是权限问题，要怎么提权？

可以通过代码和设置编译器的两种方式来做到。 delphi我禅族模贺缓不会，我给你C++的代码，你改一下就行了： //提权 HMODULE hDll = ::LoadLibrary("ntdll.dll")typedef int (__stdcall * type_RtlAdjustPrivilege)(int, bool, bool, int*)type_RtlAdjustPrivilege RtlAdjustPrivilege = (type_RtlAdjustPrivilege)GetProcAddress(hDll, "RtlAdjustPrivilege")int nEn = 0RtlAdjustPrivilege(0x14,TRUE,FALSE,&nEn)FreeLibrary(hDll)//结束穗亩

键盘钩子功能键失去焦点检查调整重启。

1、win加R，输入regedit，高察败回车。

2、打开注册表，找到HKEYCURRENTUSER，ControlPanel，Desktop下的ForegroundLockTimeout项。

3、.双击打开，发现里没丛面数值数据为零，将其改为30d40（系统默认）或者6位以上的任何十进制数据即可。

4、重启电戚颤脑。

易语言全局键盘钩子失效可能是由于几种原因造成的：

1. 系统未正确安装易语言，可能存在.dll文件缺失，或者安装过程出现错误等问题导致钩子安装失败；

2. 易语言运行环境有损坏，可能是病毒、木马等破坏或者系统更新等原因损坏了运行环境的易语言安装；

3. 易语言程序可能存在BUG，当程序运行到一定位置时，导致易语言钩子失效；

4. 当前 *** 作系统中有其他程序对圆消易语言的钩子进行了拦截或者修改，导致易语言的钩子失效；

因此，要解决易语言全局键盘钩子失效问题，首先需要将系统中的易语言重新安装或恢复到正确的配置，然后检盯备查系统 *** 作环境及程序本身，最后再检查凯腔毁系统中是否有其他程序对易语言钩子进行拦截或修改。

---