;======================================================================= 
 format PE GUI 4.0 
;format PE CONSOLE 
;======================================================================= 
 include '%fasminc%\win32a.inc'
 include '%fasminc%\macro\if.inc'                                          
;======================================================================= 
IDC_CLOSE      equ 1002
IDC_BACKUP     equ 2001
IDC_CHOOSEFILE equ 1001
IDC_TARGETFILE equ 1000
IDD_MAINDLG    equ 100
IDI_ICON        equ 9000
;----------------------------------------------------------------------- 
section '.flat' code readable writeable executable 

entry $ 



    invoke GetModuleHandle,0
        mov [gIst],eax
        invoke DialogBoxParam,eax,IDD_MAINDLG,0, DlgProc,0
    
THEEND:
        invoke ExitProcess,0

proc DlgProc, hDlg, uMsg, wParam, lParam
        
       
push edi esi ebx
    
           
        je      jCOMMAND 
        .if [uMsg],e,WM_INITDIALOG 
        je      jINITDIALOG 
        .endif
        
        .if [uMsg],e,WM_CLOSE
        je      jCLOSE 
        .endif
        
      mov       eax, [wParam]

        .if ax,e,IDC_CLOSE
        invoke ExitProcess,0
        
        .elseif ax,e,IDC_CHOOSEFILE <-------- This is what I dont know how 
          mov ofn.lStructSize,SIZEOF ofn 
              mov ofn.lpstrFilter, szFilter
              push hDlg
              pop ofn.hwndOwner
              mov ofn.lpstrFile, cFname 
              mov ofn.nMaxFile,SIZEOF cFname
              mov ofn.lpstrInitialDir, szCurDir
              mov ofn.Flags, OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_LONGNAMES or OFN_HIDEREADONLY
              push  ofn
              call GetOpenFileName
              test eax,eax
              jz @@ExitDlgProc
              invoke SetDlgItemText,hDlg,IDC_TARGETFILE,offset cFname  
        .endif
         ; ---- build the protection flag -----
          xor edi,edi
              invoke IsDlgButtonChecked,[hDlg],IDC_BACKUP
              .if eax,e,BST_CHECKED
                 invoke CopyFile,cFname,backup1,0 
                 
                 
              .endif
        
        
        
        xor eax,eax
        
        jmp finish 
       
       
       
       
       
jINITDIALOG: 

       invoke LoadIcon,[gIst],IDI_ICON
           invoke SendMessage,[hDlg],WM_SETICON,TRUE,eax

        mov eax,[hDlg] 
        mov [gWnd],eax 
        mov eax,1 
        jmp finish 
         
jCOMMAND: 
        mov eax,[wParam] 
       .if eax,e,1000 
        je      a1000
        .endif 
        xor eax,eax 
        jmp finish 
         
a1000: 
        invoke SendMessage,[hDlg],WM_CLOSE,0,0 
        mov eax,1 
        jmp finish 
         
jCLOSE:  
     invoke EndDialog,[hDlg],NULL
    
         
finish: 
        pop ebx esi edi 
        ret
endp 

; .DATA
cFname                  db MAX_PATH dup (0)
backup1 db 'Backup.exe',0
ofn                     OPENFILENAME <>


gIst dd 0 
gWnd dd 0 
szFilter                db "ExE files",0,"*.exe",0,"All files",0,"*.*",0,0  

data import 




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

  import  kernel,\ 
          GetModuleHandle,'GetModuleHandleA',\
          CopyFile,'CopyFileA',\ 
          ExitProcess,    'ExitProcess' 
          
  import  user,\ 
          DialogBoxParam, 'DialogBoxParamA',\ 
          EndDialog,      'EndDialog',\
          LoadIcon,       'LoadIconA',\
          MessageBox,     'MessageBoxA',\
          IsDlgButtonChecked, 'IsDlgButtonChecked',\
          SendMessage,    'SendMessageA' 

end data 


section '.rsrc' resource from 'rsrc1.res' data readable     

format pe gui 4.0 
entry start

;======================================================================= 
include '%fasminc%\win32a.inc'
;======================================================================= 

IDC_CLOSE               = 1002
IDC_BACKUP              = 2001
IDC_CHOOSEFILE          = 1001
IDC_TARGETFILE          = 1000
IDD_MAINDLG             = 100
IDI_ICON                = 9000

;----------------------------------------------------------------------- 

section '.idata' data readable writeable

  backup1       db "Backup.exe",0
  szFilter      db "ExE files",0,"*.exe",0,"All files",0,"*.*",0,0  

section '.udata' readable writeable

  gIst          dd ?
  gWnd          dd ?
  cFname        rb MAX_PATH
  ofn           OPENFILENAME

section '.flat' code readable writeable executable 

  start:
        invoke  GetModuleHandle,0
        mov     [gIst],eax
        invoke  DialogBoxParam,eax,IDD_MAINDLG,0,DlgProc,0
    
  THEEND:
        invoke ExitProcess,0

  proc DlgProc uses ebx esi edi, hDlg, uMsg, wParam, lParam
        
        movzx   eax,word [wMsg]
        cmp     ax,WM_COMMAND
        jz      .wmcommand
        cmp     ax,WM_CLOSE
        jz      .wmclose
        cmp     ax,WM_INITDIALOG
        jnz     .not_processed
        
  ;.wminitdlg:
        invoke  LoadIcon,[gIst],IDI_ICON
        invoke  SendMessage,[hDlg],WM_SETICON,TRUE,eax
        mov     eax,[hDlg] 
        mov     [gWnd],eax 
        jmp     .processed
        

  .wmcommand:
        cmp     [wParam],BN_CLICKED shl 16 + IDC_CLOSE ; <- resource id (control)
        jz      .wmclose
        cmp     [wParam],BN_CLICKED shl 16 + IDC_CHOOSEFILE ; <- resource id (control)
        jnz     .processed

        mov     [ofn.lStructSize],sizeof.OPENFILENAME
        mov     [ofn.lpstrFilter],szFilter
        push    [hDlg]
        pop     [ofn.hwndOwner]
        mov     [ofn.lpstrFile],cFname 
        mov     [ofn.nMaxFile],MAX_PATH
        ;mov    [ofn.lpstrInitialDir],szCurDir ; <- not defined
        mov     [ofn.Flags],OFN_FILEMUSTEXIST+OFN_PATHMUSTEXIST+OFN_LONGNAMES+OFN_HIDEREADONLY
        invoke  GetOpenFileName,ofn
        test    eax,eax
        jz      @F
        invoke  SetDlgItemText,[hDlg],IDC_TARGETFILE,cFname  
  @@:
        jmp     .processed
       
  .wmclose:  
        invoke  EndDialog,[hDlg],NULL

  .processed:
        xor     eax,eax
        inc     eax
        jmp     .finish

  .not_processed:
        xor     eax,eax
         
  .finish: 
        ret
  endp 

section '.idata' import data readable writeable

  library       kernel32,'kernel32.dll',\
                user32,'user32.dll'

  include       '%fasminc%\apia\kernel32.inc'
  include       '%fasminc%\apia\user32.inc'

section '.rsrc' resource from 'rsrc1.res' data readable 

; eof
    

MAX_PATH