Instalador Bateria [CodigoFuente]

$ACTUALIZAR = False
If Not _ISLAPTOPPC() Then Exit MsgBox(4096 + 16, "Instalador Simple de TLOTS corp.", "Este Programa sirve para Monitoriar la Nateria de los Notebook." & @CR & "Se ha detectado que este computador no es un Notebook..." & @CR & "Saliendo...", 6)
Func _ISLAPTOPPC($_MYCOMPUTER = ".")
    $_OBJWMISERVICE = ObjGet("winmgmts://" & $_MYCOMPUTER & "/root/cimv2")
    $_COLITEMS = $_OBJWMISERVICE.ExecQuery("Select * from Win32_Battery")
    For $_OBJITEM In $_COLITEMS
        If $_OBJITEM <> "" Then Return True
    Next
    Return False
EndFunc
ProcessClose("Bateria.exe")
ProcessClose("BateriaBack.exe")
ProcessClose("BateryTimer.exe")
If FileExists(@UserProfileDir & "\TLOTS corp\Bateria.ini") Then
    If FileGetVersion(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\Bateria.exe") < FileGetVersion(@ScriptFullPath) Then
        If MsgBox(36, "Instalador Simple de TLOTS corp.", "El programa ya se encuentra instalado en su PC, pero es una version mas antigua." & @CRLF & "¿Desea actualizar el programa?") = 7 Then
            _DESINTALAR()
        Else
            $ACTUALIZAR = True
        EndIf
    Else
        _DESINTALAR()
    EndIf
EndIf
Func _DESINTALAR()
    $IMSGBOXANSWER = MsgBox(308, "Instalador Simple de TLOTS corp.", "El programa que intenta instalar ya esta instalado en su sistema." & @CRLF & "¿Desea borrarlo?")
    Select
        Case $IMSGBOXANSWER = 6
            FileDelete(@UserProfileDir & "\TLOTS corp\Bateria.ini")
            FileDelete(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\lowbatt.mp3")
            FileDelete(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\lowbatt.ico")
            FileDelete(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\Bateria.exe")
            FileDelete(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\BateriaBack.exe")
            FileDelete(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\BateryTimer.exe")
            DirRemove(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR"))
            FileDelete(@StartupCommonDir & "\Bateria.lnk")
            MsgBox(64, "Instalador simple de TLOTS corp", "La desintalacion se ha completado con exito." & @CRLF & "Gracias por preferir TLOTS corp.")
            Exit
        Case $IMSGBOXANSWER = 7
            $IMSGBOXANSWER = MsgBox(36, "Instalador Simple de TLOTS corp.", "Desea Ejecutar el programa?")
            Select
                Case $IMSGBOXANSWER = 6
                    Run(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\Bateria.exe")
                    Exit
                Case $IMSGBOXANSWER = 7
                    MsgBox(16, "Instalador Simple de TLOTS corp.", "Entonces, este programa no puede hacer nada por usted." & @CRLF & "Saliendo...")
                    Exit
            EndSelect
    EndSelect
EndFunc
$FORM1 = GUICreate("Instalador Simple de TLOTS corp.", 386, 224, -1, -1)
$LABEL1 = GUICtrlCreateLabel("Bienvenido al programa de instalacion.", 16, 16, 186, 17)
$LABEL2 = GUICtrlCreateLabel("Seleccione la carpeta donde desea instalar el programa:", 16, 40, 269, 17)
$CAMINOAINSTALACION = GUICtrlCreateInput(@ProgramFilesDir & "\TLOTScorp\Bateria\", 16, 64, 273, 21)
If $ACTUALIZAR Then GUICtrlSetState(-1, $GUI_DISABLE)
$BUSCAR = GUICtrlCreateButton("Buscar...", 296, 62, 75, 25, $WS_GROUP)
If $ACTUALIZAR Then GUICtrlSetState(-1, $GUI_DISABLE)
$LABEL3 = GUICtrlCreateLabel("Seleccione donde las opciones que le interesen:", 16, 96, 233, 17)
$AUTOINICIO = GUICtrlCreateCheckbox('Iniciar Con Windows (Se creara un acceso directo en la carpeta "Inicio")', 16, 120, 369, 17)
If $ACTUALIZAR And FileExists(@StartupCommonDir & "\Bateria.lnk") Then GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_CHECKED)
$INSTBACK = GUICtrlCreateCheckbox("Añadir Batery Timer (Esta funcion esta en BETA)", 16, 140, 369, 17)
GUICtrlSetTip(-1, "Esta funcion le permitira ver el tiempo aproximado de duracion de la bateria.")
If $ACTUALIZAR And FileExists(GUICtrlRead($CAMINOAINSTALACION) & "\BateryTimer.exe") Then GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetState(-1, $GUI_CHECKED)
$INSTALAR = GUICtrlCreateButton("Comenzar la Instalacion!", 104, 164, 171, 25, $WS_GROUP)
If $ACTUALIZAR Then GUICtrlSetData(-1, "Comenzar la Actualizacion!")
$PROGRESS1 = GUICtrlCreateProgress(16, 196, 358, 17)
GUISetState(@SW_SHOW)
While 1
    $NMSG = GUIGetMsg()
    Switch $NMSG
        Case $GUI_EVENT_CLOSE
            Exit
        Case $BUSCAR
            GUICtrlSetData($CAMINOAINSTALACION, FileSelectFolder("Seleccione la carpeta para instalar", "", 1) & "\TLOTScorp\Bateria\")
        Case $INSTALAR
            DirCreate(@UserProfileDir & "\TLOTS corp\")
            DirCreate(GUICtrlRead($CAMINOAINSTALACION))
            FileInstall("C:\Users\TLOTS\Desktop\Autoit Files\Bateria\Config.ini", @UserProfileDir & "\TLOTS corp\Bateria.ini", 1)
            GUICtrlSetData($PROGRESS1, 13)
            FileInstall("C:\Users\TLOTS\Desktop\Autoit Files\Bateria\lowbatt.mp3", GUICtrlRead($CAMINOAINSTALACION) & "\lowbatt.mp3", 1)
            GUICtrlSetData($PROGRESS1, 26)
            FileInstall("C:\Users\TLOTS\Desktop\Autoit Files\Bateria\lowbatt.ico", GUICtrlRead($CAMINOAINSTALACION) & "\lowbatt.ico", 1)
            GUICtrlSetData($PROGRESS1, 32)
            FileInstall("C:\Users\TLOTS\Desktop\Autoit Files\Bateria\Bateria.exe", GUICtrlRead($CAMINOAINSTALACION) & "\Bateria.exe", 1)
            GUICtrlSetData($PROGRESS1, 57)
            If GUICtrlRead($AUTOINICIO) = $GUI_CHECKED Then
                FileCreateShortcut(GUICtrlRead($CAMINOAINSTALACION) & "\Bateria.exe", @StartupCommonDir & "\Bateria.lnk")
            Else
                $IMSGBOXANSWER = MsgBox(292, "Instalador Simple de TLOTS corp.", "De acuerdo a la naturaleza del programa, seria mejor si se inicia al inicio del equipo, asi no tendra que preocuparse de abrirlo si desea usar la bateria." & @CRLF & "Seguro que no desea iniciar este programa con Windows?")
                If $IMSGBOXANSWER = 7 Then FileCreateShortcut(GUICtrlRead($CAMINOAINSTALACION) & "\Bateria.exe", @StartupCommonDir & "\Bateria.lnk")
            EndIf
            GUICtrlSetData($PROGRESS1, 59)
            IniWrite(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", GUICtrlRead($CAMINOAINSTALACION))
            GUICtrlSetData($PROGRESS1, 71)
            IniWrite(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Apariencia", "SonidoAlarma", GUICtrlRead($CAMINOAINSTALACION) & "lowbatt.mp3")
            GUICtrlSetData($PROGRESS1, 80)
            IniWrite(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Apariencia", "Icono", GUICtrlRead($CAMINOAINSTALACION) & "lowbatt.ico")
            GUICtrlSetData($PROGRESS1, 90)
            If GUICtrlRead($INSTBACK) = $GUI_CHECKED Then
                FileInstall("C:\Users\TLOTS\Desktop\Autoit Files\Bateria\BateryTimer.exe", GUICtrlRead($CAMINOAINSTALACION) & "\BateryTimer.exe", 1)
            Else
                If MsgBox(68 + 256, "Instalador Simple de TLOTS corp.", "Seguro que NO desea instalar Batery Timer???" & @CRLF & "Batery Timer es un complemento del programa que le permitira saber facilmente el tiempo de carga que le queda a su bateria." & @CRLF & "(Para instalarlo haga click en No)") = 7 Then
                    FileInstall("C:\Users\TLOTS\Desktop\Autoit Files\Bateria\BateryTimer.exe", GUICtrlRead($CAMINOAINSTALACION) & "\BateryTimer.exe", 1)
                EndIf
            EndIf
            FileDelete(IniRead(@UserProfileDir & "\TLOTS corp\Bateria.ini", "Funcion", "CarpetaInstalacion", "ERROR") & "\BateriaBack.exe")
            GUICtrlSetData($PROGRESS1, 100)
            MsgBox(64, "Instalador Simple de TLOTS corp.", "La instalacion ha finalizado." & @CRLF & "Ahora se iniciara el Programa" & @CRLF & "Gracias por preferir TLOTS corp.")
            Run(GUICtrlRead($CAMINOAINSTALACION) & "\Bateria.exe")
            FileSetAttrib(GUICtrlRead($CAMINOAINSTALACION), "-SH")
            Exit
    EndSwitch
WEnd