;运行效果

;win32汇编环境，对话框中显示bmp图像文件
;显示的是一张尺寸267*400的bmp位图,及一张缩小为原来三分之一的位图
;将代码复制进radasm软件里，直接编译就可以运行了
;下面为asm文件
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.386 
.model flat,stdcall 
option casemap:none 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Include 文件定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
include         windows.inc 
include         user32.inc 
include         kernel32.inc 
includelib      user32.lib 
includelib      kernel32.lib 
include        gdi32.inc
includelib    gdi32.lib

; 自定义函数声明
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
DlgProc proto :DWORD,:DWORD,:DWORD,:DWORD   ;对话框窗口函数

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 数据段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.data 
DlgName            db    "MyDialog",0 
szFileName01       db    "a.bmp",0      
szErrOpenFile       db    "无法打开文件!",0
szCheshi           db    "测试",0

.data? 
hInstance HINSTANCE             ? 

.const 
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; Equ 等值定义
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
ICO_MAIN    equ 1000    ;图标  
; 代码段
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
.code 
start: 
    invoke GetModuleHandle, NULL 
    mov    hInstance,eax 
    invoke DialogBoxParam, hInstance, ADDR DlgName,NULL, addr DlgProc, NULL 
    invoke ExitProcess,eax 

DlgProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM 
    LOCAL     @stPs:PAINTSTRUCT
    LOCAL    @hDc,@hdcMem 
    LOCAL   @hbmpBack:HBITMAP
    LOCAL   @hOldBmp:HBITMAP
    
        .if uMsg == WM_INITDIALOG 
                invoke    LoadIcon,hInstance,ICO_MAIN    ;加载图标
            invoke    SendMessage,hWnd,WM_SETICON,ICON_BIG,eax
    .elseif uMsg == WM_PAINT
        invoke    BeginPaint,hWnd,addr @stPs
        mov    @hDc,eax
                ;刷新客户区的代码
                invoke  CreateCompatibleDC,@hDc                           ;依据屏幕显示DC创建内存DC设备描述表句柄
                mov @hdcMem,eax
                invoke  LoadImage,NULL,addr szFileName01,IMAGE_BITMAP,0,0,LR_LOADFROMFILE + LR_DEFAULTSIZE + LR_CREATEDIBSECTION
                mov @hbmpBack,eax
                .if eax == NULL
                    invoke    MessageBox,hWnd,addr szErrOpenFile,addr szCheshi,MB_OK or MB_ICONINFORMATION    ;如果弹出这个指示，大概率是图像有问题，建议把图像用ACD转成BMP，不要用网上在线转换，有时会少字节，不完整
                .endif
                invoke  SelectObject,@hdcMem,@hbmpBack                    ;位图先放入兼容的设备上下文中（兼容DC）
                mov @hOldBmp,eax
                invoke  SelectObject,@hdcMem,@hbmpBack                    ;位图句柄hbmpBack放到hdcMem中,236是图像宽度像素，318是高度像素
                invoke  BitBlt,@hDc,30,30,267,400,@hdcMem,0,0,SRCCOPY     ;将兼容上下文的内容拷贝到设备上下文，即显示出来，不可拉伸

                invoke  SetStretchBltMode,@hDc,HALFTONE                   ;设置拉伸模式
                invoke  StretchBlt,@hDc,320,180,89,133,@hdcMem,0,0,236,318,SRCCOPY     ;拉伸为原尺寸的三分之一
                
                invoke  SelectObject,@hdcMem,@hOldBmp                     ;删除现在使用的位图句柄,清除现场 
                invoke  DeleteDC,@hdcMem                                  ;销毁临时的内存DC
                invoke    EndPaint,hWnd,addr @stPs                            
        .elseif uMsg == WM_CLOSE 
                invoke EndDialog, hWnd,NULL 
        .else 
        mov eax,FALSE 
        ret 
    .endif 
    mov eax,TRUE 
    ret 
DlgProc endp 

end start 
 

;下面为rc文件内容
#include "resource.h"                   //提示缺少该文件，可以在资源里下载
#define    ICO_MAIN        1000    //图标
  
ICO_MAIN    ICON        "Main.ico"

//定义对话框
MyDialog DIALOG 300, 100, 220, 230 
STYLE  WS_CAPTION | WS_MINIMIZEBOX | 
WS_SYSMENU | WS_VISIBLE | WS_OVERLAPPED | DS_MODALFRAME | DS_3DLOOK 
CAPTION "对话框中显示bmp图像文件" 

BEGIN 

END