format PE GUI 4.0
entry start

include 'c:\FASM\INCLUDE\win32a.inc'

ID_CAPTION         = 101
ID_MESSAGE         = 102

section '.code' code readable executable

  start:
        invoke  GetModuleHandle,0
        invoke  DialogBoxParam,eax,37,HWND_DESKTOP,DialogProc,0

proc DialogProc hwnddlg,msg,wparam,lparam
        cmp     [msg],WM_INITDIALOG
        je      .proceso
        cmp     [msg],WM_COMMAND
        je      .funcion
        cmp     [msg],WM_CLOSE
        je      .cerrar
        xor     eax,eax
        jmp     .finish

  .funcion:
        cmp     [wparam],BN_CLICKED shl 16 + IDCANCEL
        je      .cerrar
        cmp     [wparam],BN_CLICKED shl 16 + IDOK
        jne     .proceso

  .cerrar:
        invoke  EndDialog,[hwnddlg],0
  .proceso:



           invoke SetDlgItemText,[hwnddlg],ID_MESSAGE,'hola'



  .finish:
        ret
endp

section '.data' readable writeable

  flags dd ?
  caption rb 40h
  message rb 100h
  _outhandle    dd   ?
  _written      dd   ?
  buscado dd ?
  wfd        WIN32_FIND_DATA
  handle        dd   ?
  encontrado    dd   ?

;====================IMPORTS===============================================
section '.idata' import data readable writeable

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel,\
         AllocConsole, 'AllocConsole',\
         GetStdHandle, 'GetStdHandle',\
         WriteConsole, 'WriteConsoleA',\
         ReadConsole, 'ReadConsoleA',\
         ExitProcess, 'ExitProcess',\
          WriteFile,'WriteFile',\
          lstrlen,'lstrlen',\
          FindFirstFile,'FindFirstFileA',\
          FindNextFile,'FindNextFileA',\
          FindClose,'FindClose',\
         GetModuleHandle,'GetModuleHandleA',\
         lstrcat, 'lstrcat'.\

  import user,\
         DialogBoxParam,'DialogBoxParamA',\ 
         SetDlgItemText,'SetDlgItemTextA',\
         GetDlgItemText,'GetDlgItemTextA',\
         SendDlgItemMessage ,'SendDlgItemMessageW',\
         LoadIcon , 'LoadIconA',\
         SendMessage , 'SendMessageA',\
         AnimateWindow, 'AnimateWindow',\
         SetFocus , 'SetFocus',\
         GetDlgItemInt, 'GetDlgItemInt',\
         SetDlgItemInt, 'SetDlgItemInt',\
         wsprintf, 'wsprintfA',\
         MessageBox, 'MessageBoxA',\
         EndDialog,'EndDialog'

section '.rsrc' resource data readable

  directory RT_DIALOG,dialogs

  resource dialogs,\
           37,LANG_ENGLISH+SUBLANG_DEFAULT,creacion

  dialog creacion,'LISTADOR DE ARCHIVOS',70,70,190,175,WS_CAPTION+WS_POPUP+WS_SYSMENU+DS_MODALFRAME
    dialogitem 'STATIC','&DIRECTORIO:',-1,10,10,70,8,WS_VISIBLE
    dialogitem 'EDIT','',ID_CAPTION,10,20,170,13,WS_VISIBLE+WS_BORDER+WS_TABSTOP
    dialogitem 'STATIC','&CONTENIDO:',-1,10,40,70,8,WS_VISIBLE
    dialogitem 'EDIT','',ID_MESSAGE,10,50,170,100,WS_VISIBLE+WS_BORDER+WS_TABSTOP+ES_AUTOHSCROLL
    dialogitem 'BUTTON','OK',IDOK,85,150,45,15,WS_VISIBLE+WS_TABSTOP+BS_DEFPUSHBUTTON
    dialogitem 'BUTTON','C&ancel',IDCANCEL,135,150,45,15,WS_VISIBLE+WS_TABSTOP+BS_PUSHBUTTON
  enddialog