typedef struct _WNDCLASS {
　　UINT style;
　　WNDPROC lpfnWndProc;
　　int cbClsExtra;
　　int cbWndExtra;
　　HINSTANCE hInstance;
　　HICON hIcon;
　　HCURSOR hCursor;
　　HBRUSH hbrBackground;
　　LPCTSTR lpszMenuName;
　　LPCTSTR lpszClassName;
　　} WNDCLASS, *PWNDCLASS;

long CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);//聲明
//WinMain函數(shù)是所有Windows應用程序的入口，類似c語言中的main函數(shù)其功能是完成//一系列的定義和初始化，并產(chǎn)生消息循環(huán)。函數(shù)說明：
int WINAPI WinMain(HINSTANCE hInstance,    // handle to current instance
　　             HINSTANCE hPrevInstance, // handle to previous instance
　　             LPSTR lpCmdLine,       // command line
　               int nCmdShow           // show state
)
{
    //初始化，初始化包括窗口類的定義、注冊、創(chuàng)建窗口實例和顯示窗口四部分
　　HWND hwnd;
　　MSG Msg;
　　WNDCLASS wndclass;
　　char lpszClassName[]="窗口"; //窗口類名
　　char lpszTitle[]="測試窗口"; //窗口標題名
　　//窗口類定義，窗口類定義了窗口的形式與功能，窗口類定義通過給窗口類數(shù)據(jù)結構WNDCLASS賦值完成
　　//該數(shù)據(jù)結構中包含窗口類的各種屬性
　　wndclass.style =0; // 窗口類型為缺省類型CS_   Class Style
　　wndclass.lpfnWndProc=WndProc; //定義窗口處理函數(shù)
　　wndclass.cbClsExtra=0; //窗口類無擴展
　　wndclass.cbWndExtra=0; //窗口實例無擴展
　　wndclass.hInstance=hInstance; //當前實例句柄
　　wndclass.hIcon=LoadIcon(NULL,IDI_APPLICATION); //窗口的最小化圖標為缺省圖標
　　wndclass.hCursor=LoadCursor(NULL,IDC_ARROW); // 窗口采用箭頭光標
　　wndclass.hbrBackground=(HBRUSH)(GetStockObject(WHITE_BRUSH)); //窗口背景為白色
　　wndclass.lpszMenuName=NULL; //窗口無菜單
　　wndclass.lpszClassName=lpszClassName; //窗口類名為“窗口”
　　//以下是窗口類的注冊-----------Windows系統(tǒng)本身提供部分預定義的窗口類，程序員也可以自定義窗口類，窗口類必須先注冊后使用。
　　if(!RegisterClass(&wndclass)) //如果注冊失敗 發(fā)出警告
　　   {MessageBeep(0); return FALSE;}
　　//創(chuàng)建窗口創(chuàng)建一個窗口的實例由函數(shù)CreateWindow()實現(xiàn)
　　hwnd=CreateWindow( lpszClassName, //窗口類名，創(chuàng)建窗口時一定要基于我們已經(jīng)注冊過的窗口類名，即"窗口"。
　　                  lpszTitle, //窗口標題名
　　                  WS_OVERLAPPEDWINDOW, //窗口的風格 WS_ Windows Style
　　                  CW_USEDEFAULT, //窗口左上角坐標值為缺省值 CW_ Create Wndow
　                  　CW_USEDEFAULT,
　                  　CW_USEDEFAULT, //窗口的高和寬為缺省值
                     CW_USEDEFAULT,
                 　 　NULL, //此窗口無父窗口
                 　 　NULL, //此窗口無子菜單
                 　 　hInstance, //創(chuàng)建此窗口的應用程序的當前句柄
                  　　NULL //不使用該值
　　);
　　//顯示窗口
　　ShowWindow(hwnd,nCmdShow);
　　//繪制用戶區(qū)
　　UpdateWindow(hwnd);
　　//消息循環(huán)
　　while(GetMessage(&Msg,NULL,0,0)) //GetMessage()函數(shù)是從調(diào)用線程的消息隊列中取出一條消息；對于每一個應用程序窗口線程，操作系統(tǒng)都會為其建立一個消息隊列，當我們的窗口有消息時（即所有與這個窗口線程相關的消息），操縱系統(tǒng)會把這個消息放到該線程的消息隊列當中，我們的窗口程序就通過這個GetMessage()函數(shù)從自己的消息隊列中取出一條一條具體的消息并進行響應操作。
　　{
　　TranslateMessage(&Msg);//對"消息對"的轉化，如對鍵盤的WM_KEYDOWN和WM_KEYUP消息對轉化為WM_CHAR消息，并且將轉換后的新消息投遞到我們的消息隊列中去，這個轉化操作不會影響原來的消息，只會產(chǎn)生一個新的消息。
　　DispatchMessage(&Msg);//DispatchMessage()函數(shù)是將我們?nèi)〕龅南鞯酱翱诘幕卣{(diào)函數(shù)去處理；可以理解為該函數(shù)將取出的消息路由給操作系統(tǒng)，然后操作系統(tǒng)去調(diào)用我們的窗口回調(diào)函數(shù)對這個消息進行處理。
    }
　　return Msg.wParam; //消息循環(huán)結束 即程序結束時 將信息返回系統(tǒng)
 }
 
