FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con Inno Setup
Hola,
Necesitos hacer una instalacion de un programa en la que se guarden en el registro el numero de serie del disco duro y la fecha de instalacion... Es la primera vez que utilizo el Inno Setup (o IsTool), alguien podria decirme donde puedo encontrar informacion sobre esto? Gracias
__________________
Dave |
#2
|
||||
|
||||
Puedes revisar las páginas de FAQ's y el Knowledge Base en las páginas del propio Inno Setup. De todas formas, en lugar de programarlo desde un Script de Inno, lo más sencillo es que tú hagas un programita en Delphi que guarde en el registro la información que necesitas y lo ejecutes al realizar la instalación. Eso es algo sencillo y de lo que puedes encontrar ejemplos.
Por ejemplo, ésta url es de la página de Inno Setup y explica cómo se debe hacer para instalar el BDE desde tu SETUP. La forma es sencilla, se añaden a la instalación dos ficheros y durante la instalación se ejecuta uno de ellos (MiniReg.exe); Lo que debes hacer tú es lo mismo, pero simplemente que tu programita en lugar de ser éste (minireg.exe), será uno hecho por tí que grabe datos en el registro, pero casi siguiendo los mismos pasos que ahí se describen lo puedes hacer. (EDITADO...) Después de enviar el mensaje, he pensado... "...si seguro que ésto ya lo ha hecho alguien..." y he buscado... Rápidamente me ha salido ésta página: (para calcular nº de serie) http://www13.brinkster.com/vincenzog...t.asp?idart=19 (para guardar cosas en el registo) http://www13.brinkster.com/vincenzog...t.asp?idart=46 Es un Script de Inno para realizar lo que necesitas. Ahora tienes las dos opciones, lo puedes hacer vía Script o utilizando un programita .
__________________
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. Última edición por Neftali [Germán.Estévez] fecha: 28-02-2005 a las 09:35:43. |
#3
|
|||
|
|||
Gracias Neftali. Con lo que me dices ya soluciono el problema.
Perdon por no responder antes, pero no he recibido notificacion de tu respuesta en mi email. Revisare el panel de control a ver que ha pasado. Podrias indicarme una cosa mas: Para otra instalacion necesito saber el directorio en el que esta instalada una bases de datos (access). Se que se pueden crear mas ventanas para la instalacion con Inno Setup from designer, pero, sabes de algun manual para añadirles codigo? Como eventos de pulsacion de botones, abrir otras ventanas, ... Gracias.
__________________
Dave |
#4
|
||||
|
||||
Cita:
__________________
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. |
#5
|
|||
|
|||
Y para el codigo del Inno Setup (seccion [code])
__________________
Dave |
#6
|
|||
|
|||
Hola.
Sabes como hacer que con el Inno Setup para que muestra otra ventana en la que pide la ubicacio de otro fichero (base de datos)? He mirado en los links que me indicas y aparece algun ejemplo pero me da un error en la instruccion InputData (numero de argumentos incorrecto).
__________________
Dave |
#7
|
||||
|
||||
Ahi te dejo un codigo de ejemplo...
Es para el inno setup...lo debes de copiar tal como esta y miras lo que hace. Simplemente te muestra una pantallita con el arbol de directorios del disco duro, para que el usuario seleccione el directorio donde esta la BD. Si necesitas algo mas....PIDELO!!
Adios, Antonio ; Script generated by the Inno Setup Script Wizard. ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES! [Setup] AppName=prueba AppVerName=prueba DefaultDirName={pf}\prueba DisableDirPage=yes DefaultGroupName=p\rueba DisableProgramGroupPage=yes [Tasks] ; NOTE: The following entry contains English phrases ("Create a desktop icon" and "Additional icons"). You are free to translate them into another language if required. Name: "desktopicon"; Description: "Crear un acceso en el escritorio"; GroupDescription: " "; Flags: unchecked [Files] ; NOTE: Don't use "Flags: ignoreversion" on any shared system files [Icons] Name: "{group}\Desinstalar"; Filename: "{uninstallexe}" [code] var FolderTreeView1: TFolderTreeView; Label1: TLabel; procedure Cambio(Sender: TObject); begin Label1.Caption := FolderTreeView1.Directory; end; function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean; var Next, NextOK: Boolean; CurSubPage: Integer; begin { place subpages between 'Welcome'- and 'SelectDir' page } if (not BackClicked and (CurPage = wpWelcome)) or (BackClicked and (CurPage = wpSelectDir)) then begin { find startpage } if not BackClicked then CurSubPage := 0 else CurSubPage := 1; { iterate through all subpages } while (CurSubPage >= 0) and (CurSubPage <= 1) and not Terminated do begin ScriptDlgPageOpen(); ScriptDlgPageClearCustom(); { insert subpage } case CurSubPage of 0: // custompage 1 begin ScriptDlgPageSetCaption('Instalación en Red'); ScriptDlgPageSetSubCaption1('Seleccione donde esta ubicada la base de datos'); ScriptDlgPageSetSubCaption2(''); { Label1 } Label1 := TLabel.Create(WizardForm.ScriptDlgPanel); with Label1 do begin Parent := WizardForm.ScriptDlgPanel; Left := 10; Top := 10; Width := 182; Height := 13; Caption := 'Selecciona un directorio y veras su ruta aqui!!!! '; end; { FolderTreeView1 } FolderTreeView1 := TFolderTreeView.Create(WizardForm.ScriptDlgPanel); with FolderTreeView1 do begin Parent := WizardForm.ScriptDlgPanel; Left := 30; Top := 30; Width := 350; Height := 180; Cursor := crArrow; TabOrder := 0; OnChange := @Cambio; end; Next := ScriptDlgPageProcessCustom(); NextOK := True; end; 1: // custompage n begin end; end; { check sub-page navigation } if Next then begin if NextOK then CurSubPage := CurSubPage + 1; end else CurSubPage := CurSubPage - 1; end; { check main-page navigation } if not BackClicked then Result := Next else Result := not Next; ScriptDlgPageClose(not Result); end { return default } else Result := True; end; { NextButtonClick } function NextButtonClick(CurPage: Integer): Boolean; begin Result := ScriptDlgPages(CurPage, False); end; { BackButtonClick } function BackButtonClick(CurPage: Integer): Boolean; begin Result := ScriptDlgPages(CurPage, True); end; |
#8
|
|||
|
|||
Gracias alt126, me sirve de mucho.
Solo un pequeño detalle, se puede incluir en el arbol la red a la que esta conectado el equipo?
__________________
Dave |
#9
|
||||
|
||||
Sin problema!!
En el arbol aparece todo...unidades de red, USB....TODO.
Adios, Antonio |
#10
|
|||
|
|||
Siento seguir siendo pesado con las preguntas...
Ante todo daros las gracias por la ayuda prestada. He consiguido hacer la instalacion, pero si el usuario crea accesos directos: - En Windows Millenium (en el equipo del cliente): Da un error de Stack Overflow - En Windows XP no se ejecuta nada Pueden ayudarme? Nota: Para crear los accesos directos con el inno, lo he hecho usando el asistente.
__________________
Dave |
#11
|
|||
|
|||
Se me olvidaba: El acceso directo para la desinstalacion del programa funciona bien.
__________________
Dave |
|
|
|