Ver Mensaje Individual
  #7  
Antiguo 05-10-2005
cahp cahp is offline
Miembro
 
Registrado: may 2003
Ubicación: Alicante
Posts: 90
Reputación: 22
cahp Va por buen camino
Código:
   
 try
           IBInstall1.SourceDirectory := ExtractFilePath(Application.ExeName) + 'Interbase';
           IBInstall1.InstallCheck;
           IBInstall1.InstallExecute;
           WinExecNoWait32(IBInstall1.DestinationDirectory + '\Bin\ibserver.exe',SW_SHOWNORMAL);
        Except
            ' lanzas un mesaje, o bien no se ha podido instalar o ya esta instalado'
end;
Con esto instalo el servidor compiando en el cd de instalacion en el la carpeta donde esta el ejecutable/interbase los ficheros de intalacion. IBInstall lo encontraras en la palete Interbas Admin.


Esto otro es el script de instalacion de Inno setup que uso para firebird:
Código:
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
AppName=Nombre de la aplicacion
AppVerName=Nombre y version
AppPublisher=Nombre empresa
AppPublisherURL=pagina web
AppSupportURL=pagina web
AppUpdatesURL=pagina web
DefaultDirName=c:\hf\
DisableDirPage=yes
DefaultGroupName=Nombre del grupo de programas
;InfoBeforeFile=licencia.txt
OutputBaseFilename=instalación
Compression=lzma
SolidCompression=yes

[Languages]
Name: "es"; MessagesFile: "compiler:languages\SpanishStd-2-5.1.0.isl"

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

[Files]
Source: "C:\hf\Instalador\hf\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\Nombre aplicacion"; Filename: "{app}\ejecutable con la ruta completa"
Name: "{group}\{cm:UninstallProgram,Nombre aplicacion}"; Filename: "{uninstallexe}"
Name: "{userdesktop}\Nombre aplicacion"; Filename: "{app}\ejecutable con la ruta completa"; Tasks: desktopicon


[Run]
Filename: "{app}\Firebird.exe"; Description: "{cm:LaunchProgram,Servidor firebird}"; Flags: skipifsilent
Filename: "{app}\ejecutable con la ruta completa"; Description: "{cm:LaunchProgram,Nombre aplicacion}"; Flags: postinstall skipifsilent
Espero haber contribuido en en algo, si tienes dudas, no dudes en pantearlas.

Saludos

Claudio Herrador.
Responder Con Cita