AutoHotkey Community

#A::
  clipboard =
  send, ^c
  clipwait, 100
  splitpath, clipboard, , , extension
  if extension = ahk
    run, "C:\Temp\AutoHotkey\AutoHotkey.exe" "%clipboard%"
Return

MsgBox, Number of params used: %0%`n1. param: %1%`n2. param: %2%3. param: %3%4. param: %4%5. param: %5%6. param: %6%7. param: %7%8. param: %8%9. param: %9%

Run, %comspec% /k ftype ancfile="C:\Arquivos de programas\AutoHotkey\AutoHotkey.exe" "%l" "%2" "%3" "%4" "%5" "%6" "%7" "%8" "%9"

Run, %comspec% /k assoc .anc=ancfile

#SingleInstance FORCE
SetWorkingDir, %A_ScriptDir%

;IT SETS PARAMETERS
   param_n=%0% ;how many parameters exist when you run in DOS-prompt: C:\MyFolder\Associate.exe first second third etcetera
   
   param_1=%1% ;the first parameter: first (windows associates automatically to the first parameter)
   param_2=%2% ;the second one: second
   param_3=%3% ;the third one: third
   param_4=%4% ;the forth one: etcetera

;STARTS GUI
   Gui, add, edit,
   Gui, add, edit,
   Gui, add, button, Default, Close
   Gui, add, button,, New
   Gui, add, button,, Save as
   Gui, add, button,, Open
   Gui, Show

;TEST PARAMETERS: IF DIFFERENT FROM 0, OPENS THE PARAMETER (FILE)
   If param_n > 0
      {
      ; There is a parameter
      ;file_name is set by the parameter
            
      StringReplace, param_1, param_1, .anc,, all

      SplitPath, param_1, param_1_file
      
      msgbox, param_1: %param_1%.anc
      msgbox, param_1: %param_1_file%.anc
      
      IniRead, value_box1, %param_1_file%.anc, etc, box1
      IniRead, value_box2, %param_1_file%.anc, etc, box2
      ControlSetText, Edit1, %value_box1%
      ControlSetText, Edit2, %value_box2%
      }

Return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;action of button close
   ButtonClose:
   GuiClose:
   ExitApp

;action of button new
   ButtonNew:
   ControlSetText, Edit1,
   ControlSetText, Edit2,
   Return

;action of button save as
   ButtonSaveas:
   ;SAVE AS BOX
   FileSelectFile, file_name, 16,, Save as - ANC file, ANC File (*.anc)
      if file_name=
         MsgBox, The user pressed cancel.


   ControlGetText, box1_content, Edit1
   ControlGetText, box2_content, Edit2
   IniWrite, %box1_content%, %file_name%.anc, etc, box1
   IniWrite, %box2_content%, %file_name%.anc, etc, box2
   Return


;action of button open

ButtonOpen:
   ;OPEN FILE BOX
   ;file_name is set by the user
   FileSelectFile, file_name, 3,, Open  - ANC file, ANC File (*.anc)
      if file_name=
         MsgBox, The user pressed cancel.
   
   StringReplace, file_name, file_name, .anc,, all

   IniRead, value_box1, %file_name%.anc, etc, box1
   IniRead, value_box2, %file_name%.anc, etc, box2
   ControlSetText, Edit1, %value_box1%
   ControlSetText, Edit2, %value_box2%
Return