Win32彙編教程七 控制元件的子類化 (轉)

Win32彙編教程七 控制元件的子類化 (轉)[@more@]

--------------------------------------------------------------------------------

有關子類化

說到類，大家可能馬上就想到C++，的確，類首先是在C中提出的，但是，這個概念在 Asm 中仍然適用，因為在類的思路是這樣的：先假設某個有不同的屬性，當一個新的物件的某個屬性和上面所說的物件有些不同，而別的屬性一模一樣，那麼實際上除了處理這個屬性的程式碼有些不同外，別的程式碼完全可以使用前面的物件的程式碼。在具體的應用中，我舉個例子，比如說我們定義一個 "edit" 控制元件，那麼這個控制元件的行為是由 內定的，因為它的視窗過程是在 Windows 內部的，但假如我們想編一個有語法檢查的 "edit" 控制元件，是否我們除了語法檢查的程式碼以外，還要編寫很多程式碼來實現老的 "edit" 控制元件一模一樣的功能呢？答案當然是否定的，實際上，我們可以截獲一個標準 "edit"控制元件的 WM_CHAR 訊息，檢查鍵入的鍵並做處理，別的訊息可以傳給原來的視窗過程。示意如下：

在子類化之前： Windows => edit 控制元件的視窗過程

在子類化之後： Windows => 我們的過程程式碼 => edit 控制元件的視窗過程

在Windows 的 中有個可以用來實現這個功能，那就是 SetWindowLong PROTO hWnd,nIndex,dwNewLong ，引數的意思是 hWnd 是你要改變的視窗控制程式碼，nIndex 是我們要改變視窗的什麼屬性，它的值可以是 GWL_EXSTYLE：改變視窗風格，GWL_WNDPROC：設定視窗的新的過程，這正是我們感興趣的，還有是 GWL_USERDATA 這是視窗自定義的一個32位的資料。dwNewLong 是新的值，還有一個 API 是用來原來的視窗過程的，叫 CallWindwoProc PROTO lpPrevWndFunc,hWnd,Msg,wParam,lParam。
我們在使用時有下面的過程：

用 SetWindowLong,hWnd,GWL_WNDPROC,addr _NewProcAddress 設定我們自己的程式碼的地址，API 返回原來的過程地址
用 SetWindowLong,hWnd,GWL_USERDATA,eax 把原來的過程地址儲存在自定義資料中。
這樣，所有訊息會先送到我們的過程中，然後在我們自己的過程中：
對要處理的訊息進行處理，如果不希望原來的過程再處理，那麼返回。
對自己不處理的訊息，呼叫原來的視窗過程處理，並把返回值返回。方法是：
用 invoke GetWindowLong,hWnd,GWL_USERDATA 取出自定義資料中儲存的原過程地址
用 invoke CallWindowProc,eax,hWnd,uMsg,wParam,lParam 呼叫原過程 UINT uStructSize}
本節教程提供了一個源，它是實現對話方塊中的文字的 URL 連線過程，我們看到有的程式中的文字是藍色的，有下劃線，然後滑鼠移動到上面會變手型，就象中的超聯結一樣，而且按下會自動連線到網站上，仔細想想，我們並沒有一個標準的控制元件或 API 來實現這樣一個功能，因為這首先是一個文字，所以我們可以對這個文字進行子類化，處理它的WM_LBUTTONUP 訊息來實現按下自動連上網站的功能；處理 WM_SETCURSOR 訊息來讓滑鼠移到上面改變游標，具體源程式如下：

源程式 - 資源

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;************************************************
#include

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Icon 1000 開始
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#define IDI_MAIN 1000
#define IDC_HANDLE 2000

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 對話方塊 3000 開始
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
#define DLG_ABOUT 3000

#define ID_E 3001
#define ID_HOMEPAGE 3002

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 資源定義開始
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
IDI_MAIN ICON "Main.ico"
IDC_HANDLE CURSOR "Handle.cur"
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DLG_ABOUT DIALOG DISCARDABLE 50, 50, 160, 30
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "URL 聯結文字演示 - by 羅雲彬"
FONT 9, "宋體"
BEGIN
LTEXT "我的主頁: ",-1, 5,5,54,9
LTEXT "", ID_HOMEPAGE, 55,5,80,9
LTEXT "我的: ", -1, 5,17,54,9
LTEXT "bigluo@telekbird.com.cn",ID_, 55,17,95,9
END

源程式 - 原始檔

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 是否包括程式碼
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DE = 0
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Programmed by 羅雲彬, bigluo@telekbird.com.cn
; site: .net
; LuoYunBin's Win32 ASM page (羅雲彬的樂園)
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 版本資訊
; 視窗子類化演示程式 Ver 1.0
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

.386
.model flat, stdcall
option casemap :none ; case sensitive

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 資料
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

include windows.inc
include user32.inc
include kernel32.inc
include comctl32.inc
include comdlg32.inc
include 32.inc
include gdi32.inc

includelib user32.lib
includelib kernel32.lib
includelib comctl32.lib
includelib comdlg32.lib
includelib shell32.lib
includelib gdi32.lib

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 資料
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

IDI_MAIN equ 1000 ;icon
IDC_HANDLE equ 2000 ;handle cursor

DLG_ABOUT equ 3000 ;dialog - about
ID_EMAIL equ 3001
ID_HOMEPAGE equ 3002

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 資料段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

.data?

hInstance dd ?
hIcon dd ?

szBuffer 256 dup (?)

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
_HyinkProc proto :D,:DWORD,:DWORD,:DWORD
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

