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

[Mona]

Hola, buenos días, la verdad es la segunda vez que entro a este foro. Espero que me puedan ayudar a visualizar una solución a lo que debo hacer.

Debo realizar el instalador de una aplicación con Inno Setup, he leído y se como instalar interbase, pero tengo que verificar lo siguiente:

El nuevo aplicativo que deseo instalar esta hecho en dbexpress con motor Interbase, si en la máquina donde se vaya a instalar el aplicativo ya existe el aplicativo (es decir hay una versión anterior, la versión anterior fué hecha con bde), solo debo instalar el ejecutable y un archivo .ini que contiene los script de actualización, en caso contrario instala los dll, la base de datos, el ejecutable y interbase como si fuera la primera vez.
Pensé en hacerlo, verificando si en el registro de windows estaba INTERBASE, pero puedo suceder que en la máquina donde se instale esten trabajando un aplicativo diferente al que estoy instalando.

Espero haber sido clara en la explicación de lo que deseo hacer. Cualquier ayuda que me puedan brindar, les quedo inmensamente agradecida.

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

Para comprobar tu aplicación (versión anterior) puedes comprobar el número de versión de la que hay instalada. Si no lo habéis utilizado te tendrás que valer de la fecha del ejecutable; Debes saber a partir de qué versión o qué fecha de bvuestro ejecutable cambiásteis de BDE a Interbase.

Para el tema de que no esté la aplicación y quieras comprobar si ya existe Interbase o no, creo reciordar que puedes buscar si está el Servicio instalado (IBServer o IBGuard -no recuerdo-); Si todo esto no puedes hacerlo desde Inno Setup o te da problema siempre puedes programarlo en una Aplicación Delphi que se lance desde el Inno en la istalación.

[[Lepe]]

Hola Mona:

Mas o menos ando el mismo caso, aunque InnoSetup tiene su sección Code para crear tus propias rutinas, es algo engorroso traducir las apis, para eso estoy usando la opción comentada por Neftali, hacer una aplicación aparte que se distribuye con el Setup, se guarda en la carpeta "tmp" del equipo y despues se ejecute, si necesitas más info, puedo ayudarte con ejemplos.

Saludos

[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);

[dec]

Hola,

Yo en casos como el que comentas lo que hacía (y puede que no sea mala costumbre) es que desde el principio, desde la primera instalación, creaba una clave en el Registro de Windows con la versión (y lo que se te ocurra) de la aplicación que estaba instalándose.

Claro que esto a ti no te servirá ya de mucho, puesto que lo que digo es que de ese modo, haciéndolo así, es trivial con el InnoSetup comprobar si una determinada clave del Registro de Windows existe. De todos modos, aunque no dejaras algo "preparado" de antemano, tal vez podrías utilizar alguna otra clave del Registro, en caso de que tu aplicación guarde "cosas" ahí.

Por otro lado, creo recordar que InnoSetup permite "incrustar" código de Object Pascal en el instalador, o sea, no todo pero sí un subconjunto de funciones y eso. Tal vez, si no te queda más remedio, podrías tratar de buscar, directamente, el ejecutable de tu aplicación. Esto ralentizaría la instalación del programa, pero, a lo mejor se puede hacer algo para evitar que fuera eterno.

Me refiero a que acaso no tengas que buscar en todo el disco duro, sino, sólo en determinadas rutas. Y, por otro lado, en este tu segundo instalador, no te olvides de incluir ya una "marca" en el Registro de Windows, de modo que desde un tercer instalador de tu programa pudieras comprobar si dicha marca existe o no.