Создать изображение флага Канады

include 'win32ax.inc'
section '.code' executable
start:
    invoke PlaySound,asFileName,NULL,NULL
    invoke Sleep,7000
exit:
    invoke ExitProcess,NULL
 
section '.data' readable writable
 
    lpFile dd ?
    asFileName db 'music.wav', NULL
 
section '.idata' import readable
    library kernel32, 'KERNEL32.DLL', winmm, 'WINMM.DLL'
    include 'api\kernel32.inc'
    import winmm, PlaySound, 'PlaySound'

proc Paint_Proc stdcall hWnd, Ps
    local hPen      :DWORD
    local hPenOld   :DWORD
    local hBrush    :DWORD
    local hBrushOld :DWORD
    local lb        :LOGBRUSH
..................
    invoke CreateBrushIndirect, lb
.................
     ret
endp

    invoke CreateBrushIndirect,ADDR lb

; Template for program using standard Win32 headers
 
format PE GUI 4.0
entry start
 
include 'win32w.inc'
 
section '.text' code readable executable
 
  start:
 
        invoke  GetModuleHandle,0
        mov     [wc.hInstance],eax
        invoke  LoadIcon,0,IDI_APPLICATION
        mov     [wc.hIcon],eax
        invoke  LoadCursor,0,IDC_ARROW
        mov     [wc.hCursor],eax
        invoke  RegisterClass,wc
        test    eax,eax
        jz      error
 
        ;================================
        ; Centre window at following size
        ;================================
        mov [Wwd], 600
        mov [Wht], 480
 
        invoke GetSystemMetrics,SM_CXSCREEN
        stdcall TopXY,[Wwd],eax
        mov [Wtx], eax
 
        invoke GetSystemMetrics,SM_CYSCREEN
        stdcall TopXY,[Wht],eax
        mov [Wty], eax
 
        mov  eax, [Wwd]
        mov  [cxClient], ax
        mov  eax, [Wht]
        mov  [cyClient], ax
 
        invoke  CreateWindowEx,0,_class,_title,\
                               WS_VISIBLE+WS_DLGFRAME+WS_SYSMENU,\
                               [Wtx], [Wty], [Wwd], [Wht],\
                               NULL,NULL,[wc.hInstance],NULL
        test    eax,eax
        jz      error
 
        mov    [hWindow], eax
        invoke LoadMenu,[wc.hInstance],600  ; menu ID
        invoke SetMenu,[hWindow],eax
 
        invoke ShowWindow,[hWindow],SW_SHOWNORMAL
        invoke UpdateWindow,[hWindow]
 
        ;===================================
        ; Loop until PostQuitMessage is sent
        ;===================================
  msg_loop:
        invoke  GetMessage,msg,NULL,0,0
        cmp     eax,1
        jb      end_loop
        jne     msg_loop
        invoke  TranslateMessage,msg
        invoke  DispatchMessage,msg
        jmp     msg_loop
 
  error:
        invoke  MessageBox,NULL,_error,NULL,MB_ICONERROR+MB_OK
 
  end_loop:
        invoke  ExitProcess,[msg.wParam]
 
proc WindowProc uses ebx esi edi, hwnd,wmsg,wparam,lparam
    local hDC:DWORD
 
        cmp     [wmsg],WM_DESTROY
        je      .wmdestroy
        cmp     [wmsg],WM_SIZE
        je      .wmsize
        cmp     [wmsg],WM_PAINT
        je      .wmpaint
        jmp     .defwndproc
  .wmsize:
        push    eax
        push    ebx
        mov     eax, [lparam]
        mov     [cxClient], ax
        shr     eax, 16
        mov     [cyClient], ax
        pop     ebx
        pop     eax
        xor     eax, eax
        jmp     .finish
  .wmpaint:
        push    ebx
        invoke  BeginPaint,[hwnd] , Ps
        mov     [hDC], eax
        stdcall  Paint_Proc,[hwnd],[hDC]
        invoke  EndPaint,[hwnd], Ps
        pop     ebx
        xor     eax, eax
        jmp     .finish
  .defwndproc:
        invoke  DefWindowProc,[hwnd],[wmsg],[wparam],[lparam]
        jmp     .finish
  .wmdestroy:
        invoke  PostQuitMessage,0
        xor     eax,eax
  .finish:
        ret
endp
 
; ########################################################################
 
proc TopXY stdcall wDim:DWORD,sDim:DWORD
    shr [sDim], 1      ; divide screen dimension by 2
    shr [wDim], 1      ; divide window dimension by 2
    mov eax, [wDim]    ; copy window dimension into eax
    sub [sDim], eax    ; sub half win dimension from half screen dimension
 
    mov eax, [sDim]
    ret
endp
 
proc Paint_Proc stdcall hWnd, Ps
    local hPen      :DWORD
    local hPenOld   :DWORD
    local hBrush    :DWORD
    local hBrushOld :DWORD
 
    local lb        :LOGBRUSH
 
    local iXc:DWORD
    local iYc:DWORD
    local iSize:DWORD
 
 
    invoke CreatePen,0,1,000000FFh  ; red
    mov [hPen], eax
 
    mov [lb.lbStyle], BS_SOLID
    mov [lb.lbColor], 00FF0000h       ; blue
    mov [lb.lbHatch], NULL
 
    invoke CreateBrushIndirect, lb
    mov [hBrush], eax
 
    invoke SelectObject,[hDC],[hPen]
    mov [hPenOld], eax
 
    invoke SelectObject,[hDC],[hBrush]
    mov [hBrushOld], eax
;-------------------
  ; ------------------------------------------------
 
    invoke SelectObject,[hDC],[hBrushOld]
    invoke DeleteObject,[hBrush]
 
    invoke SelectObject,[hDC],[hPenOld]
    invoke DeleteObject,[hPen]
 
     ret
endp
 
section '.data' data readable writeable
 
  _class        TCHAR 'FASMWIN32',0
  _title        TCHAR 'Canadian flag',0
  _error        TCHAR 'Startup failed.',0
 
  hWindow       dd 0    ;дескриптор окна
 
  cxClient      dw 0    ;размеры окна
  cyClient      dw 0
 
  Ps            PAINTSTRUCT
 
  Wwd           dd 0    ;размеры окна
  Wht           dd 0
  Wtx           dd 0
  Wty           dd 0
 
  wc WNDCLASS 0,WindowProc,0,0,NULL,NULL,NULL,COLOR_BTNFACE+1,NULL,_class
 
  msg MSG
 
section '.idata' import data readable writeable
 
  library kernel32,'KERNEL32.DLL',\
          user32,'USER32.DLL',\
          gdi32,'GDI32.DLL'
 
  include 'api\kernel32.inc'
  include 'api\user32.inc'
  include 'api\gdi32.inc'

include 'win32w.inc'

include 'win32ax.inc'