Discussion :

[forst]

re bonjour à tous

Je voulais savoir si cela est possible d'appeler une fonction ou procedure depuis la séléction de type d 'installation.
exemple : si je choisis l'intslallation personnalisé, j'appelle une fonction qui va m'afficher une page personnalisé au lieu une page habituel (qui est réservé pour l'installation complète).
Si vous voyez ce que je vexu dire.
Les codes ci-dessous fonctionne , seul bémol c'est que la procédure InitializeWizard(); prend en compte les 2 types d 'installation. J'ai essayé de mettre Check: LinkDir au lieu de InitializeWizard(); cela ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
[Types]
Name: "complet"; Description: "Full"
Name: "custom"; Description: "Custom"; Check: LinkDir
 
[Components]
Name: "program"; Description: "installation complète"; Types: complet;
Name: "link"; Description: "raccourci"; Types: custom;
 
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
 
[Files]
Source: "c:\\rep\\"; DestDir: "{app}";  
 
[Icons]
Name: "{userdesktop}\Programme"; Filename: "{code:GetDataDir}\index.html"; Tasks: desktopicon; IconFilename: "{code:GetDataDir}\index.ico"; 
 
(code)
var
  DataDirPage: TInputDirWizardPage;
 
procedure InitializeWizard(); 
// ou LinkDir()
begin
 
  DataDirPage := CreateInputDirPage(wpSelectComponents,
    ' Chemin du programme, 'Attention ceci n''est pas le répertoire d''installation',
    'Sélectionnez seulement le répertoire existant puis cliquez sur "Suivant".',
    False, '');
  DataDirPage.Add('');
 
end;
 
function GetDataDir(Param: String): String;
begin
  Result := DataDirPage.Values[0];
end;

[Ph. B.]

Bonjour,

Je voulais savoir si cela est possible d'appeler une fonction ou procedure depuis la séléction de type d 'installation.
exemple : si je choisis l'intslallation personnalisé, j'appelle une fonction qui va m'afficher une page personnalisé au lieu une page habituel (qui est réservé pour l'installation complète).
Si vous voyez ce que je vexu dire.

J'espère avoir bien vu (compris) , aussi voici comment je procèderais :
J'utiliserais l'événement déclenché lors de l'appui sur le bouton suivant de l'assistant : NextButtonClick. Si le type de page est celle de sélection du type d'installation (wpSelectComponents), je récupère le choix avec la fonction WizardSetupType. Je peux alors tester cette valeur et agir en conséquence...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function NextButtonClick(CurPageID: Integer): Boolean;
begin
  // Sortie de la page de sélection des composants
  if CurPageID = wpSelectComponents then
  begin
    // affichage du type d'installation sélectionnée
    MsgBox('Option d''installation'#13#10 + WizardSetupType(False),
      mbInformation, MB_OK);
    // Ici, à la place de la boite de dialogue, tester la valeur
    // et appeler la procédure de code adéquat...
  end;
  // Pour passer à l'étape suivante et ne pas bloquer l'assistant
  Result := True;
end;