Script Con Inno setup para Interbase

[Toni]

Hola,

Yo hace poco tambien consulte el foro en busca de informacion para realizar una instalacion de IB6 silenciosa conjuntamente con mi aplicación. Los ejemplos que encontre tanto en el foro como en las paginas dedicadas a interbase (para innosetup) no me han funcionado muy bien que se diga.

El motivo es que la instalacion de IB6 difiere en algunos aspectos segun en el sistema en el que lo vamos a instalar (W95/98, NT/W2K, XP).

He comparado los scritps y cada uno contempla algunas cosas que los otros no, claves en el registro y otras cosas.

Yo al final he decidido incluir en mi instalacion la instalacion original del IB6 empaquetado dentro de mi setup y se ejecuta automaticamente.

De todas formas aqui te incluyo el ejemplo mas completo que he encotrado.

Un saludo,

; This script was first created by ISTool
; http://www.lerstad.com/istool/

; adaptation Claude GUTH

; Script d'installation d'une application IB 6

[Registry]
;enlever le commentaire de la clé ci-dessous si vous voulez que le serveur démarre avec le boot
;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; ValueType: DWord; ValueName: UseCount; ValueData: {reg:HKLM\Software\Borland\InterBase, UseCount|0} + 1
;Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: DWord; ValueName: UseCount; ValueData: {reg:HKLM\Software\Borland\InterBase\CurrentVersion, UseCount|0} + 1
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: GuardianOptions; ValueData: 1
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: RootDirectory; ValueData: {app}\
Root: HKLM; Subkey: Software\Borland\InterBase\CurrentVersion; ValueType: string; ValueName: ServerDirectory; ValueData: {app}\bin

[Types]
Name: "Serveur"; Description: "Installation avec serveur en local"
Name: "ServeurMini"; Description: "Installation compacte avec serveur en local"
Name: "Client"; Description: "Installation en application client"
Name: "ClientMini"; Description: "Installation compacte en application client"

[Components]
Name: "Client"; Description: "Application en client"; Types: Client ClientMini Serveur ServeurMini; Flags: fixed
Name: "Serveur"; Description: "Application avec serveur sur le poste"; Types: Serveur ServeurMini
Name: "Administration"; Description: "Outils d'administration"; Types: Serveur
Name: "Documentation"; Description: "Documentation IB"; Types: Serveur

[Files]
;Mon application
;Source: c:\Program Files\Borland\Delphi5\Reso lib\IBFacilitator\TestIBFacilitator.exe; DestDir: c:\temp
;Ma base
;Source: c:\temp\test.gdb; DestDir: c:\temp
;Fichiers Interbase
Source: ibconfig; DestDir: {app}; Components: Serveur
Source: interbase.msg; DestDir: {app}
Source: isc4.gdb; DestDir: {app}; CopyMode: onlyifdoesntexist; Flags: uninsneveruninstall; Components: Serveur
Source: isc4.gbk; DestDir: {app}; CopyMode: onlyifdoesntexist; Flags: uninsneveruninstall; Components: Serveur
Source: bin\ibguard.exe; DestDir: {app}\bin; Components: Serveur
Source: bin\ibserver.exe; DestDir: {app}\bin; Components: Serveur
Source: gds32.dll; DestDir: {sys}
Source: msvcrt.dll; DestDir: {sys}
;le fichier suivant est à extraire de la distribution
Source: license.htm; DestDir: {app}
;Utilitaire installation service pour NT/2000
Source: bin\instsvc.exe; DestDir: {app}; Components: Serveur; MinVersion: 0, 4.0
;Fichiers IBConsole {mis en commentaire pour gain de place}
; Source: bin\IBConsole.exe; DestDir: {app}\bin; Components: Administration
;Fichiers Documentation {mis en commentaire pour gain de place}
; Source: bin\IBConsole.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBConsole.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBGloss.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBGloss.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBServer.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\IBServer.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\Perform.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\Perform.cnt; DestDir: {app}\bin; Components: Documentation
; Source: bin\SQLRef.hlp; DestDir: {app}\bin; Components: Documentation
; Source: bin\SQLRef.cnt; DestDir: {app}\bin; Components: Documentation

[Dirs]
;Name: {app}\bin

[Run]
;Lance le serveur sous Win9x, sous NT/2000 démarrer le service ibserver
Filename: {app}\bin\ibguard.exe; Flags: nowait; MinVersion: 4.0, 0
;Utilitaire installation service pour NT/2000
Filename: {app}\bin\instsvc.exe; Flags: nowait; MinVersion: 0, 4.0

[Setup]
;
AppName=Test installation application IB6
AppCopyright=Claude GUTH, Inprise
;SourceDir=C:\Program files\Interbase Corp\Interbase
DefaultDirName={pf}\Borland\InterBase
AppVerName=Test IB 6.0
DefaultGroupName=Test Install IB6
;
;OutputDir=c:\temp\output
;MessagesFile=compiler:France.isl
DisableProgramGroupPage=false
AllowNoIcons=true
;inhibe l'installation si IB actif
;AppMutex=ibserver
;privilèges d'administrateur requis pour l'installation serveur sur NT/2000
AdminPrivilegesRequired= yes
; Components: Serveur

[UninstallRun]
;Filename: {app}\bin\instreg.exe; Parameters: remove; Flags: runminimized