Buscar una aplicación existente, realizando el instalador con Inno Setup

[Mona]

Gracias a todos por las respuestas.

Neftali: Como puedo comprobar la versión anterior del ejecutable, no recuerdo en este momento como hacerlo?. No puedo con la versión del ejecutable, porque este es un aplicativo que se instaló en diferentes equipos de diferentes entidades, mi función fue actualizar este aplicativo a dbexpress y adicionarle funciones nuevas al mismo de acuerdo a la solicitud del cliente.
Leí en el foro, que puedo comprobar el registro en windows de interbase, pero igualmente no me serviría como validador de que el ejecutable ya exista, porque si algún cliente en donde se vaya a instalar este aplicativo, tiene otro aplicativo que también utilice el motor interbase, no podría asumir que si existe interbase quiere decir que el aplicativo anterior se encuentra instalado.

Lepe: Me gustaría me ayudaras con los ejemplos para tratar de implementarlo por la opción que me sugieres.

David: Es cierto lo que dices, como me encargué de hacer la migración a dbexpress, la primera persona que hizo las versiones anteriores no tuvo en cuenta el registro de windows. Con la propuesta que me indicas de buscar en rutas determinadas, no me serviría, porque el aplicativo lo instala la entidad respectiva en cualquier ruta y nombre de directorio que la entidad estime. Sería poder buscar en todo el disco duro, el nombre de la aplicación.

[Neftali [Germán.Estévez]]

A ver, si no he entendido mal, la situación es esta:

ComprobarVersionEjecutable                      (1)
si (VersionAntiguaEjecutable) entonces
  CopiarEjecutable
  CopiarFicheroINI
sino
  ComprobarSiInstaladoInterbase                (2)
  si not (InstaladoInterbase) entonces
    InstalaInterbase                                  
  fin
  CopiarEjecutable
  CopiarBaseDatos
fin

(Acabo de recordar mis tiempos de pseudocódigo en la facultad...)

(1) Para comprobar la versión del EXE tienes dos posibilidades:
(a) Que en el ejecutable esté la información de versión; Si está la info de version puedes acceder a ella con GetFileVersionInfo; Revisa el truco 31, que hay en la sección de trucos.
(b) Si el ejecutable no tiene info de versión deberás hacerlo por fecha; Para acceder a las fechas de un fichero puedes ver el truco 72 en la seccion de trucos.

NOTA: Para saber si un EXE tiene esa información, puedes acceder a las propiedades desde el explorador de Windows. Prueba con unos cuantos ejecutrables de tu máquina y verás que en algunos esa información está rellenada y en otros no.

(2) Saber si InterBase está instalado:
Puedes comprobar las siguientes claves del registro, que son justo las qwue se crean cuando se instala Interbase desde un Inno Setup (el instalador de Interbase debe hacer lo mismo).

[Registry]
Root: HKLM; Subkey: Software\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: InterBaseGuardian; ValueData: {app}\bin\ibguard.exe; Flags: uninsdeletekey
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: DefaultMode; ValueData: -r
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: GuardianOptions; ValueData: 1
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: ServerDirectory; ValueData: {app}\bin

Espero que te sirva.

Un saludo.

[Neftali [Germán.Estévez]]

Empezado por Mona

G...no tuvo en cuenta el registro de windows...
...el aplicativo lo instala la entidad respectiva en cualquier ruta y nombre de directorio que la entidad estime. Sería poder buscar en todo el disco duro, el nombre de la aplicación.

(1) Par buscar en todo el disco, que parece que es la única alternativa, puedes usar el truco 82 (como ves tenemos trucos para todo...).

(2) Otra opción (o mejor, programarla como alternativa a la anterior) es ofrecer al usuario en la instalación la opción de seleccionar el directorio de instalación anterior; Si realmente cada entidad lo instala en un directorio, allí deben saber en cual.

Algo así:

(1) Seleccione el directorio de instalación anterior.
(2) El programa buscará el directorio por usted (este proceso puede tardar unos minutos).

[dec]

Hola,

Estoy echando un vistazo a la ayuda del programa y existen un conjunto de funciones "para archivos" que pueden utilizarse directamente (en el bloque "CODE") del Script de instalación.

Para lo que nos ocupa creo que podrían servir las siguientes funciones (documentadas en la ayuda del programa, como digo).

Código Delphi [-]
function FileSearch(const Name, DirList: string): String;
function FindFirst(const FileName: String; var FindRec: TFindRec): Boolean;
function FindNext(var FindRec: TFindRec): Boolean;
procedure FindClose(var FindRec: TFindRec);

[[Lepe]]

