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

Button.OnClick := @ButtonOnClick;

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

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

[Code]
procedure InfosButtonOnClick(Sender: TObject);
begin
  MsgBox('Vous avez clicker sur le bouton Infos...', mbInformation, mb_Ok);
end;

procedure InitializeWizard();
var
  InfosButton, CancelButton: TButton;
begin

  CancelButton := WizardForm.CancelButton;

  InfosButton := TButton.Create(WizardForm);
  InfosButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
  InfosButton.Top := CancelButton.Top;
  InfosButton.Width := CancelButton.Width;
  InfosButton.Height := CancelButton.Height;
  InfosButton.Caption := '&Infos...';
  InfosButton.OnClick := @InfosButtonOnClick;
  InfosButton.Parent := WizardForm;
end;

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

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

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

// Creer 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 +
			'Cliquer sur "Suivant" pour continuer. Pour définir un répertoire différent, cliquez sur "Parcourir".',
		False, 'New Folder');

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

	// Initialiser 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;

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

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

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

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

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

[Languages]
Name: en; MessagesFile: compiler:Default.isl; 
Name: fr; MessagesFile: compiler:Languages\French.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.

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

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