La section [Code] de InnoSetup

• Une bonne pratique du logiciel InnoSetup (connaissance des autres sections standard de script).
• Un minimum de connaissance du langage Pascal ou Delphi (principe et syntaxe).

À peu près tout ce que l'on veut lors de l'installation d'un progiciel !

• Modifier les pages standard.
• Ajouter des pages préformatées.
• Créer de toutes pièces des pages personnalisées.
• Dialoguer avec le script.
• Créer ses fonctions personnalisées.
• …

Les chapitres suivants vont essayer de vous aider à tirer parti du meilleur de ces fonctionnalités.

Certains évènements sont déclenchés lors du déroulement du script.
Utilisez les fonctions d'évènements afin de modifier le comportement de votre installateur.

Je ne vais pas récrire entièrement l'aide de InnoSetup, mais la liste ci-dessous vous permettra d'avoir une idée de quoi et où chercher.

Les évènements standards d'installation de InnoSetup

• function InitializeSetup(): Boolean; : appelé lors de l'initialisation du setup (c'est le 1er évènement qui se déclenche).
• procedure InitializeWizard(); : procédure d'initialisation générale.
• procedure DeinitializeSetup(); : appelé en fin d'installation (c'est le dernier évènement qui se déclenche).
• procedure CurStepChanged(CurStep: TSetupStep); : utilisez cet évènement afin de réaliser vos propres préinstall et postinstall.
• function NextButtonClick(CurPageID: Integer): Boolean; : se déclenche lors de l'appui sur le bouton Suivant.
• function BackButtonClick(CurPageID: Integer): Boolean; : se déclenche lors de l'appui sur le bouton Précédent.
• procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); : se déclenche lors de l'appui sur le bouton Annuler.
• function ShouldSkipPage(PageID: Integer): Boolean; :
• procedure CurPageChanged(CurPageID: Integer); : se déclenche lors de l'affichage d'une nouvelle page.
• function CheckPassword(Password: String): Boolean; : si présente dans le code, provoque l'affichage d'une boite de saisie d'un mot de passe.
• function NeedRestart(): Boolean; : retourne Vrai afin d'informer l'utilisateur que la désinstallation nécessite un redémarrage.
• function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
• procedure RegisterPreviousData(PreviousDataKey: Integer); :
• function CheckSerial(Serial: String): Boolean; : si présente dans le code, provoque l'affichage d'un champ de saisie d'un numéro de série sur la page UserInfo.
• function GetCustomSetupExitCode: Integer; :

Les évènements standards de désinstallation de InnoSetup

• function InitializeUninstall(): Boolean; : retourne Faux pour abandonner la désinstallation, sinon Vrai.
• procedure DeinitializeUninstall(); : se déclenche en fin de désinstallation.
• procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); : identique à CurStepChanged, mais lors de la désinstallation.
• function UninstallNeedRestart(): Boolean; : retourne Vrai afin d'informer l'utilisateur que la désinstallation nécessite un redémarrage.

Le projet standard 'CodeExample1.iss' montre comment utiliser la plupart de ces évènements.

Il est bien sûr possible de créer ses propres procédures ou fonctions d'évènement afin de les affecter aux contrôles des pages personnalisées que nous allons construire par la suite.

[Code]
procedure ButtonOnClick(Sender: TObject);
begin
  MsgBox('Vous avez cliqué sur le bouton !', mbInformation, mb_Ok);
end;

La liaison du contrôle et de son évènement se fera par l'intermédiaire d'une propriété d'évènement et de l'opérateur @

Button.OnClick := @ButtonOnClick;

Vous trouverez ci-après des exemples complets d'utilisation des fonctions d'évènements personnalisés.

Cet exemple est adapté du projet standard « CodeClass.iss ».

But
Ajouter un lien cliquable sur toutes les pages.

Explications

• Créer un Label auquel on va donner l'apparence d'un lien à l'aide des propriétés Caption, Cursor, Font.Style, Font.Color.
• Associer à ce Label une procédure d'évènement (URLLabelOnClick) à l'aide de la propriété OnClick :

[Code]
Procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://www.developpez.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

• La procédure standard InitializeWizard sera placée de préférence en fin de code, et de toute façon après toutes les fonctions ou procédures auxquelles elle fait appel :

[Code]
{*** INITIALISATION ***}
Procedure InitializeWizard;
var
  URLLabel: TNewStaticText;
begin
  URLLabel := TNewStaticText.Create(WizardForm);
  URLLabel.Caption := 'www.developpez.com';
  URLLabel.Cursor := crHand;
  URLLabel.OnClick := @URLLabelOnClick;
  URLLabel.Parent := WizardForm;
  { Alter Font *after* setting Parent so the correct defaults are inherited first }
  URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
  URLLabel.Font.Color := clBlue;
  URLLabel.Top := WizardForm.ClientHeight - URLLabel.Height - 15;
  URLLabel.Left := ScaleX(20);
end;

InnoSetup permet de générer des pages préformatées, c'est-à-dire prévues pour une acquisition d'informations bien précises.

Liste non exhaustive des types de pages préformatées de InnoSetup

