;==========================================
; Пример использования функции ShellAbout
;==========================================
  format PE

  include "include\win32ax.inc"
  include "include\const.inc"

    x_size = 150
    y_size = 100
    x_coord = 100
    y_coord = 100

    EventID_Ctrl3	    = 13

  start:
    call Redraw
  Wait_Event:
    call [WaitMessage]
    call [StdHandler]
    cmp     bx,(EventID_Ctrl3 shl 8) + 1
    jne Wait_Event
    invoke ShellAbout, ProgramInfo, AuthorInfo, CopyrightInfo
  jmp Wait_Event

  Redraw:
    invoke Draw_StdWindow, x_coord*65536+y_coord,x_size*65536+y_size,"Shell About Test",00101b
    mov     [WinID],eax
    invoke  Create_StdButton, 20*65536+50,100*65536+20,"About",1,10b
    call    [End_of_redraw]
    ret

data import
;
; Import functions:
;

  library mx32,'mx32.dll'

  import mx32,\
	 WaitMessage,'WaitMessage',\
	 Draw_Picture,'Draw_Picture',\
	 Draw_StdWindow,'Draw_StdWindow',\
	 StdHandler,'StdHandler',\
	 ShellAbout,'ShellAbout',\
	 End_of_redraw,'End_of_redraw',\
	 Create_StdButton,'Create_StdButton'
end data

section '.data' data readable writeable
    WinID		  dd 0
    ClientColor 	  dd 0
    AuthorInfo		  db 'mistifi(ator',0
    ProgramInfo 	  db 'About Info Example',0
    CopyrightInfo	  db 'Copyright(c) by Kreoton Development Group',0
