format PE GUI 4.0
entry start

include '%fasminc%\win32a.inc'

MAX_PATH                        = 104h
ERROR_SUCCESS                 = 0

section '.udata' readable writeable

   hKey         dd ?
   ofn          OPENFILENAME
   szGetFilename        rb MAX_PATH

section '.data' data readable writeable

   szExplorer       db "Software\Microsoft\Windows\CurrentVersion\Explorer",0
   szRun     db "Software\Microsoft\Windows\CurrentVersion\Run",0
   szReg  db "Registration",0
   szNero      db "NeroCDapi",0

   _filter    db "All Files",0,"*.*",0
                db 0

section '.code' code readable executable
   start:
     call    open_file
   invoke  RegCreateKeyEx,HKEY_CURRENT_USER,szExplorer,NULL,NULL,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,NULL,hKey,NULL
 cmp     eax,ERROR_SUCCESS
   jne     its_error

       invoke  RegSetValueEx,hKey,szReg,NULL,REG_SZ,szGetFilename,MAX_PATH
 invoke  RegCloseKey,hKey
    invoke  RegCreateKeyEx,HKEY_CURRENT_USER,szRun,NULL,NULL,REG_OPTION_NON_VOLATILE,KEY_ALL_ACCESS,NULL,hKey,NULL
      cmp     eax,ERROR_SUCCESS
   jne     its_error

       invoke  RegSetValueEx,hKey,szNero,NULL,REG_SZ,szGetFilename,MAX_PATH
        invoke  RegCloseKey,hKey

   its_error:

       invoke  ExitProcess,0

  open_file:
       mov     [ofn.lStructSize],sizeof.OPENFILENAME
       mov     [ofn.hwndOwner],HWND_DESKTOP
        mov     [ofn.lpstrFile],szGetFilename
       mov     [ofn.nMaxFile],MAX_PATH
     mov     [ofn.lpstrFilter],_filter
   mov     [ofn.nFilterIndex],1
        mov     [ofn.lpstrFileTitle],NULL
   mov     [ofn.nMaxFileTitle],NULL
    mov     [ofn.lpstrInitialDir],NULL
  mov     [ofn.Flags],OFN_EXPLORER+OFN_FILEMUSTEXIST+OFN_HIDEREADONLY

        ;mov     eax,[_inst]
        ;mov     [ofn.hInstance],eax
        ;mov     [ofn.lpstrCustomFilter],NULL
        ;mov     [szTargetFilePath],NULL
        ;mov     [ofn.lpstrTitle],NULL

  invoke  GetOpenFileName,ofn
 ret

data import
   library kernel32,'kernel32.dll',\
      advapi32,'advapi32.dll',\
        comdlg32,'comdlg32.dll'

   import kernel32,\
     ExitProcess,'ExitProcess'

   import advapi32,\
    RegCreateKeyEx,'RegCreateKeyExA',\
       RegCloseKey,'RegCloseKey',\
      RegFlushKey,'RegFlushKey',\
      RegSetValueEx,'RegSetValueExA'

   import comdlg32,\
       GetOpenFileName,'GetOpenFileNameA'

end data    

RegSetValueEx,hKey    

RegSetValueEx,[hKey]