#include <Constants.au3>
#include <GUIConstantsEx.au3>

GUICreate("ddpp (aDD a aPP)", 266, 337)

GUICtrlCreateLabel("Nom de l'application :                                             ", 11, 13)
$info1 = GUICtrlCreateInput("", 11, 28)
;-------------------------------------------------------------------------------------
GUICtrlCreateLabel("Chemin de l'éxecutable :                              ", 11, 60)
$info2 = GUICtrlCreateInput("", 11, 75)
$btn0 = GUICtrlCreateButton("...", 235, 75, 20, 20)
;-------------------------------------------------------------------------------------
GUICtrlCreateLabel("Paramètres :                                                           ", 11, 107)
$info3 = GUICtrlCreateInput("", 11, 123)
;-------------------------------------------------------------------------------------
GUICtrlCreateLabel("Dossier de travail :                                                  ", 11, 155)
$info4 = GUICtrlCreateInput("", 11, 168)
;-------------------------------------------------------------------------------------
GUICtrlCreateLabel("Auteur :                                                                   ", 11, 200)
$info5 = GUICtrlCreateInput("", 11, 215)
;-------------------------------------------------------------------------------------
GUICtrlCreateLabel("Site internet :                                                           ", 11, 246)
$info6 = GUICtrlCreateInput("", 11, 262)
;-------------------------------------------------------------------------------------
$btn1 = GUICtrlCreateButton("Ajouter", 176, 300, 80)


GUISetState(@SW_SHOW)

While 1
   
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
       
;bouton "..."
        Case $msg = $btn0
             $Opened_File = FileOpenDialog("Choisir le fichier à afficher dans le lanceur", "", "All exe files (*.exe)|All Files (*.*)",12)
             GUICtrlSetData($info2, $Opened_File)
           
;bouton "ajouter"           
       
        Case $msg = $btn1
             $file = FileOpen("\Apps\Liste.ini", 1)

            If $file = -1 Then
            MsgBox(0, "Error", "Unable to open file.")
            Exit
            EndIf

            FileWriteLine($file, '[' & GUICtrlRead($info1) & ']' & @CRLF)
            FileWriteLine($file, 'Executable=' & GUICtrlRead($info2) & @CRLF)
            FileWriteLine($file, 'Parameters=' & GUICtrlRead($info3) & @CRLF)
            FileWriteLine($file, 'WorkingDirectory=' & GUICtrlRead($info4) & @CRLF)
            FileWriteLine($file, 'Author=' & GUICtrlRead($info5) & @CRLF)
            FileWriteLine($file, 'Website=' & GUICtrlRead($info6) & @CRLF)
            FileClose($file)
           
            Msgbox(0,"ini add","Bien réussi")
			
            ExitLoop     
           
    EndSelect          
Wend