FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Mas funcionalidad con Inno Setup
Hola, estoy haciendo una instalacion de un programa hecho con builder c++ que maneja Bases de datos access...todo me funciona estupendamente pero quisiera que el programa de instalacion pudiera hacer las siguientes cosas, y no se si es posible o hay que hacer algun script en pascal o algo asi...
- Solicitar una opcion de instalacion en red o local, y segun sea la respuesta crear unas entradas en el registro u otras. - Comprobar que el access esta instalado a partir de la version 2000. Si alguien sabe como hacer esto o tiene alguna idea, pos muchas gracias... Adios, Antonio |
#2
|
||||
|
||||
Revisa ISFD (Inno Setup Form Designer).
No he llegado a probarlo, pero es para crear nuevas páginas en los instaladores hechos con Inno Setup, que creo que es lo que tú necesitas; Supongo aque además de crear nuevas páginas te permitirá programar la lógica que deba haber en ellas; Se puede hacer con Inno utilizando Scripts como tú muy bien dices, pero ésta herramienta te facilitará el trabajo.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
Cita:
Aquí tienes un script para Inno Setup que detecta cuál versión de MS Access está instalada, si es que existe alguna Espero que te sea útil. Script tomado de la página Inno Setup Extensions Knowledge Base/How to detect if and wich version of MSAccess is installed [code] ; ; ISX 3.0.2 ; ; [Setup] AppName=MSAccessVersion AppVerName=MSAccessVersion DefaultDirName={pf}\MSAccessVersion DisableStartupPrompt=true Uninstallable=false DisableDirPage=true OutputBaseFilename=MSAccessVersion Código:
// Legenda // 8.00.00.3512 Access 97 // 8.00.00.4122 Access 97 SR1 // 8.00.00.5903 Access 97 SR2 // 9.00.00.2719 Access 2000 // 9.00.00.3822 Access 2000 SR1 // 9.00.00.4506 Access 2000 SR2 // 10.00.2627.1 Access XP function AccessVersion(): String; var accversion, accpath: String; begin accversion := ''; if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE', '', accpath) then begin // in varResult there is path of msaccess.exe GetVersionNumbersString( accpath, accversion ); end; Result := accversion; end; function InitializeSetup(): Boolean; var accver: String; begin accver := AccessVersion(); if Length( accver ) > 0 then begin MsgBox( 'Version ('+ accver +') of MS Access is installed.', mbInformation, MB_OK ); // go on with setup Result := true; end else begin MsgBox( 'MS Access is not installed.', mbInformation, MB_OK ); // cannot go with setup anyway Result := false; end; end; Última edición por Héctor Randolph fecha: 19-12-2004 a las 22:39:24. |
#4
|
||||
|
||||
Muchas gracias por vuestras respuestas...
Lo he consegido de esta forma:
Para la version: if(RegQueryStringValue(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Office\8.0','', Acc97Path)) then begin Result := False; MsgBox('Se requiere una version de Microsoft Access 2000 o superior' #13#13 'La instalación no puede continuar', mbError, MB_OK); end; Para saber si existe: if(not RegKeyExists(HKLM,'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE')) then begin Result := False; MsgBox('Se requiere que Microsoft Access este instalado' #13#13 'La instalación no puede continuar', mbError, MB_OK); end; Muchas gracias... Antonio |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|