#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Datos\Add.ico
#AutoIt3Wrapper_Compile_Both=y
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <File.au3>
Global $Ruta, $LeerIni, $Ready, $Conf[20], $Apli[20], $Ofic[20], $Repr[20], $Edit[20], $Prog[20], $Herr[20], $Comp[20], $Otro[20], $Estado, $Tipo, $InfArch, $Arreglo1,$result[20], $Files
$font = "Time New Roman"
;**** Estilos *************************************************
Global $StyloGrp = $WS_CAPTION, $Line1 = $WS_BORDER, $Form2 = $WS_DLGFRAME&$SS_CENTER

Global $IzqBtn = 10, $ArbBtn = 30, $AncBtn = 110, $GruBtn = 15
Global $IzqRad = 10, $ArbRad = 50, $AncRad = 110, $GruRad = 25
;**** Colores *************************************************
Global $ClrBtn = 0x99CCFF
;**** Estilos *************************************************
Global $Form1 = $WS_DLGFRAME

$TtlGuiAdd = "Agregando Programas"
GUICreate($TtlGuiAdd,635,450,350,200)
GUICtrlCreatePic(@ScriptDir&"\Datos\Fondo.jpg",1,1,905,518,$SS_BITMAP)

$LblIni = GUICtrlCreateLabel(@CRLF&"  "&$TtlGuiAdd,$IzqBtn-3,$ArbBtn-25,$AncBtn+512,$GruBtn+40,$Line1)
GUICtrlSetBkColor($LblIni, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont($LblIni, 14, 400, 0, $font)

GUICtrlCreateLabel("   Haga clic en el botón EXAMINAR para seleccionar un programa",$IzqBtn-3,$ArbBtn+40,$AncBtn+512,$GruBtn+5)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 10, 400, 0, $font)
#**** Boton EXAMINAR **********************************************************************************#
$BtnBscr = GUICtrlCreateButton("Examinar",$IzqBtn+545,$ArbBtn+100,$AncBtn-40,$GruBtn+10)
GUICtrlSetBkColor($BtnBscr,$ClrBtn)

#**** Input Ruta del archivo **************************************************************************#
GUICtrlCreateLabel("Ruta del Archivo",$IzqBtn+5,$ArbBtn+80,$AncBtn,$GruBtn)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$InpRuta = GUICtrlCreateInput("",$IzqBtn,$ArbBtn+100,$AncBtn+430,$GruBtn+10)
;GUICtrlSetBkColor(-1,$ClrBtn)

#**** Input Nombre del archivo ************************************************************************#
GUICtrlCreateLabel("Nombre del Programa",$IzqBtn+3,$ArbBtn+145,$AncBtn+20,$GruBtn)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$InpNomb = GUICtrlCreateInput("",$IzqBtn,$ArbBtn+165,$AncBtn+195,$GruBtn+10)
;GUICtrlSetBkColor(-1,$ClrBtn)

#**** Combo Tipo de archivo ***************************************************************************#
GUICtrlCreateLabel("Tipo de Programa",$IzqBtn+315,$ArbBtn+145,$AncBtn,$GruBtn)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ComTipo = GUICtrlCreateCombo("", $IzqBtn+310, $ArbBtn+165,150,30) ; crea el primer item
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetData($ComTipo, "Configuracion|Aplicacion|Oficina|Reproductor|Editor|Programacion|Herramienta|Complemento|Otro|Seleccione una opcion", "Seleccione una opcion") ; adiciona otros item

#**** Combo Estado del archivo ************************************************************************#
GUICtrlCreateLabel("Estado",$IzqBtn+470,$ArbBtn+145,$AncBtn-50,$GruBtn)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ComEsta = GUICtrlCreateCombo("", $IzqBtn+465, $ArbBtn+165,150,30) ; crea el primer item
GUICtrlSetData($ComEsta, "Por Defecto|Desactivado|Seleccione una opcion", "Seleccione una opcion") ; adiciona otros item

