Discussion :

[paschaerly]

Bonjour,

Je prends en main progressivement Innosetup. Pour des raisons propres à mes besoins, je dois passer par le bloc Code pour effectuer mon setup.
Mon wizard se compose par une succession d'écran appellés par la procédure InitializeWizard.
Puis je fais appel à la fonction UpdateReadyMemo pour afficher le résumé des choix effectués et pour accéder au bouton 'installer'.

Jusque là me direz-vous, rien de compliquer (quoique pas très trivial tout de même).

Mon problème réside de le fait de pouvoir effetuer les actions (en l'occurence des RegWrite puisque mon application ne connsiste qu'a écrire des clef de registre dans une ruche donnée) une fois que l'utilisateur clique sur le bouton "Installer" et en fonction des valeurs choisies dans les différents écrans précédents.

L'ordre d'éxécution des fonctions/procédures dans le bloc code reste peu claire à mes yeux.

Si j'écris un fonction ou une procédure après la fonction UpdateReadyMemo, rien ne se passe.

Quelqu'un pourrait-il m'éclaire à ce sujet ?

Je vous remercie par avance.

P-A.

[Andnotor]

La section [code] ne correspond pas à un programme complet avec lecture séquentielle, mais à des routines appelées par l'installer lui-même
Les différentes étapes appellent systématiquement CurStepChanged. L'installation proprement dite correspond à CurStep = ssInstall. C'est à ce moment-là (et uniquement celui-là) que tu dois écrire tes clés.

Code :

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

1
2
3
4
5
6
7
8
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
  begin
    RegWriteStringValue(...);
    RegWriteStringValue(...);
  end;
end;

Maintenant, il faut penser que ces clés écritent pas la section [code] ne sont pas "désinstallables" sans l'ajout de code dans CurUninstallStepChanged. Il pourrait être plus judicieux de conditionner le infos de la section [registry] par l'ajout d'une condition (check).

Quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
[Registry]
root: HKLM; subkey: SOFTWARE\MyKey; valuetype: dword; valuename: MyKeyName; valuedata: 0; Check: CheckWriteMyKey
 
[ Code]
function CheckWriteMyKey() :boolean;
begin
  Result := MyTestResult;
end;

[paschaerly]

Super, merci beaucoup cette réponse prompte et efficace. Cela fonctionne parfaitement bien !!!

Par contre, concernant votre recommandation d'utiliser la section [registry], je ne sais pas si elle est possible dans mon cas, cas le nombre d'insertion de clefs de registre est variable (en fonction de ce qu'aura choisit la personne installant l'application). Il faudra certainement que je m'appuie sur l'utilisation de la partie CurUninstallStepChanged.

P-A

[Andnotor]

Chaque commande peut être conditionnée par:

• Les composants sélectionnés (Components),
• Les tâches sélectionnées (Tasks),
• Les version min et max de l'OS (MinVersion)
• Sans oublier les fonctions codées (Check cité précédemment).

(Ces tests sont cumulatifs.)

Avec CurStepChanged, il faut tout retester manuellement. En utilisant check uniquement pour les cas particuliers, tu te faciliterais grandement la tâche (et la maintenance)