R3层 检 测 HideToolz的Delphi代码

原理很简单,检查系统托盘区内容是否包含"HideToolz"字串.

假如用HideToolz把Explorer.exe隐藏起来,那么上述代码就检测不到了.

此处复制内容到剪贴板代码:

ToolBarHnd := FindWindowEx(0, 0, Shell_TrayWnd , nil)

ToolBarHnd := FindWindowEx(ToolBarHnd, 0, TrayNotifyWnd , nil)

ToolBarHnd := FindWindowEx(ToolBarHnd, 0, SysPager , nil)

ToolBarHnd := FindWindowEx(ToolBarHnd, 0, ToolbarWindow32 , nil)

if ToolBarHnd = 0 then

begin

Exit

end 会跳出函数,当然你也可以跳出之前加入处理代码,防止Explorer.exe被隐藏.

完整的代码和测试包含在附件中,运行project1.exe,如果HideToolz开启会MessageBox否则没有任何提示安静的退出.

-R3 layer testing of Delphi code HideToolz principle is very simple to check whether the system tray area contains " HideToolz"　string. HideToolz If the Explorer.exe with hidden, then the code could not be detected above the. Here the code to copy the contents to the clipboard : ToolBarHnd: = FindWindowEx (0, 0, ' Shell_TrayWnd' , nil)　ToolBarHnd: = FindWindowEx (ToolBarHnd, 0, ' TrayNotifyWnd' , nil)　ToolBarHnd: = FindWindowEx (ToolBarHnd, 0, ' SysPager' , nil)　ToolBarHnd : = FindWindowEx (ToolBarHnd, 0, ' ToolbarWindow32' , nil)　if ToolBarHnd = 0 then begin Exit　end　will be out of function, of course, before you can jump out to deal with code, to prevent hidden Explorer.exe. complete code and test included in the Annex, the operation project1.exe, open HideToolz will MessageBox if there is no prompt or a quiet exit.