$InfArch = GUICtrlCreateLabel("",$IzqBtn,$ArbBtn+200,$AncBtn+507,$GruBtn+170,$Line1)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

#**** Boton Salir *************************************************************************************#
$BtnVlvr = GUICtrlCreateButton("Volver",$IzqBtn,$ArbBtn+390,$AncBtn,$GruBtn+10,$Line1)
GUICtrlSetBkColor(-1,$ClrBtn)

$BtnSlr = GUICtrlCreateButton("Salir",$IzqBtn+505,$ArbBtn+390,$AncBtn,$GruBtn+10,$Line1)
GUICtrlSetBkColor(-1,$ClrBtn)

$BtnGuarSlr = GUICtrlCreateButton("Guardar y Volver",$IzqBtn+160,$ArbBtn+390,$AncBtn,$GruBtn+10,$Line1)
GUICtrlSetBkColor(-1,$ClrBtn)

$BtnGuarCont = GUICtrlCreateButton("Guardar y continuar",$IzqBtn+280,$ArbBtn+390,$AncBtn,$GruBtn+10,$Line1)
GUICtrlSetBkColor(-1,$ClrBtn)

GUICtrlSetTip($BtnBscr,"Haga clic aqui para agregar un programa","",1,3)
GUICtrlSetTip($InpRuta,"Ubicacion del archivo seleccionado: ",GUICtrlRead($InpRuta),1,3)
GUICtrlSetTip($InpNomb,"Nombre para el archivo seleccionado: ",GUICtrlRead($InpNomb),1,3)
GUICtrlSetTip($ComTipo,"Tipo se programa: ",GUICtrlRead($ComTipo),1,3)
GUICtrlSetTip($ComEsta,"Estado de la instalacion: "&@CRLF&@CRLF&"Descativada: solo se instala si el usuario la selecciona"&@CRLF& _
"Por defecto: se instala por default",GUICtrlRead($ComEsta),1,3)
GUICtrlSetTip($BtnVlvr,"Volver al instalador sin guardar nada","",1,3)
GUICtrlSetTip($BtnSlr,"Salir del programa","",1,3)
GUICtrlSetTip($BtnGuarSlr,"Guardar y volver al instalador","",1,3)
GUICtrlSetTip($BtnGuarCont,"Guardar y continuar agregando programas","",1,3)

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

   Switch $nMsg

Case $BtnVlvr
	  ShellExecute(@ScriptDir & "\Datos\Refrescar Memoria\4GB.vbe") ; Libera la memoria de informacion basura
	  ShellExecute(@ScriptDir & "\IUCCG v.2.exe") ; ejecuta de nuevo la GUI del instalador
	  WinClose($TtlGuiAdd) ;Cierra la GUI
	  _DelTmp()

