whisht

　　　　十年
  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::

2011年11月16日

DELPHI实现键盘勾子
摘要： 1//调用键盘钩子，屏蔽功能键2functionkeyHookProc(nCode:Integer;LWParam:WPARAM;LLParam:LPARAM):LRESULT;stdcall;34var5hHk:HHOOK;67//创建勾子8hHk:=SetWindowsHookEx(13,@keyHookProc,HInstance,0);910functionkeyHookProc(nCode:Integer;LWParam:WPARAM;LLParam:LPARAM):LRESULT;//调用键盘钩子，屏蔽功能键11var12p:PKBDLLHOOKSTRUCT;13y:integer 阅读全文
posted @ 2011-11-16 21:23 WHISHT 阅读(823) 评论(0) 推荐(0)

DELPHI实现键盘勾子
摘要： //调用键盘钩子，屏蔽功能键function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT; stdcall; var hHk :HHOOK; //创建勾子hHk:= SetWindowsHook... 阅读全文
posted @ 2011-11-16 21:23 WHISHT 阅读(219) 评论(0) 推荐(0)

隐藏显示任务栏
摘要： 1functionSetTaskBar(LVisible:Boolean):Boolean;//隐藏-显示任务条2var3h:THandle;4begin5ifLVisiblethen6begin7h:=FindWindow('Shell_TrayWnd',nil);8ShowWindow(h,SW_SHOW);//隐藏任务条9end10else11begin12h:=FindWindow('Shell_TrayWnd',nil);13ShowWindow(h,SW_HIDE);//显示任务条14end;15Result:=true;16end; 阅读全文
posted @ 2011-11-16 21:19 WHISHT 阅读(146) 评论(0) 推荐(0)

隐藏显示任务栏
摘要： function SetTaskBar(LVisible: Boolean): Boolean; //隐藏-显示任务条var h: THandle;begin if LVisible then begin h:=FindWindow('Shell_TrayWnd',nil); Sh... 阅读全文
posted @ 2011-11-16 21:19 WHISHT 阅读(192) 评论(0) 推荐(0)

设置window任务管理器是否可用
摘要： 对应的注册表键值HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr1不可用，0可用。 阅读全文
posted @ 2011-11-16 21:18 WHISHT 阅读(158) 评论(0) 推荐(0)