|
Instalador
Uso el Inno Setup para crear una instalacion de un aplicacion que realizo en Delphi 6. Uso el siguiente codigo :
; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
[Setup]
AppName=GESTION DE PRESUPUESTOS
AppVerName=Proyecto V1.0
DefaultDirName={pf}\GESTION DE PRESUPUESTOS
DefaultGroupName=GESTION DE PRESUPUESTOS
UninstallDisplayName=Desinstalar
[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 icono en escritorio"; GroupDescription: "Additional icons:"
[Files]
Source: "PRESUPUESTOS.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "Enlace.udl"; DestDir: "{app}"; Flags: ignoreversion
Source: "Ayuda.hlp"; DestDir: "{app}"; Flags: ignoreversion
Source: "Ayuda.cnt"; DestDir: "{app}"; Flags: ignoreversion
Source: "BDPRESUPUESTOS.mdb"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\WINNT\system32\qtintf.dll"; DestDir: "{app}"; Flags: ignoreversion
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Icons]
Name: "{group}\GESTION DE PRESUPUESTOS"; Filename: "{app}\PRESUPUESTOS.exe"
Name: "{userdesktop}\GESTION DE PRESUPUESTOS"; Filename: "{app}\PRESUPUESTOS.exe"; Tasks: desktopicon
[Run]
; NOTE: The following entry contains an English phrase ("Launch"). You are free to translate it into another language if required.
Filename: "{app}\PRESUPUESTOS.exe"; Description: "Ejecutar GESTION DE PRESUPUESTOS"; Flags: nowait postinstall skipifsilent
Pero me pasa un problema y es que el acceso directo que me crea en el escritorio me falla porque tengo que ir a propiedades del acceso directo con el boton derecho del raton y en "Iniciar en" esta vacio y tengo que poner la ruta, la pongo y funciona. Me gustaria saber como puedo hacer para que desde el codigo del instalador me lo instale directamente en el escritorio sin necesidad de variar yo el "iniciar en".
Saludos y muchas gracias.
|