Case $BtnGuarCont
   If FileExists(@TempDir&"\"&$Arreglo1&".tmp") = 1 Then
	  MsgBox(0,"Aviso","Este programa ya esta agregado"&@CRLF&@CRLF&"Agrege otro programa o cambie el nombre",5)
	  GUICtrlSetData($InpRuta,"")
	  GUICtrlSetData($InpNomb,"")
	  _DelTmp()
   Else
	  _IniBtnCnt()
	  GUICtrlSetData($InfArch,@CRLF&"  Usted selecciono el siguiente programa:..... "&$Arreglo1& @CRLF& @CRLF & _
	  "  Su ubicacion es:....."&$Ruta& @CRLF& @CRLF &"  El tipo de programas es:...."&GUICtrlRead($ComTipo)& @CRLF& @CRLF & _
	  "  El estado del programa es:...."&GUICtrlRead($ComEsta))
	  _DelTmp()
   EndIf

Case $BtnGuarSlr
   If FileExists(@TempDir&"\"&$Arreglo1&".tmp") = 1 Then
	  MsgBox(0,"Aviso","Este programa ya esta agregado"&@CRLF&@CRLF&"Agrege otro programa o cambie el nombre",5)
	  GUICtrlSetData($InpRuta,"")
	  GUICtrlSetData($InpNomb,"")
	  _DelTmp()
   Else
	  _IniBtnSlr()
	  GUICtrlSetData($InfArch,@CRLF&"  Usted selecciono el siguiente programa:..... "&$Arreglo1& @CRLF& @CRLF & _
	  "  Su ubicacion es:....."&$Ruta& @CRLF& @CRLF &"  El tipo de programas es:...."&GUICtrlRead($ComTipo)& @CRLF& @CRLF & _
	  "  El estado del programa es:...."&GUICtrlRead($ComEsta))
	  _DelTmp()
   EndIf

Case $BtnBscr
	  _Add()

Case $BtnSlr
	  _DelTmp()
	  ExitLoop

Case $GUI_EVENT_CLOSE
	  Exit


EndSwitch
WEnd

Func _Add()
_Exist()
_Array()
   Global $Ruta
	  $Ruta = FileOpenDialog("Seleccione un Ejecutable", @ScriptDir&"\Datos\Programas\", "Ejecutables (*.exe;*.bat;*.com;*.cmd)", 1)
	  GUICtrlSetData($InpRuta,$Ruta)
	  If @error or $Ruta = "" Then
      $iMsgBoxAnswer = MsgBox(36, "Seleccione un Ejecutable", "Desea cancelar la selección del fichero?")
      Select
         Case $iMsgBoxAnswer = 6 ;Yes

         Case $iMsgBoxAnswer = 7 ;No
	  EndSelect
		 EndIf
_Arreglo()
EndFunc

Func _Arreglo()
      ;$IsSelect = 1
	  $sFile = FileFindFirstFile($Ruta) ; Busqueda para saber el nombre del ejecutable
	  $nFile = FileFindNextFile($sFile) ; Esto es nada mas para que te muestre un nombre por default en el input
	  $Arreglo1 = StringTrimRight($nFile,4)
	  GUICtrlSetData($InpNomb,$Arreglo1)

$Cprcn = GUICtrlRead($InpNomb)

   If FileExists(@TempDir&"\"&$Arreglo1&".tmp") = 1 Then
	  MsgBox(0,"Aviso","Este programa ya esta agregado"&@CRLF&@CRLF&"Agrege otro programa o cambie el nombre",5)
	  GUICtrlSetData($InpRuta,"")
	  GUICtrlSetData($InpNomb,"")
	  _DelTmp()
	  ControlClick("Agregando Programas","Examinar","[CLASS:Button; INSTANCE:1]")
   EndIf
EndFunc

Func _Tipo()

;****** esta seccion reduce los nombres para despues usarlos para escribir las secciones *****************************************
   If GUICtrlRead($ComTipo) = "Configuracion" Then
	  $Tipo = "Conf"
   ElseIf GUICtrlRead($ComTipo) = "Aplicacion" Then
	  $Tipo = "Apli"
   ElseIf GUICtrlRead($ComTipo) = "Oficina" Then
	  $Tipo = "Ofic"
   ElseIf GUICtrlRead($ComTipo) = "Reproductor" Then
	  $Tipo = "Repr"
   ElseIf GUICtrlRead($ComTipo) = "Editor" Then
	  $Tipo = "Edit"
   ElseIf GUICtrlRead($ComTipo) = "Programacion" Then
	  $Tipo = "Prog"
   ElseIf GUICtrlRead($ComTipo) = "Herramienta" Then
	  $Tipo = "Herr"
   ElseIf GUICtrlRead($ComTipo) = "Complemento" Then
	  $Tipo = "Comp"
   ElseIf GUICtrlRead($ComTipo) = "Otro" Then
	  $Tipo = "Otro"
   EndIf

EndFunc

Func _IniBtnCnt()
If GUICtrlRead($InpRuta) = "" Then
	  MsgBox(0,"Advertencia","Debe seleccionar un programa"&@CRLF&@CRLF&"haciendo clic el el botón EXAMINAR",5)
   Else
	  If GUICtrlRead($InpNomb) = "" Then
		 MsgBox(0,"Advertencia","Debe escribir un nombre para el programa"&@CRLF&@CRLF&"En la casilla NOMBRE DEL PROGRAMA",5)
	  Else
		 If GUICtrlRead($ComTipo) = "Seleccione una opcion" Then
			MsgBox(0,"Advertencia","Debe seleccionar el tipo de programa"&@CRLF&@CRLF&"En la casilla TIPO DEL PROGRAMA",5)
		 Else
			If GUICtrlRead($ComEsta) = "Seleccione una opcion" Then
			   MsgBox(0,"Advertencia","Debe seleccionar el estado del programa"&@CRLF&@CRLF&"En la casilla ESTADO DEL PROGRAMA",5)
			   Else

;******* Esta seccion detecta la seccion y si si no existe en el INI la escribe o si existe la escribe con el siguiente numero ****************
_Array()
Sleep(1000)
_Tipo()
;  Aqui es mi problema
   If FileExists(@TempDir&"\["&$Tipo&"0]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"0","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"0"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"0]") = 0 Then
	  $Ready = $Tipo&"0"
	  _Escr()
	  _Continuar()
   Else
	  If FileExists(@TempDir&"\["&$Tipo&"1]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"1","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"1"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"1]") = 0 Then
	  $Ready = $Tipo&"1"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"2]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"2","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"2"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"2]") = 0 Then
	  $Ready = $Tipo&"2"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"3]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"3","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"3"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"3]") = 0 Then
	  $Ready = $Tipo&"3"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"4]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"4","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"4"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"4]") = 0 Then
	  $Ready = $Tipo&"4"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"5]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"5","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"5"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"5]") = 0 Then
	  $Ready = $Tipo&"5"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"6]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"6","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"6"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"6]") = 0 Then
	  $Ready = $Tipo&"6"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"7]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"7","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"7"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"7]") = 0 Then
	  $Ready = $Tipo&"7"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"8]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"8","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"8"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"8]") = 0 Then
	  $Ready = $Tipo&"8"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"9]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"9","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"9"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"9]") = 0 Then
	  $Ready = $Tipo&"9"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"10]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"10","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"10"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"10]") = 0 Then
	  $Ready = $Tipo&"10"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"11]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"11","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"11"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"11]") = 0 Then
	  $Ready = $Tipo&"11"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"12]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"12","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"12"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"12]") = 0 Then
	  $Ready = $Tipo&"12"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"13]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"13","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"13"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"13]") = 0 Then
	  $Ready = $Tipo&"13"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"14]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"14","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"14"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"14]") = 0 Then
	  $Ready = $Tipo&"14"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"15]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"15","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"15"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"15]") = 0 Then
	  $Ready = $Tipo&"15"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"16]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"16","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"16"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"16]") = 0 Then
	  $Ready = $Tipo&"16"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"17]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"17","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"17"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"17]") = 0 Then
	  $Ready = $Tipo&"17"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"18]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"18","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"18"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"18]") = 0 Then
	  $Ready = $Tipo&"18"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"19]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"19","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"19"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"19]") = 0 Then
	  $Ready = $Tipo&"19"
	  _Escr()
	  _Continuar()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"19]") = 1 Then
	  MsgBox(0,"Aviso","La lista ya esta llena"&@CRLF&@CRLF&"Agrege el programa en otro TIPO DE PROGRAMA",5)
	  _DelTmp()
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc

