win32汇编环境,窗口程序中使控件子类化的示例一

;运行效果

;win32汇编环境,窗口程序中使编辑框控件子类化的示例一
;窗口子类化，就是把某种控件，自已再打造一遍，加入自已的功能。比如弄个特殊形状的按钮，或只能输入特殊字符的编辑框
;当然，一般来说，这都是很麻烦的事儿。其它的语言，像VC之类的，有子类的概念，其原理也是这些，但是又进行了更复杂的封装。所以，知其然更知其所以然，很重要。
;这里的例子，是把默认的编辑框，弄成只能输入十六进制的编辑框。
;复制下面代码进RadAsm可直接编译。重要部分加备注。
;下面为asm文件

.386
.model flat,stdcall
option casemap:none
include windows.inc
include user32.inc
includelib user32.lib
include kernel32.inc
includelib kernel32.lib
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
EditWndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.DATA
ClassName db "SimpleWinClass",0
AppName db "窗口程序的模版",0
szSTClass db "static",0 ;静态控件类名
szSTCaption db "该编辑框只能输入十六进制数值:",0

EditClass db "EDIT",0 ;编辑框的类名
Message db "你按下了回车键",0

.DATA?
hInstance HINSTANCE ?
CommandLine LPSTR ?

hwndEdit dd ?
OldWndProc dd ?
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.CODE

start:
invoke GetModuleHandle, NULL
mov hInstance,eax
invoke GetCommandLine
mov CommandLine,eax
invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
invoke ExitProcess, eax
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
LOCAL wc:WNDCLASSEX
LOCAL msg:MSG
LOCAL hwnd:HWND

mov wc.cbSize,SIZEOF WNDCLASSEX
mov wc.style, CS_HREDRAW or CS_VREDRAW
mov wc.lpfnWndProc, OFFSET WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInstance
pop wc.hInstance
mov wc.hbrBackground,COLOR_WINDOW
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,OFFSET ClassName
invoke LoadIcon,NULL,IDI_APPLICATION
mov wc.hIcon,eax
mov wc.hIconSm,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
invoke RegisterClassEx, addr wc
invoke CreateWindowEx,NULL, ADDR ClassName,ADDR AppName,WS_OVERLAPPEDWINDOW,100,100,270,150, NULL,NULL,hInst, NULL
mov hwnd,eax
invoke ShowWindow, hwnd,CmdShow
invoke UpdateWindow, hwnd

.while TRUE
invoke GetMessage, ADDR msg,NULL,0,0
.break .if (!eax)
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
.endw
mov eax,msg.wParam
ret
WinMain endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
.if uMsg == WM_CREATE
invoke CreateWindowEx,NULL,ADDR szSTClass,ADDR szSTCaption, WS_CHILD + WS_VISIBLE,20, 20, 250, 20,hWnd,NULL,NULL,NULL ;创建静态控件，用来显示文本

invoke CreateWindowEx,WS_EX_CLIENTEDGE,ADDR EditClass,NULL,WS_CHILD+WS_VISIBLE+WS_BORDER,20,50,210,25,hWnd,NULL,hInstance,NULL ;创建编辑框
mov hwndEdit,eax ;保存编辑框的句柄
invoke SetFocus,eax ;让编辑框得到焦点，就是程序启动后光标在编辑框里

invoke SetWindowLong,hwndEdit,GWL_WNDPROC,addr EditWndProc ;把原来的窗口函数地址替换为自定义窗口函数的地址
mov OldWndProc,eax ;返回值则是原来的窗口函数地址

.elseif uMsg == WM_DESTROY
invoke PostQuitMessage,NULL
.else
invoke DefWindowProc,hWnd,uMsg,wParam,lParam
ret
.endif
xor eax,eax
ret
WndProc endp
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
EditWndProc PROC hEdit:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD ;这个窗口函数是插入主窗口消息循环的函数，只截取了2个消息，即下面的 WM_CHAR 和 WM_KEYDOWN，其它的消息不管，仍交回原主窗口 WndProc 函数处理
.if uMsg == WM_CHAR ;截取了WM_CHAR消息，相当于在这个编辑框里按任何字符，都在这里面处理。而里面除了处理这十六个字符和删除键backspace键外，没有对其它字符的处理，所以会导致按其它的字符没有反应
mov eax,wParam
.if (al>="0" && al<="9") || (al>="A" && al<="F") || (al>="a" && al<="f") || al==VK_BACK
.if al>="a" && al<="f"
sub al,20h ;加上20h是让小写的变成大写的
.endif
invoke CallWindowProc,OldWndProc,hEdit,uMsg,eax,lParam ;如果在CHAR消息发生时，不是在这些范围内的字符，则返回这个地址 OldWndProc 函数继续执行，就是返回原来的主窗口WndProc函数执行其它消息
ret
.endif
.elseif uMsg==WM_KEYDOWN ;截取了WM_KEYDOWN消息
mov eax,wParam
.if al == VK_RETURN ;如果按了回车键，则显示输入的是什么内容
invoke MessageBox,hEdit,addr Message,addr AppName,MB_OK+MB_ICONINFORMATION
invoke SetFocus,hEdit
.else
invoke CallWindowProc,OldWndProc,hEdit,uMsg,wParam,lParam ;如果在按键消息发生时，不是按的回车键，则返回这个地址 OldWndProc 函数继续执行
ret
.endif
.else
invoke CallWindowProc,OldWndProc,hEdit,uMsg,wParam,lParam ;如果不是上面的 WM_CHAR 和 WM_KEYDOWN 消息，则返回这个地址 OldWndProc 函数继续执行
ret
.endif
xor eax,eax
ret
EditWndProc endp