• TInputDirWizardPage : page contenant des textboxs et des boutons « Parcourir » pour sélectionner des répertoires.
• TInputFileWizardPage : page contenant des textboxs et des boutons « Parcourir » pour sélectionner des fichiers.
• TInputOptionWizardPage : page contenant des « Checkboxs » ou de « Radio buttons ».
• TInputQueryWizardPage : page contenant des textboxs pour saisie d'informations textes.
• TWizardPage : page entièrement personnalisée.

V-A-1. Exemple 1 : Insérer une page de sélection de répertoires▲

[Code]
//La page sera insérée après la page d'info Licence
PageParam := CreateInputDirPage(wpLicense, ....);

[Code]
//La page sera insérée après la page perso PageInfos
PageParam := CreateInputDirPage(PageInfo.ID ....);

[Code]
// Variables Globales
var
  PageParam: TInputDirWizardPage;

// Créer les Pages Personnalisées
procedure CreateTheWizardPages;
begin
  PageParam := CreateInputDirPage(PageInfo.ID,
        'Répertoires d''installation',
        'Définissez les répertoires d''installation des programmes suivants :',
        'Les données seront enregistrées dans les répertoires définis à cette étape : '#13#10#13#10 +
            'Cliquez sur "Suivant" pour continuer. Pour définir un répertoire différent, cliquez sur "Parcourir".',
        False, 'New Folder');

    // Ajoutez un élément (avec une valeur vide)
    PageParam.Add('Répertoire d''installation de NumTools');
    PageParam.Add('Répertoire d''installation de notepad++');

    // Initialisez les valeurs par défaut (optional)
    PageParam.Values[0] := 'C:\Numtool2';
    PageParam.Values[1] := ExpandConstant('{pf}')+'\notepad++';

end;

[Code]
// Update ReadyMemo
function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo,
  MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
  S, S1: String;
begin
  { Fill the 'Ready Memo' with the normal settings and the custom settings }
  S := '';
  S := S + 'Installer x_Edit32_mod.exe dans :' + NewLine;
  S := S + Space + GetDirPath1(S1) + NewLine + NewLine;
  S := S + 'notepad++ est installé dans :' + NewLine;
  S := S + Space + GetDirPath2(S1) + NewLine;

  S := S + MemoDirInfo + NewLine;
  S := S + MemoTasksInfo + NewLine;

  Result := S;
end;

[Code]
{*** INITIALISATION ***}
Procedure InitializeWizard;
begin
  CreateTheWizardPages;
end;

V-A-2. Exemple 2 : Insérer un page de sélection d'options▲

V-A-3. Les pages personnalisées (custom page)▲

[Code]
// Variables Globales
var
  Edit: TEdit;
  CheckBox1, CheckBox2: TCheckBox;
  PasswordEdit: TPasswordEdit;
  Memo: TMemo;

[Code]
// Fonctions et procédures d'évènements
procedure ButtonOnClick(Sender: TObject);
begin
  MsgBox('You clicked the button!', mbInformation, mb_Ok);
end;

// Procédure de construction des pages personnelles
procedure CreateTheWizardPages;
// variables locales
var
  Page: TWizardPage;
  Button: TButton;
  Lbl: TLabel;
begin
  { TButton and others }

  Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TButton and others');

  Button := TButton.Create(Page);
  Button.Width := ScaleX(75);
  Button.Height := ScaleY(23);
  Button.Caption := 'TButton';
  Button.OnClick := @ButtonOnClick; // on affecte la procédure d'évènement au bouton
  Button.Parent := Page.Surface;

  CheckBox1 := TCheckBox.Create(Page);
  CheckBox1.Top := Button.Top + Button.Height + ScaleY(8);
  CheckBox1.Width := Page.SurfaceWidth;
  CheckBox1.Height := ScaleY(17);
  CheckBox1.Caption := 'TCheckBox 1';
  CheckBox1.Checked := True;  // la checkbox est cochée par défaut
  CheckBox1.Parent := Page.Surface;

  CheckBox2 := TCheckBox.Create(Page);
  CheckBox2.Top := CheckBox1.Top + CheckBox1.Height + ScaleY(8);
  CheckBox2.Width := Page.SurfaceWidth;
  CheckBox2.Height := ScaleY(17);
  CheckBox2.Caption := 'TCheckBox 2';
  CheckBox2.Checked := False;  // la checkbox est décochée par défaut
  CheckBox2.Parent := Page.Surface;

  Edit := TEdit.Create(Page);
  Edit.Top := CheckBox2.Top + CheckBox2.Height + ScaleY(8);
  Edit.Width := Page.SurfaceWidth div 2 - ScaleX(8);
  Edit.Text := 'TEdit';
  Edit.Parent := Page.Surface;

  PasswordEdit := TPasswordEdit.Create(Page);
  PasswordEdit.Left := Page.SurfaceWidth - Edit.Width;
  PasswordEdit.Top := CheckBox2.Top + CheckBox2.Height + ScaleY(8);
  PasswordEdit.Width := Edit.Width;
  PasswordEdit.Text := 'TPasswordEdit';
  PasswordEdit.Parent := Page.Surface;

  Memo := TMemo.Create(Page);
  Memo.Top := Edit.Top + Edit.Height + ScaleY(8);
  Memo.Width := Page.SurfaceWidth;
  Memo.Height := ScaleY(89);
  Memo.ScrollBars := ssVertical;
  Memo.Text := 'TMemo';
  Memo.Parent := Page.Surface;

  Lbl := TLabel.Create(Page);
  Lbl.Top := Memo.Top + Memo.Height + ScaleY(8);
  Lbl.Caption := 'TLabel';
  Lbl.AutoSize := True;
  Lbl.Parent := Page.Surface;
