Mostrar el enlace del Contrato de Licencia en la Configuración de Inno durante la instalación

Question

Estoy usando Inno Setup para mi aplicación. Deseo mostrar un enlace (Acuerdo de licencia) en la Configuración de Inno durante la instalación (excepto el Asistente para el acuerdo de licencia por separado). Quiero combinar este enlace con alguna tarea. Cuando el usuario hace clic en ese enlace, navegará a una URL particular.

Answer 1

Cree un texto de licencia con formato RTF (con Wordpad para tamaño de archivo muy pequeño) y escriba el hipervínculo en el texto como texto puro, sin funciones adicionales necesarias (por ejemplo, 'http://stackoverflow.com'). InnoSetup mostrará esta URL y hará que se pueda hacer clic en ella. Tenga en cuenta que los enlaces de correo electrónico no funcionan correctamente.

¿Quieres probar? Guarde todo el texto de Wordpad, guárdelo como RTF y vinculelo a InnoSetup.

holandesa

Answer 2

Sé que soy bastante tarde aquí ... La siguiente secuencia de comandos de código crea la etiqueta License Agreement enlace en la parte inferior izquierda del formulario asistente. Esa etiqueta tiene una fuente azul subrayada y un cursor de mano al pasar el mouse para que se vea y se sienta como un enlace de página web común. En su evento de clic, se abre una URL específica en un navegador web predeterminado. Esta etiqueta es entonces visible en todas las páginas del asistente, excepto la página de licencia uno:

[Code] 
var 
    LicenseLinkLabel: TLabel; 

procedure LicenseLinkClick(Sender: TObject); 
var 
    ErrorCode: Integer; 
begin 
    ShellExec('', 'http://www.stackoverflow.com', '', '', SW_SHOW, ewNoWait, 
    ErrorCode); 
end; 

procedure InitializeWizard; 
begin 
    LicenseLinkLabel := TLabel.Create(WizardForm); 
    LicenseLinkLabel.Parent := WizardForm; 
    LicenseLinkLabel.Left := 8; 
    LicenseLinkLabel.Top := WizardForm.ClientHeight - 
    LicenseLinkLabel.ClientHeight - 8; 
    LicenseLinkLabel.Cursor := crHand; 
    LicenseLinkLabel.Font.Color := clBlue; 
    LicenseLinkLabel.Font.Style := [fsUnderline]; 
    LicenseLinkLabel.Caption := 'License Agreement'; 
    LicenseLinkLabel.OnClick := @LicenseLinkClick; 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    LicenseLinkLabel.Visible := CurPageID <> wpLicense; 
end; 

Y el resultado (clic para ampliar):