Usarás la utilidad IsTool ¿verdad?, así espero por tu comodidad

Pues ejemplo práctico:

Creo el instalador de un programa, y añado un archivo "NTDETECT.COM" tú tambien lo tendrás en c:\ así que puedes compilar el ejemplo que pongo.

Lo que hago es lo siguiente:
- Añado el archivo ntdetect y le digo que el directorio de destino es el TMP de la máquina de destino.
- En el apartado de instalar, lo mando a ejecutar con el parámetro /silent (en este caso no tiene sentido, pero bueno, es un ejemplo.
-Acabada la instalación, se borra el archivo ntdetect.com del directorio TMP el tuyo que existe en c:\ no se toca .

Además uso un "check", es decir, si se cumple una condición (en este caso si existe el "autoexec.bat") se copia el archivo .COM al directorio TMP y despues se intenta ejecutar. Si el archivo autoexec.bat no existe, no se hace nada de lo mencionado.

Los apartados "interesantes" son Files, Run y code.

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "My Program"
#define MyAppVerName "My Program 1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.mycompany.com"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVerName}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\My Program Directory
DefaultGroupName={#MyAppName}
OutputDir=C:\temp
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: english; MessagesFile: compiler:Default.isl
Name: spanish; MessagesFile: compiler:Languages\Spanish.isl

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Files]
Source: C:\Archivos de programa\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\NTDETECT.COM; DestDir: {tmp}; Check: Instalarntdetect; Flags: deleteafterinstall
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {userdesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon

[Run]
Filename: {tmp}\NTDETECT.COM; Parameters: " /silent"; WorkingDir: {tmp}; Flags: waituntilidle; Check: INSTALARNTDETECT

[ Code ]
{Todas las funciones funciones que se usan en un "check" deben ser
funciones que devuelvan un Boolean}

function INSTALARNTDETECT:Boolean;
begin
  {la comprobación que hago es insulsa, pero
   creo que se entenderá el uso}
  Result := fileExists('c:\autoexec.bat')
end;

Saludos

[[Lepe]]

Te aconsejo que en lugar de añadir todo esto:

ComprobarVersionEjecutable                      (1)
si (VersionAntiguaEjecutable) entonces
  CopiarEjecutable
  CopiarFicheroINI
sino
  ComprobarSiInstaladoInterbase                (2)
  si not (InstaladoInterbase) entonces
    InstalaInterbase                                  
  fin
  CopiarEjecutable
  CopiarBaseDatos
fin

en el apartado de code, lo hagas mediantes Checks, son mucho más cómodos. Me explico mejor:

Source: C:\Archivos de programa\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: replacesameversion overwritereadonly
Source: C:\NTDETECT.COM; DestDir: {tmp}  Check: CopiarSiesNuevo and EjecutarNtDetect
Source: C:\MiArchio.Ini; DestDir: {app}; Flags: onlyifdoesntexist

Con eso estoy diciendo que MyProg.Exe, se copiará si la versión es igual o mayor que el que exista, además si el MyProg.exe que ya existe en el equipo de destino tiene el atributo de solo lectura, que InnoSetup se lo quite.

El archivo ntdetect.com se copiará si las dos rutinas que se añade en la sección code devuelven true ( CopiarSiesNuevo y EjecutarNtDetect).

El archivo .Ini solo se copia si no existe previamente, así no machacas las opciones que ya tenga definido el usuario.

Como ves, todas las opciones que tiene IsTools son muy muy prácticas y útiles.

Saludos

[Mona]

Hola, primero quiero disculparme, me ordenaron suspender lo que estaba haciendo para terminar un proyecto, y por eso hasta ahora puedo entrar a probar lo que me dicen aquí.

Les cuento que hice lo que escribieron y me saca el siguiente error, como NDETECT.COM no lo tengo en mi maquina hice la prueba con otro archivo y me dice:

Ocurrió un error al tratar de crear un archivo en la carpeta destino
"c:\DOCUME~1\Mona\LOCALS~1\Temp\is-E29T4.tmp Check: CopiarSiesNuevo and EjecutarNtDetect"
Error 267: The directory name is invalid
Haga clic sobre Reintentar para probar de nuevo, Ignorar para omitir este archivo (no recomendado) o Cancelar para interrumpir la instalación.

Probé con todas las opciones, y cuando le doy ignorar, me dice
"c:\DOCUME~1\Mona\LOCALS~1\Temp\is-E29T4.tmp\Ejemplo2.xml
CreateProcess falló; código 2
The system cannot find the file specified

Copié el ejemplo tal como aparece en el foro. En donde estoy cometiendo el error??

[teecweb]

hola......