end;

[Code]
// Initialisation
procedure InitializeWizard();
begin
  CreateTheWizardPages;
end;

D'une page préformatée

[Code]
// Fonctions de retour
function GetDirPath1(Param: String): String;
begin
    Result := PageParam.Values[0] + '\bin';
end;
function GetDirPath2(Param: String): String;
begin
    Result := PageParam.Values[1];
end;

D'une page personnalisée

[Code]
// Fonctions de retour
function GetParam1(Param: String): String;
begin
  Result:= Edit.Text;
end;

Dans la partie script, utiliser la syntaxe : {code:LeNomDeMaFonction}

[Files]
Source: MonFichier.txt; Destdir: {code:GetDirPath1}; Flags: promptifolder

[INI]
Filename: {app}\istest.ini; Section: InstallSettings; Flags: uninsdeletesection
Filename: {app}\istest.ini; Section: InstallSettings; Key: Param1; String: {code:GetParam1}

[Code]
// Fonctions de retour
function GetParam2: Boolean;
begin
  Result:= CheckBox1.Checked;
end;

function GetParam3: Boolean;
begin
  Result:= CheckBox2.Checked;
end;

Dans la partie script, utilisez la syntaxe : Check: LeNomDeMaFonction

[INI]
Filename: {app}\MyProgram.ini; Section: InstallSettings; Flags: uninsdeletesection
Filename: {app}\MyProgram.ini; Section: InstallSettings; Key: Param2; String: True; Check: GetParam2
Filename: {app}\MyProgram.ini; Section: InstallSettings; Key: Param2; String: False; Check: NOT GetParam2

[INI]
Filename: {app}\MyProgram.ini; Section: InstallSettings; Key: Param1; String: True; Check: GetParam2 AND (NOT GetParam3)

Dans le script, définir :

[Languages]
Name: en; MessagesFile: compiler:Default.isl; 
Name: fr; MessagesFile: compiler:Languages\French.isl;

La liste des langues préformatées est contenue dans le dossier d'installation de Inno-Setup, normalement votre répertoire « C:\Program Files\Inno Setup 5\Languages »
La langue par défaut est English, associée au fichier default.isl

[CustomMessages]
; Français
fr.whoareyou=Qui êtes-vous ?
fr.titleinfos=Informations personnelles
fr.whoareyou=Qui êtes-vous ?
fr.name=Nom
fr.company=Société
fr.whodescription=Entrez votre nom et celui de votre société, et cliquez sur Suivant.

;English
en.whoareyou=Who are you ?
en.titleinfos=Personal Information
en.whoareyou=Who are you ?
en.name=Name :
en.company=Company :
en.whodescription=Please specify your name and the company for whom you work, then click Next.

Dans le code, les 'custom messages' (cm) sont interprétés comme des constantes.

Nous utiliserons la fonction ExpandConstant, citée précédemment, afin de les exploiter :

[Code]
//Variables Globales
var
  PageParam: TInputQueryWizardPage;

// Créer les Pages Personnalisées
procedure CreateTheWizardPages;

begin
// Create the page
PageParam := CreateInputQueryPage(wpWelcome,
  ExpandConstant('{cm:titleinfos}'), ExpandConstant('{cm:whoareyou}'),
  ExpandConstant('{cm:whodescription}'));

// Add items (False means it's not a password edit)
    PageParam.Add(ExpandConstant('{cm:name}'), False);
    PageParam.Add(ExpandConstant('{cm:company}'), False);
    PageParam.Values[0]:= 'Valeur_1';
    PageParam.Values[1]:= 'Valeur_2';
end;

// Fonctions de retour
function GetParam1(Param: String): String;
begin
    Result := PageParam.Values[0];
end;
function GetParam2(Param: String): String;
begin
    Result := PageParam.Values[1];
end;

{*** INITIALISATION ***}
procedure InitializeWizard;
begin
  CreateTheWizardPages;
end;

Pour utiliser les constantes prédéfinies dans InnoSetup, utilisez leur nom, comme décrit ci-dessus :

[Code]
TempVar:=ExpandConstant('{userappdata}') + ExpandConstant('{username}');

Télécharger la dernière version de Inno-Setup
Télécharger la dernière version de IsTools (le site est en anglais, mais le logiciel propose un package langue en français)

Dans la même série, voir aussi : Distribuer vos applications VB6 avec InnoSetup.

Un tout grand MERCI à tous ceux qui ont pris quelques minutes de leur temps précieux pour me relire et me conseiller, et tout particulièrement à bbil et sjrd.