Mostra collegamento Accordo di licenza in Inno Setup durante l'installazione

Question

Sto utilizzando Inno Setup per la mia applicazione. Desidero mostrare un collegamento (Contratto di licenza) in Inno Setup durante l'installazione (ad eccezione della Procedura guidata del contratto di licenza separata). Voglio combinare questo collegamento con qualche compito. Quando l'utente fa clic su quel collegamento, passerà a un determinato URL.

Answer 1

Creare un testo di licenza formattato RTF (con Wordpad per dimensioni file molto piccole) e digitare il collegamento ipertestuale nel testo come testo puro, senza funzioni aggiuntive necessarie (ad esempio 'http://stackoverflow.com'). InnoSetup visualizzerà questo URL e lo renderà selezionabile. Essere consapevoli del fatto che i collegamenti e-mail non funzionano correttamente.

Vuoi provare? Salva l'intero testo Wordpad, salva come RTF e collegalo a InnoSetup.

olandese

Answer 2

So di essere molto tardi qui ... Il seguente script codice crea l'etichetta License Agreement link nella parte in basso a sinistra del modulo di procedura guidata. Quella etichetta ha un carattere sottolineato blu e un cursore a forma di mano sul librato, in modo che appaia e si senta come un collegamento a una pagina Web comune. Nel suo evento click, un URL specificato viene aperto in un browser Web predefinito. Questa etichetta è quindi visibile su tutte le pagine della procedura guidata, ad eccezione della pagina una licenza:

[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; 

E il risultato (cliccare per ingrandire):