$Directorio = @ProgramFilesDir ;La carpeta donde esta instalado el programa
$Ruta = "\Winamp\" ;Ruta del programa
$Proceso = "Winamp.exe" ;Nombre del proceso del programa
$NombrePrograma = "Winamp Pro" ;Nombre del programa
$VersionVerificada = FileGetVersion($Directorio&$Ruta&$Proceso) ;Ruta complera con el proceso

;Derechos variantes
$RutaUninstall = "Winamp" ;Ruta de installer
$Comments = "© Copyright 1984-2012 All Rights Reserved" ;No modificar
$Contact = "Melvin David Rodriguez Avila" ;No modificar
$DisplayIcon = $Directorio&$Ruta&$Proceso ;No modificar
$DisplayName = $NombrePrograma ;No modificar
$DisplayVersion = "5.6.0.3085" ;Version del programa
$EstimatedSize = "36685" ;Tamaño del programa en el disco duro
$HelpLink = "melvin_rodriguezhn@hotmail.com" ;No modificar
$Pais = "+504-" ;No modificar
$HelpTelephone = $Pais&"99325020" ;No modificar
$InstallDate = @YEAR&@MON&@MDAY ;No modificar
$NoModify = "1" ;No modificar
$NoRemove = "0" ;No modificar
$NoRepair = "1" ;No modificar
$ProductID = "12.1984.02.00.900" ;No modificar
$Publisher = "Softcom Systems Incorporated" ;No modificar
$Readme = "http://www.melvinrodriguez.webcindario.com/" ;No modificar
$UninstallString = $Directorio&$Ruta&"Uninst.exe"
$URLInfoAbout = "http://www.melvinrodriguez.webcindario.com/" ;No modificar
$URLUpdateInfo = "http://www.melvinrodriguez.webcindario.com/" ;No modificar

;Escritorio variantes
$EscriorioPublico = @DesktopCommonDir&"\" ;No modificar
$EscriorioPublicoFull = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Common Desktop")&"\" ;No modificar
$NombreAccesoDirecto = $NombrePrograma&".lnk" ;No modificar
$EscritorioAccesoDirecto = @DesktopDir&"\" ;No modificar

If $VersionVerificada = $DisplayVersion Then ;Verifica si la version que se va instalar es igual a la que esta instalada
MsgBox(32, "Windows Update...", "No se puede instalar "&$NombrePrograma&" "&$VersionVerificada&"               "&@CRLF&@CRLF&"               Ya esta instalado en este equipo...", 10)
Derechos() ;Ejecutamos la funcion de los derechos de autor
Escritorio() ;Ejecutamos la funcion para crear los iconos en el escritorio
Exit
EndIf

If $VersionVerificada < $DisplayVersion Then ;Verifica si esta instalada una version mayor a esta, de lo contrario la instalamos
TrayTip("","Iniciando instalacion de:"&@LF&$NombrePrograma&" "&$DisplayVersion&@LF&$Comments,0)
Sleep(5000)
Intalar() ;Ejecutamos la funcion los cuales contiene los programas a intalar
Derechos() ;Ejecutamos la funcion de los derechos de autor
Escritorio() ;Ejecutamos la funcion para crear los iconos en el escritorio
TrayTip("","Finalizo instalacion:"&@LF&$NombrePrograma&" "&$DisplayVersion&@LF&$Comments,0)
Sleep(5000)
Exit ;Salimos
Else ;Si ya esta instalada una version mas reciente que esta mostramos el siguiente mensaje
MsgBox(32, "Windows Update...", "Ya esta instalado "&$NombrePrograma&" "&$VersionVerificada&" "&@CRLF&"es mas reciente que la que intenta instalar...                    "&@CRLF&@CRLF&$NombrePrograma&" "&$DisplayVersion&""&@CRLF&"No se pudo instalar...", 10)
Exit ;Salimos
EndIf

Func Intalar() ;Contiene los programas a intalar
RunWait("Instalador.exe /S")
;Creamos
DirCreate(@ProgramsCommonDir&"\Winamp")
Sleep(300)
FileCreateShortcut(@ProgramFilesDir&"\Winamp\Winamp.EXE",@ProgramsCommonDir&"\Winamp\Winamp.lnk",@ProgramFilesDir&"\Winamp","","Softcom Systems Incorporated",@ProgramFilesDir&"\Winamp\Winamp.EXE","","0",@SW_MINIMIZE)
EndFunc

Func Derechos() ;Derechos de autor
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "Comments", "REG_SZ", $Comments) ;No modificar COMENTARIOS
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "Contact", "REG_SZ", $Contact) ;No modificar CONTACTO
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "DisplayIcon", "REG_SZ", $DisplayIcon) ;No modificar ICONO
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "DisplayName", "REG_SZ", $DisplayName) ;No modificar NOMBRE
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "DisplayVersion", "REG_SZ", $DisplayVersion) ;No modificar VERSION DE PRODUCTO
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "EstimatedSize", "REG_DWORD", $EstimatedSize) ;No modificar TAMAÑO
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "HelpLink", "REG_EXPAND_SZ", $HelpLink) ;No modificar VINCULO DE AYUDA
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "HelpTelephone", "REG_SZ", $HelpTelephone) ;No modificar TELEFONO PARA AYUDA
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "InstallDate", "REG_SZ", $InstallDate) ;No modificar FECHA DE INSTALACION
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "NoModify", "REG_DWORD", $NoModify) ;No modificar MODIFICAR
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "NoRemove", "REG_DWORD", $NoRemove) ;No modificar DESINSTALAR
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "NoRepair", "REG_DWORD", $NoRepair) ;No modificar REPARAR
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "ProductID", "REG_SZ", $ProductID) ;No modificar ID PRODUCTO
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "Publisher", "REG_SZ", $Publisher) ;No modificar EDITOR
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "Readme", "REG_SZ", $Readme) ;No modificar LEEME
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "UninstallString", "REG_EXPAND_SZ", $UninstallString) ;DESISTALAR
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "URLInfoAbout", "REG_SZ", $URLInfoAbout) ;No modificar URL SOBRE INFORMACION
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"&$RutaUninstall, "URLUpdateInfo", "REG_SZ", $URLUpdateInfo) ;No modificar URL SOBRE ACTUALIZACION
EndFunc

Func Escritorio() ;Creamos los iconos en el escritorio
FileDelete($EscriorioPublico&$NombreAccesoDirecto) ;No modificar
FileDelete($EscriorioPublicoFull&$NombreAccesoDirecto) ;No modificar
If FileExists($DisplayIcon) Then
FileCreateShortcut($Directorio&$Ruta&$Proceso, $EscritorioAccesoDirecto&$NombreAccesoDirecto, $Directorio&$Ruta, "", $Publisher, $Directorio&$Ruta&$Proceso, "", "0", @SW_MINIMIZE) ;No modificar
EndIf
;Activamos
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft\Winamp", "Regkey", "REG_SZ", "~EUREO/HcOGE/ZPhDD/FIKPG")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Nullsoft\Winamp", "Regname", "REG_SZ", "Softcom Systems Incorporated")
EndFunc