//窗口函數(shù)，窗口函數(shù)定義了應用程序對接收到的不同消息的響應，其中包含了應用程序對各種可能接受到的消息的處理過程，時消息處理分支控制語句的集合
long CALLBACK WndProc(HWND hwnd,
　　                 UINT message,
　                   WPARAM wParam,
                    LPARAM lParam)
{
　　switch(message)
　　{
　　　　case WM_DESTROY:
　　　　　　PostQuitMessage(0);
　　　　default: //缺省時采用系統(tǒng)消息缺省處理函數(shù)
　　　　　　return DefWindowProc(hwnd,message,wParam,lParam);
　　}
　　return (0);
}

WNDPROC OldWndProc;
LRESULT CALLBACK NewWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam){
    switch (Msg)
    {
      ......
    }
    return CallWindowProc(OldWndProc,g_Wnd,Msg,wParam,lParam);
}
OldWndProc = (WNDPROC)GetWindowLong(g_Wnd,GWL_WNDPROC);
SetWindowLong(hwnd, GWL_WNDPROC,(LPARAM)(WNDPROC)NewWndProc);

 function MouseHookProc(nCode: Integer; wPar: WPARAM; lPar: LPARAM): lResult; stdcall;

PMouseHookStruct = ^TMouseHookStruct; 
tagMOUSEHOOKSTRUCT = packed record 
 pt: TPoint; 
 hwnd: HWND; 
 wHitTestCode: UINT; 
 dwExtraInfo: DWORD; 
end; 
TMouseHookStruct = tagMOUSEHOOKSTRUCT; 

function GetMsgProc(nCode: Integer; wPara: WPARAM; lPara: LPARAM) 
 : lResult; stdcall; 
var 
 hGetMsgHook：HHOOK；  
 Msg: TMsg; 
begin 
 if (nCode >= 0) then 
 begin 
  FillChar(pMsgData^, Sizeof(TMessageRecord), #0); 
  Msg := TMsg(Pointer(lPara)^); 
 end; 
 Result := CallNextHookEx(hGetMsgHook, nCode, wPara, lPara); 
end; 

typedef struct _WNDCLASS{
　　        UINT style;
           WNDPROC lpfnWndProc;
　          int cbClsExtra;
　          int cbWndExtra;
           HANDLE hInstance;
　          HICON hIcon;
           HCURSOR hCursor;
           HBRUSH hbrBackground;
           LPCTSTR lpszMenuName;
　          LPCTSTR lpszClassName;
}WNDCLASS;