作者：Victor Chen
　　来自：C++ 爱好者
　　http://www.cppfans.com
　　
　　--------------------------------------------------------------------------------
　　
　　程序介绍:
　　
　　利用这个程序:
　　1.可以监视在你的电脑运行的程序, 把在你的电脑运行过的程序的时间和名字记录下来;
　　2.可以阻止你规定的禁用程序的执行, 比如不让玩游戏。
　　3.这个程序需要加入注册表, 在系统启动时就运行, 达到监视的目的。注册表大概都不生疏，就是这里:
　　HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun
　　
　　程序的记录格式:
　　
　　2003-02-03 17:31:25 - [System Startup - Windows XP 5.01.2600]
　　2003-02-03 17:31:29 "CabinetWClass" - "我的电脑"
　　2003-02-03 17:31:59 "Red Alert" - "Red Alert" (关闭禁用程序)
　　2003-02-03 17:32:19 "扫雷" - "扫雷" (关闭禁用程序)
　　2003-02-03 17:32:35 "OpusApp" - "Microsoft Word"
　　2003-02-03 17:32:50 - [System Shutdown - 0 days, 0 hrs, 1 mins, 25 secs]
　　
　　2003-02-03 17:35:37 - [System Startup - Windows 98 SE 4.10.2222]
　　2003-02-03 17:35:53 "扫雷" - "扫雷" (关闭禁用程序)
　　2003-02-03 17:36:05 "CabinetWClass" - ""
　　2003-02-03 17:36:31 "Red Alert" - "Red Alert" (关闭禁用程序)
　　2003-02-03 17:36:56 "ExploreWClass" - ""
　　2003-02-03 17:37:07 - [System Shutdown - 0 days, 0 hrs, 1 mins, 30 secs]
　　
　　程序运行只需要3个文件:
　　hwhpapp.exe 可执行文件
　　hwhpdrv.dll 安装钩子的动态链接库
　　hwhpapp.cfg 禁用软件黑名单, 可用记事本修改
　　程序运行会自动产生记录文件:
　　hwhpapp.sys 可以用记事本打开看
　　
　　程序原理:
　　
　　一．钩子
　　利用 API 函数 SetWindowsHookEx() 安装一个全局钩子, 钩子类型为 WH_SHELL。
　　WH_SHELL 钩子可监视所有应用程序的主窗口创建或者关闭。
　　最典型的应用就是 Windows 的状态栏，当程序运行时，把主窗口的标题加入状态栏，程序退出时，从状态栏删除。
　　假如你截获这个钩子，可以做到禁止状态栏的显示，也可以自己作一个状态栏，或者作一个历史记录，把所有在你电脑曾经运行的程序记录下来。假如运行的程序不是你希望的，你可以直接关闭这个程序，达到禁止运行的目的。
　　
　　二．动态链接库
　　由于钩子是全局的，必须把这个钩子定义到 .DLL 的动态链接库里，这就涉及到建立动态链接库。
　　
　　三．共享内存
　　由于钩子是安装到系统里的，钩子的运行是在操作系统里面，因此这个钩子不能使用你的程序所定义的任何全局变量！
　　既然如此，有什么办法解决呢？在本程序里利用共享内存技术，利用 API 函数 CreateFileMapping() 可创建共享内存，这个内存可以在任何运行的程序中使用，也就是说任何运行的 .EXE、.DLL 和其他程序都可以使用这块内存。在本程序中直接使用了 Victor 串口 VCL 控件里的 TSharedMemory 共享内存类。
　　
　　
　　四．记录文件和软件黑名单文件
　　把所有在你的电脑执行的程序记录保存在一个文本文件里, 因为扩展名为 .txt 很轻易被发现，因此采用扩展名 .sys
　　软件黑名单文件保存在 .cfg 文件里，同样因为 .ini 文件很轻易发现并且打开修改。
　　这两个文件都保存在与你的 .exe 文件的相同文件夹里，并且与 .exe 文件同名.
　　
　　五．保证你的程序只能同时运行一个
　　假如你同时运行两个程序，记录文件就会乱套，所以必须保证只能运行一个。
　　当你的程序刚开始运行的时候，就是在 WinMain() 函数的最开始，就要判定是否已经运行了，假如已经运行，就直接退出。
　　判定的方法很简单，就是检查程序共享的内存是否存在，假如检查到共享的内存已经存在，那就是已经运行了。
　　
　　六．程序隐身, 不能显示在任务栏和任务治理器里面
　　这个也很简单，只要在主程序的 Application-Run(); 前面加一句话：
　　SetWindowLong(Application-Handle, GWL_EXSTYLE, GetWindowLong(Application-Handle, GWL_EXSTYLE)WS_EX_TOOLWINDOW);
　　就可以了。
　　
　　
　　--------------------------------------------------------------------------------
　　
　　程序介绍
　　.DLL 文件：这是最要害的钩子的代码:
　　
　　#include vcl.h
　　#include "yb_base.h" //Victor 串口控件里面的一个头文件
　　
　　#define MYAPPMARK "VICTOR_APPMONI_20010612" //共享内存标志
　　
　　class __export THookedProcs
　　{
　　   public:
　　       THookedProcs();
　　       ~THookedProcs();
　　       void WINAPI InitFuncs(void);
　　       void WINAPI UninitFuncs(void);
　　   private:
　　       HHOOK hThisHook; //保存钩子的句柄
　　       static LRESULT CALLBACK HookedShellProc(int nCode, WPARAM wParam, LPARAM lParam);
　　};
　　
　　//定义共享的数据结构
　　typedef strUCt
　　{
　　  HHOOK hHook; //当前使用的 HOOK
　　//... 此处可增加其他共享的数据
　　} THookSharedData;
　　
　　THookedProcs::THookedProcs()
　　{
　　  hThisHook = NULL;
　　}
　　
　　THookedProcs::~THookedProcs()
　　{
　　   UninitFuncs();
　　}
　　
　　void WINAPI THookedProcs::InitFuncs(void)
　　{
　　   UninitFuncs();
　　   hThisHook = SetWindowsHookEx(WH_SHELL, (HOOKPROC) HookedShellProc, HInstance, 0);
　　   TSharedMemory AppMem(MYAPPMARK,4096); //在 EXE 文件里共享的内存
　　   THookSharedData *HookSharedData = ((THookSharedData*)(AppMem.AppInfo-Data)); //共享的数据
　　   HookSharedData-hHook = hThisHook; //把 hThisHook 保存到共享内存里
　　}
　　
　　void WINAPI THookedProcs::UninitFuncs(void)
　　{
　　   if(hThisHook)
　　   {
　　       
　　 UnhookWindowsHookEx(hThisHook);
　　       hThisHook = NULL;
　　   }
　　}
　　
　　LRESULT CALLBACK THookedProcs::HookedShellProc(int nCode, WPARAM wParam, LPARAM lParam)
　　{
　　   TSharedMemory AppMem(MYAPPMARK, 4096); //使用在 .EXE 文件里共享的内存
　　   if(AppMem.Valid)if(AppMem.Exists) //假如共享内存存在
　　   {
　　       HWND hMainWnd = AppMem.AppInfo-hMainForm;
　　
　　       if(hMainWnd)
　　       {
　　           if(nCode==HSHELL_WINDOWCREATED)
　　           {
　　               PostMessage(hMainWnd, WM_USERCMD, UC_WINHOOK, wParam);
　　           }
　　       }
　　   }
　　   //在 Hook 里无法调用 hThisHook, 必须用共享内存里面的 hHook
　　   THookSharedData *HookSharedData = ((THookSharedData*)(AppMem.AppInfo-Data)); //共享的数据
　　   return CallNextHookEx(HookSharedData-hHook, nCode, wParam, lParam);
　　}
　　
　　--------------------------------------------------------------------------------
　　
　　EXE文件主程序的代码:
　　
　　WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR lpCmdLine, int)
　　{
　　   if(!AppMem.Valid)
　　   {
　　       return 1;
　　   }
　　   if(AppMem.Exists) //已经存在 (程序以前已经运行过了,