摘要:
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 阅读全文
摘要:
//调用键盘钩子,屏蔽功能键function keyHookProc(nCode: Integer; LWParam: WPARAM; LLParam: LPARAM): LRESULT; stdcall; var hHk :HHOOK; //创建勾子hHk:= SetWindowsHook... 阅读全文
摘要:
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; 阅读全文
摘要:
function SetTaskBar(LVisible: Boolean): Boolean; //隐藏-显示任务条var h: THandle;begin if LVisible then begin h:=FindWindow('Shell_TrayWnd',nil); Sh... 阅读全文
摘要:
对应的注册表键值HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr1不可用,0可用。 阅读全文