Question

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

Answer 1

可以通过代码和设置编译器的两种方式来做到。 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 = 0; RtlAdjustPrivilege(0x14,TRUE,FALSE,&nEn); FreeLibrary(hDll); //结束

Answer 2

可以。以。