Func _IniBtnSlr()

If GUICtrlRead($InpRuta) = "" Then
	  MsgBox(0,"Advertencia","Debe seleccionar un programa"&@CRLF&@CRLF&"haciendo clic el el botón EXAMINAR",5)
   Else
	  If GUICtrlRead($InpNomb) = "" Then
		 MsgBox(0,"Advertencia","Debe escribir un nombre para el programa"&@CRLF&@CRLF&"En la casilla NOMBRE DEL PROGRAMA",5)
	  Else
		 If GUICtrlRead($ComTipo) = "Seleccione una opcion" Then
			MsgBox(0,"Advertencia","Debe seleccionar el tipo de programa"&@CRLF&@CRLF&"En la casilla TIPO DEL PROGRAMA",5)
		 Else
			If GUICtrlRead($ComEsta) = "Seleccione una opcion" Then
			   MsgBox(0,"Advertencia","Debe seleccionar el estado del programa"&@CRLF&@CRLF&"En la casilla ESTADO DEL PROGRAMA",5)
			   Else

;******* Esta seccion detecta la seccion y si si no existe en el INI la escribe o si existe la escribe con el siguiente numero ****************
_Array()
Sleep(1000)
_Tipo()
;  Aqui es mi problema
   If FileExists(@TempDir&"\["&$Tipo&"0]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"0","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"0"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"0]") = 0 Then
	  $Ready = $Tipo&"0"
	  _Escr()
	  _Salir()
   Else
	  If FileExists(@TempDir&"\["&$Tipo&"1]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"1","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"1"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"1]") = 0 Then
	  $Ready = $Tipo&"1"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"2]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"2","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"2"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"2]") = 0 Then
	  $Ready = $Tipo&"2"
	  _Escr()
	  _Salir()
   Else
	  If FileExists(@TempDir&"\["&$Tipo&"3]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"3","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"3"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"3]") = 0 Then
	  $Ready = $Tipo&"3"
	  _Escr()
	  _Salir()
   Else
	  If FileExists(@TempDir&"\["&$Tipo&"4]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"4","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"4"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"4]") = 0 Then
	  $Ready = $Tipo&"4"
	  _Escr()
	  _Salir()
   Else
	  If FileExists(@TempDir&"\["&$Tipo&"5]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"5","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"5"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"5]") = 0 Then
	  $Ready = $Tipo&"5"
	  _Escr()
	  _Salir()
   Else
	  If FileExists(@TempDir&"\["&$Tipo&"6]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"6","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"6"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"6]") = 0 Then
	  $Ready = $Tipo&"6"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"7]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"7","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"7"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"7]") = 0 Then
	  $Ready = $Tipo&"7"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"8]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"8","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"8"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"8]") = 0 Then
	  $Ready = $Tipo&"8"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"9]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"9","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"9"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"9]") = 0 Then
	  $Ready = $Tipo&"9"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"10]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"10","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"10"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"10]") = 0 Then
	  $Ready = $Tipo&"10"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"11]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"11","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"11"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"11]") = 0 Then
	  $Ready = $Tipo&"11"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"12]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"12","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"12"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"12]") = 0 Then
	  $Ready = $Tipo&"12"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"13]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"13","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"13"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"13]") = 0 Then
	  $Ready = $Tipo&"13"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"14]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"14","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"14"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"14]") = 0 Then
	  $Ready = $Tipo&"14"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"15]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"15","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"15"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"15]") = 0 Then
	  $Ready = $Tipo&"15"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"16]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"16","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"16"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"16]") = 0 Then
	  $Ready = $Tipo&"16"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"17]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"17","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"17"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"17]") = 0 Then
	  $Ready = $Tipo&"17"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"18]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"18","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"18"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"18]") = 0 Then
	  $Ready = $Tipo&"18"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"19]") = 1 and IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini",$Tipo&"19","Nombre Archivo","") = False Then
	  $Ready = $Tipo&"19"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"19]") = 0 Then
	  $Ready = $Tipo&"19"
	  _Escr()
	  _Salir()
   Else
   If FileExists(@TempDir&"\["&$Tipo&"19]") = 1 Then
	  MsgBox(0,"Aviso","La lista ya esta llena"&@CRLF&@CRLF&"Agrege el programa en otro TIPO DE PROGRAMA",5)
	  _DelTmp()
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunc

