关于VC编写鼠标全局钩子的一点改进[源代码]

我这个VB程序员的VC编码体验

/********************************************************************/
/* 文件名: MyMouseHook.cpp           */
/*                 */
/* 功能: 标准 DLL ---- 利用鼠标全局钩子实现右键双击粘贴功能   */
/*                 */
/* 作者: 李博 (booolee)   时间: 2004.9.18      */
/*                 */
/* BLOG: http://blog.csdn.net/booolee        */
/********************************************************************/

// 导出函数列表
// StartHook
// StopHook
// About

#define _WIN32_WINNT  0x0500    // 设置系统版本, 确保可以使用底层鼠标钩子

#include "windows.h"
#include <string.h>

// 全局变量
HINSTANCE g_hInstance = NULL;    // 模块实例句柄
HHOOK  g_hHook = NULL;     // 钩子句柄

// DLL 入口函数
BOOL APIENTRY DllMain(HANDLE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
 // 保存模块实例句柄
 g_hInstance = (HINSTANCE)hModule;
 
 // 在进程结束或线程结束时卸载钩子
 switch (ul_reason_for_call)
 {
 case DLL_PROCESS_ATTACH:
  break;
 case DLL_THREAD_ATTACH:
  break;
 case DLL_PROCESS_DETACH:
 case DLL_THREAD_DETACH:
  if (g_hHook != NULL) UnhookWindowsHookEx(g_hHook);
  break;
 }
    return TRUE;
}

// 底层鼠标钩子函数
LRESULT CALLBACK MouseHookProc(int nCode, WPARAM wParam, LPARAM lParam)
{
 LPMOUSEHOOKSTRUCT pMouseHook=(MOUSEHOOKSTRUCT FAR *) lParam;
 if (nCode>=0)
 {  
  //双击鼠标右键进行粘贴操作
  if (wParam==WM_RBUTTONDBLCLK)
  {   
   HWND glhTargetWnd=pMouseHook->hwnd;   
   if(glhTargetWnd !=NULL)
   {
     SendMessage(glhTargetWnd,WM_PASTE,0,0);   
     return TRUE;
   }
  }
  //单击鼠标中键进行数据复制
  if(wParam==WM_MBUTTONUP)
  {
   HWND glhTargetWnd=pMouseHook->hwnd; 
   LPTSTR tmpstr=NULL;
   char buf[100];
   SendMessage(glhTargetWnd,WM_GETTEXT,sizeof(buf)/sizeof(char),(LPARAM)(void*)buf);
   int dwLength = 100; // 要复制的字串长度
   HANDLE hGlobalMemory = GlobalAlloc(GHND, dwLength + 1); // 分配内存
   LPBYTE lpGlobalMemory = (LPBYTE)GlobalLock(hGlobalMemory); // 锁定内存
   for (int i = 0; i < dwLength-1; i++) // 将buf复制到全局内存块
   {
    //如果是米或平方米的单位字符，则不进行复制
    if(buf[i]!='m')
    {
     *lpGlobalMemory++ = buf[i];
    }
    else
    {
     break;
    }
   }
   GlobalUnlock(hGlobalMemory); // 锁定内存块解锁   
   OpenClipboard(NULL);
   EmptyClipboard(); // 清空剪贴板
   SetClipboardData(CF_TEXT, hGlobalMemory); // 将内存中的数据放置到剪贴板
   CloseClipboard(); // 关闭剪贴板
   //MessageBox(NULL,buf,NULL,MB_OK);

   //通过消息方式进行复制代码开始
   //if(glhTargetWnd!=NULL)
   //{
   // SendMessage(glhTargetWnd,WM_COPY,0,0);
   // return TRUE;
   //} 
   //通过消息方式进行复制代码结束
  }
 }
 // 传给系统中的下一个钩子
 return CallNextHookEx(g_hHook, nCode, wParam, lParam);
}

/********************************************************************/
/* 安装鼠标钩子              */
/* 参数: (无)             */
/* 返回值: TRUE 成功, FALSE 失败         */
/********************************************************************/
BOOL WINAPI StartHook()
{
 // 如果已经安装鼠标钩子则返回 FALSE
 if (g_hHook != NULL) return FALSE;
 
 // 安装底层鼠标钩子
 g_hHook = SetWindowsHookEx(WH_MOUSE, MouseHookProc, g_hInstance, NULL);
 if (g_hHook == NULL) return FALSE;
 MessageBox(NULL,"启动成功!/n/n复制功能：单击鼠标中键（滚轮）复制数据到剪贴板/n粘贴功能：双击鼠标右键从剪贴板粘贴数据/n复制时自动去除米和平米单位","BOBO鼠标粘贴器1.1",MB_OK);
 return TRUE; 
}

/********************************************************************/
/* 卸载鼠标钩子              */
/*                 */
/* 参数: (无)             */
/*                 */
/* 返回值: TRUE 成功, FALSE 失败         */
/********************************************************************/
BOOL WINAPI StopHook()
{
 // 卸载钩子
 if (UnhookWindowsHookEx(g_hHook) == 0) return FALSE;
 g_hHook = NULL;
 MessageBox(NULL,"卸载成功!","BOBO鼠标粘贴器",MB_OK);
 return TRUE;
}

BOOL WINAPI About()
{
 MessageBox(NULL,"作者：李博/n功能：快速通过鼠标进行剪贴板操作/n日期：2004.9.25/n邮件：booolee@yahoo.com.cn","关于BOBO鼠标粘贴器 1.1",MB_OK);
 return TRUE;
}