format PE GUI 4.0
entry start

include "win32a.inc"

IDR_MENU  = 10000
IDM_NEW   = 10002
IDM_EXIT  = 10003
IDM_HELLO = 10005
IDM_ABOUT = 10007
IDD_DLG1  = 1000
IDC_GRP1  = 2005
IDC_HELLO = 2001
IDC_CLEAR = 2002
IDC_EDT1  = 2003

section '.data' data readable writable
  hmain dd ?
  hinst dd ?

  title db 'No 5',0
  classname db 'class51',0
  hello db 'Hello world!',0

section '.code' code readable writeable executable

  start:
    invoke GetModuleHandle,NULL
    mov [hinst],eax
    invoke DialogBoxParam,[hinst],IDD_DLG1,NULL,dlg_proc,NULL
    invoke ExitProcess,0

  proc dlg_proc,hdlg,umsg,wparam,lparam
    push ebx esi edi
    cmp [umsg],WM_COMMAND
    je .wmcommand
    cmp [umsg],WM_CLOSE
    je .wmclose
    cmp [umsg],WM_INITDIALOG
    je .wminitdlg
    jmp .end

    .wminitdlg:
      invoke GetDlgItem,[hdlg],IDC_EDT1
      invoke SetFocus,eax
      jmp .end
    .wmclose:
      invoke EndDialog,[hdlg],0
      jmp .end
    .wmcommand:

    .end:
      pop edi esi ebx
      ret
  endp
section '.idata' import data readable writeable
     library   KERNEL32, 'KERNEL32.DLL',\
            USER32,   'USER32.DLL'

     import    KERNEL32,\
          GetModuleHandle,    'GetModuleHandleA',\
         ExitProcess,        'ExitProcess'


     import    USER32,\
             LoadCursor,         'LoadCursorA',\
              LoadIcon,           'LoadIconA',\
        DialogBoxParam,     'DialogBoxParamA',\
          GetDlgItem,         'GetDlgItem',\
               EndDialog,          'EndDialog',\
        SetFocus,           'SetFocus',\
         MessageBox,         'MessageBoxA',\
              SetDlgItemText,     'SetDlgItemTextA',\
          GetDlgItemText,     'GetDlgItemTextA',\
          SendMessage,        'SendMessageA',\
             PostQuitMessage,    'PostQuitMessage'
section '.rsrc' resource from 'test.rc.res'
    

#define IDR_MENU 10000
#define IDM_NEW 10002
#define IDM_EXIT 10003
#define IDM_HELLO 10005
#define IDM_ABOUT 10007
#define IDD_DLG1 1000
#define IDC_GRP1 2005
#define IDC_HELLO 2001
#define IDC_CLEAR 2002
#define IDC_EDT1 2003
IDR_MENU MENU
BEGIN
  POPUP "&File"
  BEGIN
    MENUITEM "New\tCtrl+N",IDM_NEW
    MENUITEM "Quit\tCtrl+Q",IDM_EXIT
  END
  POPUP "&Edit"
  BEGIN
    MENUITEM "Say Hello!",IDM_HELLO
  END
  POPUP "&Help",HELP
  BEGIN
    MENUITEM "About",IDM_ABOUT
  END
END
IDD_DLG1 DIALOGEX 6,6,195,83
CAPTION "Super Man"
FONT 8,"MS Sans Serif",0,0
CLASS "MyDialog"
MENU IDR_MENU
STYLE 0x10CF0006
BEGIN
  CONTROL "Say Hello",IDC_HELLO,"Button",0x50010000,138,60,54,13
  CONTROL "Clear",IDC_CLEAR,"Button",0x50010000,104,53,24,11
  CONTROL "",IDC_EDT1,"Edit",0x50010000,16,20,82,44,0x00000200
  CONTROL "Enter Input:",IDC_GRP1,"Button",0x50000007,8,11,124,61
END