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函數是所有Windows應用程序的入口，類似c語言中的main函數其功能是完成//一系列的定義和初始化，并產生消息循環。函數說明：int WINAPI WinMain(HINSTANCE hInstance,    // handle to current instance　　             HINSTANCE hPrevInstance, // handle to previous instance　　             LPSTR lpCmdLine,       // command line　               int nCmdShow           // show state){    //初始化，初始化包括窗口類的定義、注冊、創建窗口實例和顯示窗口四部分　　HWND hwnd;　　MSG Msg;　　WNDCLASS wndclass;　　char lpszClassName[]="窗口"; //窗口類名　　char lpszTitle[]="測試窗口"; //窗口標題名　　//窗口類定義，窗口類定義了窗口的形式與功能，窗口類定義通過給窗口類數據結構WNDCLASS賦值完成　　//該數據結構中包含窗口類的各種屬性　　wndclass.style =0; // 窗口類型為缺省類型CS_   Class Style　　wndclass.lpfnWndProc=WndProc; //定義窗口處理函數　　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系統本身提供部分預定義的窗口類，程序員也可以自定義窗口類，窗口類必須先注冊后使用?！　f(!RegisterClass(&wndclass)) //如果注冊失敗 發出警告　　   {MessageBeep(0); return FALSE;}　　//創建窗口創建一個窗口的實例由函數CreateWindow()實現　　hwnd=CreateWindow( lpszClassName, //窗口類名，創建窗口時一定要基于我們已經注冊過的窗口類名，即"窗口"?！　?                 lpszTitle, //窗口標題名　　                  WS_OVERLAPPEDWINDOW, //窗口的風格 WS_ Windows Style　　                  CW_USEDEFAULT, //窗口左上角坐標值為缺省值 CW_ Create Wndow　                  　CW_USEDEFAULT,　                  　CW_USEDEFAULT, //窗口的高和寬為缺省值                     CW_USEDEFAULT,                 　 　NULL, //此窗口無父窗口                 　 　NULL, //此窗口無子菜單                 　 　hInstance, //創建此窗口的應用程序的當前句柄                  　　NULL //不使用該值　　);　　//顯示窗口　　ShowWindow(hwnd,nCmdShow);　　//繪制用戶區　　UpdateWindow(hwnd);　　//消息循環　　while(GetMessage(&Msg,NULL,0,0)) //GetMessage()函數是從調用線程的消息隊列中取出一條消息；對于每一個應用程序窗口線程，操作系統都會為其建立一個消息隊列，當我們的窗口有消息時（即所有與這個窗口線程相關的消息），操縱系統會把這個消息放到該線程的消息隊列當中，我們的窗口程序就通過這個GetMessage()函數從自己的消息隊列中取出一條一條具體的消息并進行響應操作?！　　　TranslateMessage(&Msg);//對"消息對"的轉化，如對鍵盤的WM_KEYDOWN和WM_KEYUP消息對轉化為WM_CHAR消息，并且將轉換后的新消息投遞到我們的消息隊列中去，這個轉化操作不會影響原來的消息，只會產生一個新的消息。　　DispatchMessage(&Msg);//DispatchMessage()函數是將我們取出的消息傳到窗口的回調函數去處理；可以理解為該函數將取出的消息路由給操作系統，然后操作系統去調用我們的窗口回調函數對這個消息進行處理。    }　　return Msg.wParam; //消息循環結束 即程序結束時 將信息返回系統 } //窗口函數，窗口函數定義了應用程序對接收到的不同消息的響應，其中包含了應用程序對各種可能接受到的消息的處理過程，時消息處理分支控制語句的集合long CALLBACK WndProc(HWND hwnd,　　                 UINT message,　                   WPARAM wParam,                    LPARAM lParam){　　switch(message)　　{　　　　case WM_DESTROY:　　　　　　PostQuitMessage(0);　　　　default: //缺省時采用系統消息缺省處理函數　　　　　　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;