不需要DLL的全局钩子完成鼠标截屏功能

       效果是点击截屏以后程序判断鼠标按下和鼠标抬起两个事件得到拉出的矩形，以这个矩形大小抓屏，画到Image上。使用的钩子类型是WH_MOUSE_LL所以不需DLL就可以达到全局钩子的效果。下面是代码，希望对研究这方面的兄弟有帮助。

//---------------------------------------------------------------------------
CutScreenForm.h:
#ifndef CutScreenFormH
#define CutScreenFormH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <AppEvnts.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TPanel *Panel1;
        TPanel *Panel2;
        TImage *Image1;
        TButton *Button1;
        TApplicationEvents *ApplicationEvents1;
        void __fastcall ApplicationEvents1Message(tagMSG &Msg,
          bool &Handled);
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall Button1Click(TObject *Sender);

private:    // User declarations

#define CM_ENTIRESCREEN 1
#define CM_ACTIVEWINDOW 2
public:        // User declarations
        __fastcall TForm1(TComponent* Owner);
        void __fastcall CaptureRect(int x,int y);
        void __fastcall DisableHook();
        LONG    width,height;
        HDC     DesktopDC;
        void __fastcall EnableHook();

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
bool    ButtonDown = true;          //按钮状态
RECT    CapRect;                   //屏幕矩形区域
HHOOK   hook=NULL;                 //     存放新钩子句柄
void   DispXY(int x,int y);
LRESULT   CALLBACK   MouseHook(int   nCode, 
                               WPARAM   wParam,
                               LPARAM   lParam);
//---------------------------------------------------------------------------
#endif


CutScreenForm.cpp:

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CutScreenForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
  if   (Msg.message   ==   WM_MOUSEMOVE)
        {
                int   x   =   LOWORD(Msg.lParam);
                int   y   =   HIWORD(Msg.lParam);
                Caption   =   Format("x   =   %d,   y   =   %d",ARRAYOFCONST((x,y))); 
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EnableHook()
  {
        if   (hook==NULL)           //     安装新钩子
             hook=SetWindowsHookEx(WH_MOUSE_LL,
             (HOOKPROC)MouseHook,
             GetModuleHandle(NULL),
             0);
  }

LRESULT   CALLBACK   MouseHook(int   nCode,
                               WPARAM   wParam,
                               LPARAM   lParam) 
  {
          if   (nCode>=HC_ACTION)
                {
                        if (wParam == WM_LBUTTONDOWN)
                        {
                                ButtonDown = true;
                                MOUSEHOOKSTRUCT   *lPara=(MOUSEHOOKSTRUCT   *)lParam;
                                Form1->CaptureRect(lPara->pt.x,lPara->pt.y);
                        }else if(wParam == WM_LBUTTONUP)
                        {
                                ButtonDown = false;
                                MOUSEHOOKSTRUCT   *lPara=(MOUSEHOOKSTRUCT   *)lParam;
                                Form1->CaptureRect(lPara->pt.x,lPara->pt.y);
                                return(CallNextHookEx(hook,nCode,wParam,lParam));
                        }else if(wParam == WM_MOUSEMOVE){
                                return(CallNextHookEx(hook,nCode,wParam,lParam));
                        }
                     
                }
  }

void __fastcall TForm1::CaptureRect(int x,int y)
  {
       if(ButtonDown)
       {
                CapRect.top = y;
                CapRect.left = x;
       }else
       {
                if(CapRect.top > y)
                {
                        CapRect.bottom = CapRect.top;
                        CapRect.top = y;
                }else
                {
                        CapRect.bottom = y;
                }
                if(CapRect.left > x)
                {
                       CapRect.right = CapRect.left;
                       CapRect.left = x;
                }else
                {
                       CapRect.right = x;
                }
                DesktopDC   =   GetDC(GetDesktopWindow());     //   创建内存设备描述表
                width   =   CapRect.right   -   CapRect.left;
                height   =   CapRect.bottom   -   CapRect.top;
                BitBlt(Image1->Canvas->Handle,0,0,width,height,DesktopDC,
                CapRect.left,CapRect.top,SRCCOPY);
                Image1->Repaint();
                DisableHook();
       }
  }

  void __fastcall TForm1::DisableHook()
  {
        if   (hook!=NULL) 
        {
                UnhookWindowsHookEx(hook);
                hook=NULL;               //   卸掉新钩子
         }
  }
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        DisableHook();       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        EnableHook();       
}
//---------------------------------------------------------------------------