.386
.model flat, STDCALL
   
include windows.inc  
include kernel32.inc
includelib kernel32.lib

.data
num1 dd 0
mess dd 80
buf_v db 80 dup (0)
fn db "*.*",0
ps db 10

.data?
ffd WIN32_FIND_DATA <?>
fh dd ?
sh dd ?

.code
start: call FreeConsole
  call AllocConsole
   
  invoke GetStdHandle, STD_OUTPUT_HANDLE  
  mov sh, eax
   
  invoke FindFirstFile, ADDR fn, ADDR ffd
  mov fh, eax
  invoke FindNextFile, fh, ADDR ffd
  .WHILE eax != 0
  invoke FindNextFile, fh, ADDR ffd
  cmp eax,0
  jz exit
   
  mov esi,0
  mov edi, offset ffd.cFileName
  mov dl, [edi]
  .WHILE dl != 0
  mov dl, [edi]
  cmp dl,0
  inc edi
  inc esi
  .ENDW
  dec esi
  invoke WriteConsole, sh,ADDR ffd.cFileName, esi, ADDR num1, 0
  invoke WriteConsole, sh,ADDR ps,1, ADDR num1, 0
  .ENDW
exit:  
invoke FindClose, fh
  invoke GetStdHandle, STD_INPUT_HANDLE
  invoke ReadConsole, eax, ADDR buf_v, mess, ADDR num1, 0
  invoke ExitProcess, 0
end start

.386
.model flat, stdcall
option casemap:none

WinMain proto :DWORD,:DWORD,:DWORD,:DWORD

include windows.inc
include user32.inc
include kernel32.inc
include gdi32.inc
includelib user32.lib
includelib kernel32.lib
includelib gdi32.lib

.data
szClassName db "DlgClass",0
DlgName db "MyDialog",0
szAppName db "DirView",0
fn db "*.*",0

.data?
lpMetr TEXTMETRIC <?>
hInstance HINSTANCE ?
lppaint PAINTSTRUCT <?>
sF WIN32_FIND_DATA <?>
buffer db 512 dup(?)
buffer2 db 512 dup(?)
GloDlg db ?
LenName db ?
charHt dd ?

.const
IDC_NAME equ 1
IDC_PASS equ 2
IDC_GEN equ 3
IDC_EXIT equ 4

.code
start:
  invoke GetModuleHandle, NULL
  mov hInstance, eax
   
  invoke WinMain, hInstance, NULL, NULL, SW_SHOWDEFAULT
  invoke ExitProcess, eax
   
WinMain proc hInst:HINSTANCE, hPrevInst:HINSTANCE, CmdLine:LPSTR, CmdShow:DWORD
  LOCAL wc:WNDCLASSEX
  LOCAL msg:MSG
  LOCAL hDlg:HWND
  mov wc.cbSize, SIZEOF WNDCLASSEX
  mov wc.style, CS_HREDRAW or CS_VREDRAW
  mov wc.lpfnWndProc, OFFSET WndProc
  mov wc.cbClsExtra, NULL
  mov wc.cbWndExtra, DLGWINDOWEXTRA
  push hInst
  pop wc.hInstance
  mov wc.hbrBackground, COLOR_BTNFACE+1
  mov wc.lpszMenuName, NULL
  mov wc.lpszClassName, OFFSET szClassName
  ;invoke LoadIcon, NULL, IDI_APPLICATION
  invoke LoadIcon, hInst, 500 ; icon ID
  mov wc.hIcon, eax
  mov wc.hIconSm, eax
  invoke LoadCursor, NULL, IDC_ARROW
  mov wc.hCursor, eax
  invoke RegisterClassEx, addr wc
   
   
  ;------------------------------------------------
  invoke CreateWindowEx, 0, ADDR szClassName, ADDR szAppName, WS_OVERLAPPEDWINDOW,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0,hInstance,0
  mov hDlg, eax
  ;------------------------------------------------
  INVOKE ShowWindow, hDlg, SW_SHOWNORMAL
  INVOKE UpdateWindow, hDlg
;++++++++++++++++++++++++++++++++++++++++++++  
  .WHILE TRUE
  INVOKE GetMessage, ADDR msg, NULL, 0, 0
  .BREAK .IF (!eax)
  invoke IsDialogMessage, hDlg, ADDR msg
  .if eax==FALSE
  INVOKE TranslateMessage, ADDR msg
  INVOKE DispatchMessage, ADDR msg
  .endif
  .ENDW
;++++++++++++++++++++++++++++++++++++++++++++
  mov eax, msg.wParam
  ret
WinMain endp

WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
  LOCAL hDlg:HWND
  LOCAL hFind:HWND
  LOCAL hDC : DWORD
  .IF uMsg == WM_CREATE
  invoke GetDC, hWnd
  mov hDC, eax
  invoke GetTextMetrics,hDC,ADDR lpMetr
  mov ebx, 0
  mov ebx,lpMetr.tmExternalLeading
  add ebx, lpMetr.tmHeight
  mov charHt, ebx
  invoke ReleaseDC,hWnd,hDC
  .ELSEIF uMsg == WM_DESTROY
  invoke PostQuitMessage, 0

  .ELSEIF uMsg == WM_PAINT

  invoke FindFirstFile, ADDR fn, ADDR sF
  mov hFind, eax
  invoke FindNextFile, hFind, ADDR sF
   
  invoke BeginPaint, hWnd, ADDR lppaint
  mov hDC, eax

  mov ebx,0
  .WHILE eax != 0
  invoke FindNextFile, hFind, ADDR sF
  cmp eax,0  
  jz exit
  mov esi,0
  mov edi, offset sF.cFileName
  mov dl, [edi]
  .WHILE dl !=0
  mov dl, [edi]
  cmp dl, 0
  inc edi
  inc esi
  .ENDW
  dec esi
  add ebx, charHt
  invoke TextOut,hDC, 5,ebx, ADDR sF.cFileName, esi

  .ENDW
  exit:
   
  invoke FindClose, hFind
  invoke EndPaint, hWnd, ADDR lppaint
   
  .ELSE
  invoke DefWindowProc, hWnd, uMsg, wParam, lParam
  ret
  .ENDIF
  xor eax,eax
  ret
WndProc endp

end start