Func _Exist()

For $c = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Conf"&$c,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $a = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Apli"&$a,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $o = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Ofic"&$o,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $r = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Repr"&$r,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $e = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Edit"&$e,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $p = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Prog"&$p,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $h = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Herr"&$h,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $m = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Comp"&$m,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next

For $f = 0 To 19
$Files = IniRead(@ScriptDir&"\Datos\IUCCG V.2.ini","Otro"&$f,"Nombre Archivo","")
If $Files <> "" Then
	  _FileCreate(@TempDir&"\"&$Files&".tmp")
   EndIf
Next
EndFunc

Func _Array()
$result = IniReadSectionNames(@ScriptDir & "\Datos\IUCCG V.2.ini")
 If @error Then
	MsgBox(0,"Aviso","El archivo esta vacio",0)
   Else
	For $a = 1 To $result[0]
	   _FileCreate(@TempDir&"\["&$result[$a]&"]")
	Next
 EndIf
EndFunc

Func _Escr()
; ****** esta seccion escribe el archivo INI ************************************************************
If GUICtrlRead($ComEsta) = "Desactivado" Then
   $Estado = 0
Else
   If GUICtrlRead($ComEsta) = "Por Defecto" Then
	  $Estado = 1
   EndIf
EndIf

		 $Arreglo2 = StringTrimLeft($Ruta,2)
		 $Arreglo3 = StringTrimLeft($Ruta,2)
		 $Arreglo4 = StringTrimRight($Arreglo3,4)
		 IniWrite(@ScriptDir & "\Datos\IUCCG V.2.ini",$Ready, "Nombre Archivo",GUICtrlRead($InpNomb))
		 IniWrite(@ScriptDir & "\Datos\IUCCG V.2.ini",$Ready, "Ubicacion", $Arreglo2)
		 IniWrite(@ScriptDir & "\Datos\IUCCG V.2.ini",$Ready, "Estado", $Estado)
		 IniWrite(@ScriptDir & "\Datos\IUCCG V.2.ini",$Ready, "Icono", $Arreglo4&".ico")
		 IniWrite(@ScriptDir & "\Datos\IUCCG V.2.ini",$Ready, "Info", $Arreglo4&".txt"&@CRLF)

	  EndFunc

Func _Salir()
Sleep(1000)
ShellExecute(@ScriptDir & "\Datos\Refrescar Memoria\4GB.vbe") ; Libera la memoria de informacion basura
WinClose($TtlGuiAdd) ;Cierra la GUI
;Sleep(10000)
_DelTmp()
ShellExecute(@ScriptDir & "\IUCCG v.2.exe") ; ejecuta de nuevo la GUI del instalador

EndFunc

Func _Continuar()
Sleep(1000)
ShellExecute(@ScriptDir & "\Datos\Refrescar Memoria\4GB.vbe") ; Libera la memoria de informacion basura
WinClose($TtlGuiAdd) ;Cierra la GUI para luego volverla a ejecutar
;Sleep(10000)
_DelTmp()
ShellExecute(@ScriptDir & "\Add.exe") ; ejecuta de nuevo la GUI

EndFunc

Func _DelTmp()

   FileDelete(@TempDir&"\[*]") ; Elimina los archivos creados en la carpeta temporal
   FileDelete(@TempDir&"\*") ; Elimina los archivos creados en la carpeta temporal
   FileDelete(@TempDir&"\*.*") ; Elimina los archivos creados en la carpeta temporal
   FileDelete(@TempDir&"\*.tmp") ; Elimina los archivos creados en la carpeta temporal

EndFunc