RadASM环境，win32汇编入门教程之七

;运行效果

;RadASM环境，win32汇编入门教程之七
;在上一个教程里面，我们学习如何把数据显示出来。但是感觉太丑了，在这一教程里，我们来学习一下怎样让它们变漂亮点。
;主要的内容是如何创建字体，设置字体的大小，设置背景色及文本色等。
;下列就是上一节教程的代码中加一些内容，可以直接复制下来，然后编译运行看看效果
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386 
.model flat,stdcall 
option casemap:none 
include      windows.inc 
include      user32.inc 
include      kernel32.inc 
include      gdi32.inc        

includelib   user32.lib        
includelib   kernel32.lib 
includelib   gdi32.lib         
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD       
                                                
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.DATA                                   
ClassName           db "SimpleWinClass",0        
AppName             db "窗口程序的模版",0
sz_FontName01       db "方正姚体",0
sz_FontName02       db "隶书",0
   
sF db "%d",0
     
hA dd 168 
hD db "世界，你好!",0  
.DATA?                                  
hInstance   HINSTANCE  ?                
CommandLine LPSTR      ?
hB          dd ?
.const;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
hC          equ 16800                                         
.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 + 1
        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,400,300, 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 
         LOCAL @stPs:PAINTSTRUCT
         LOCAL @szBuffer[256]:byte 
         LOCAL @hDc         
         LOCAL @hFont01,@hOldFont01                                   ;设置字体变量
         LOCAL @hFont02,@hOldFont02
        
         .if uMsg == WM_CREATE                
   
        .elseif uMsg == WM_PAINT       
                invoke BeginPaint,hWnd,addr @stPs
                mov @hDc,eax 
                
                invoke  CreateFont,23,12,0,0,FW_BLACK,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_CHARACTER_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_SWISS,addr sz_FontName01                       ;创建新字体                                               
                mov @hFont01,eax
                invoke SelectObject,@hDc,@hFont01
                mov @hOldFont01,eax
                
                ;设置新字体及各种参数
                invoke  SetTextAlign,@hDc,TA_TOP or TA_LEFT          ;左对齐或顶端对齐
                invoke  SetTextCharacterExtra,@hDc,1                 ;设置字符间距                 
                invoke  SetTextColor,@hDc,663366H                    ;设置文本颜色

                ;下面显示168
                invoke wsprintf,addr @szBuffer,addr sF,hA           
                invoke lstrlen,addr @szBuffer
                invoke TextOut,@hDc,100,30,addr @szBuffer,eax        ;显示函数
                ;下面显示1680
                mov hB,1680
                invoke wsprintf,addr @szBuffer,addr sF,hB
                invoke lstrlen,addr @szBuffer
                invoke TextOut,@hDc,100,80,addr @szBuffer,eax
                
                invoke SelectObject,@hDc,@hOldFont01                 ;恢复原来的字体
                invoke DeleteObject,@hFont01                         ;删除创建的字体
                
                invoke  CreateFont,28,14,0,0,FW_NORMAL,0,0,0,DEFAULT_CHARSET,OUT_DEFAULT_PRECIS,CLIP_CHARACTER_PRECIS,DEFAULT_QUALITY,DEFAULT_PITCH or FF_SWISS,addr sz_FontName01                       ;创建新字体                                               
                mov @hFont02,eax
                invoke SelectObject,@hDc,@hFont02
                mov @hOldFont02,eax
                
                ;设置新字体及各种参数
                invoke  SetTextAlign,@hDc,TA_TOP or TA_LEFT         
                invoke  SetTextCharacterExtra,@hDc,1                               
                invoke  SetTextColor,@hDc,0000CDH                   
                ;下面显示16800
                invoke wsprintf,addr @szBuffer,addr sF,hC
                invoke lstrlen,addr @szBuffer
                invoke TextOut,@hDc,100,130,addr @szBuffer,eax
                ;下面显示"世界，你好！"
                invoke lstrlen,addr hD
                invoke TextOut,@hDc,100,180,addr hD,eax
                
                invoke SelectObject,@hDc,@hOldFont02                 
                invoke DeleteObject,@hFont02
                invoke EndPaint,hWnd,addr @stPs  
        .elseif uMsg == WM_DESTROY                                           
                invoke PostQuitMessage,NULL                               
        .else 
                invoke DefWindowProc,hWnd,uMsg,wParam,lParam             
        ret 
    .endif 
    xor eax,eax 
    ret 
WndProc endp 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
end start   
;在教程六里面，我们尝试着显示了4样东西，但看起来总是丑，显得很不专业
;在这个教程里，我们添加了一些代码，让它看起来没那么突兀。下面看添加的句子的意思
;sz_FontName         db "方正姚体",0   这一句的意思是，定义一种字体的字符串名称，后面在创建新字体时使用。这种字体必须是电脑里面已经安装的。
;mov   wc.hbrBackground,COLOR_WINDOW + 1 这一句的意思是，把窗口背景色加1，就可以和显示文本的背景色一样。
;当然，也可以另外设置文本的背景色。可以调用SetBkColor函数
;COLOR_WINDOW的值是5，像这种的是系统预定义的符号，它在一某些头文件里定义了，直接用就可以。
;所以，把COLOR_WINDOW + 1改成6，也是一样的意思
;如果编译运行后发现窗口不见了，再次编译运行又说无法删除，则可以在电脑最下面的那一栏，点右键。选启动任务管理器，在进程里找到这个程序，按右键，选结束进程。再重新编译运行。
;这里有个理论要知道。有一种叫显示设备上下文，就是窗口怎么显示，通过BeginPaint得到
;在这里，可以设置显示出来的东西，比如字符串的字体、大小或颜色等。
;如果设置了新的，就要把原来旧的设置保存下来，在离开的时候把旧的恢复回去
;如果不恢复回去，就会所系统的设置搞乱了。
;CreateFont的函数是创建新的字体，这个创建不是从零开始创建，只是使用电脑已经安装有的字体，从新设置字体的各项参数。
;SelectObject函数是把新创建的字体选入设备，就是在显示的时候使用这种字体。同时它的返回值，就是原来旧的字体，所以要保存起来。
;SetTextAlign、SetTextCharacterExtra、SetTextColor这三个函数我们看边上的解释就大概的明白它的意思。
;上面的例子创建了2种字体，产生了不同的效果。
;在新的设置使用完后，记得再次使用SelectObject函数，把原来旧的字体又设置回去。我们可以观察每次参数的不同，参数来自哪里。
;在恢复为原状后，要调用DeleteObject函数把原来创建的字体删除掉。