whisht

    十年

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

2011年11月16日

摘要: 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 阅读(794) 评论(0) 推荐(0) 编辑

摘要: //调用键盘钩子,屏蔽功能键function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT; stdcall; var hHk :HHOOK; //创建勾子hHk:= SetWindowsHook... 阅读全文
posted @ 2011-11-16 21:23 WHISHT 阅读(194) 评论(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 阅读(136) 评论(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 阅读(184) 评论(0) 推荐(0) 编辑

摘要: 对应的注册表键值HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr1不可用,0可用。 阅读全文
posted @ 2011-11-16 21:18 WHISHT 阅读(146) 评论(0) 推荐(0) 编辑