.data

hCursorHandle dd ?
szHomePage db ".net",0
szEmail db "mailto:bigluo@telekbird.com.cn"
db "?subject=嗨！我喜歡你的程式！",0

.code

if DEBUG
include Debug.asm
endif
;********************************************************************
; 關於對話方塊中超級連線的視窗程式
;********************************************************************
_HyperLinkProc proc hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

mov eax,uMsg
.if eax == WM_LBUTTONUP
invoke GetDlgCtrlID,hWnd
.if eax == ID_HOMEPAGE
invoke ShellExecute,0,0,offset szHomePage,0,0,0
.elseif eax == ID_EMAIL
invoke ShellExecute,0,0,offset szEmail,0,0,0
.endif
.elseif eax == WM_NCHITTEST
;將 WM_NCHITTEST 返回 TRUE 可以接收滑鼠動作，實現按下功能 !
mov eax,TRUE
ret
.elseif eax == WM_SETCURSOR
invoke SetCursor,hCursorHandle
.else
invoke GetWindowLong,hWnd,GWL_USERDATA
invoke CallWindowProc,eax,hWnd,uMsg,wParam,lParam
ret
.endif
xor eax,eax
ret

_HyperLinkProc endp
;********************************************************************
; 對話方塊視窗主程式
;********************************************************************
AboutDialogProc proc uses ebx edi esi,
hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
local @stWindow:RECT
local @dwWidth:DWORD,@dwHeight:DWORD
local @hWinTemp:DWORD
local @stFont:LOGFONT,@hFontOutput:DWORD

mov eax,uMsg
.if eax == WM_CLOSE
invoke EndDialog,hWnd,NULL
.elseif eax == WM_INITDIALOG
invoke GetModuleHandle,NULL
invoke LoadCursor,eax,IDC_HANDLE
mov hCursorHandle,eax
invoke GetDlgItem,hWnd,ID_HOMEPAGE
mov @hWinTemp,eax
invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax
invoke GetDlgItem,hWnd,ID_EMAIL
mov @hWinTemp,eax
invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax
.elseif eax == WM_CTLCOLORSTATIC
invoke GetDlgCtrlID,lParam
.if eax == ID_HOMEPAGE || eax == ID_EMAIL
invoke SendMessage,lParam,WM_GETFONT,0,0
mov @hFontOutput,eax
invoke Get,@hFontOutput,sizeof LOGFONT,addr @stFont
mov @stFont.lfUnderline,TRUE
invoke CreateFontIndirect,addr @stFont
mov @hFontOutput,eax
invoke Object,wParam,eax
invoke SetTextColor,wParam,Blue
invoke GetSylor,COLOR_MENU
invoke SetBkColor,wParam,eax
invoke DeleteObject,@hFontOutput
;********************************************************************
; 注意此處一定要把StockOject的返回值返回，否則無法顯示顏色
;********************************************************************
invoke GetStockObject,HOLLOW_BRUSH
.else
mov eax,FALSE
ret
.endif
ret
.else
;********************************************************************
; 注意：對話方塊的訊息處理後，要返回 TRUE,對沒有處理的訊息
; 要返回 FALSE
;********************************************************************
mov eax,FALSE
ret
.endif
mov eax,TRUE
ret

AboutDialogProc endp

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 程式開始
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

start:
invoke InitCommonControls
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke DialogBoxParam,hInstance,DLG_ABOUT,
NULL,offset AboutDialogProc,DLG_ABOUT
invoke ExitProcess,NULL
;********************************************************************
end start
程式的分析和要點

在資源中，我們定義了兩個文字框，ID 分別為 ID_HOMEPAGE 和 ID_EMAIL，在主對話方塊的過程的 initdialog 訊息中，我們用 GetDlgItem 取的它們的 hWnd，然後進行子類化，我們把新的過程設定到了 _HyperLinkProc 中

invoke GetDlgItem,hWnd,ID_HOMEPAGE
mov @hWinTemp,eax
invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax
invoke GetDlgItem,hWnd,ID_EMAIL
mov @hWinTemp,eax
invoke SetWindowLong,@hWinTemp,GWL_WNDPROC,addr _HyperLinkProc
invoke SetWindowLong,@hWinTemp,GWL_USERDATA,eax

然後在新的處理過程中，檢測到 WM_LBUTTONUP 訊息（滑鼠左鍵放開）就使用 ShellExecute API 來連到網站，檢測 WM_NCHITTEST 來使文字控制元件接收滑鼠的訊息，檢測 WM_SETCURSOR 訊息把游標設定成手形，對這些訊息以外的訊息我們是不處理的，那就用 CallWindowProc 來呼叫原來的過程進行處理。

.if eax == WM_LBUTTONUP
invoke GetDlgCtrlID,hWnd
.if eax == ID_HOMEPAGE
invoke ShellExecute,0,0,offset szHomePage,0,0,0
.elseif eax == ID_EMAIL
invoke ShellExecute,0,0,offset szEmail,0,0,0
.endif
.elseif eax == WM_NCHITTEST
;將 WM_NCHITTEST 返回 TRUE 可以接收滑鼠動作，實現按下功能 !
mov eax,TRUE
ret
.elseif eax == WM_SETCURSOR
invoke SetCursor,hCursorHandle
.else
invoke GetWindowLong,hWnd,GWL_USERDATA
invoke CallWindowProc,eax,hWnd,uMsg,wParam,lParam
ret
.endif