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