Inno setup et DefaultDirName

Question

Existe-t-il un moyen de définir le DefaultDirName par code en fonction de la décision que l'utilisateur a prise lors de l'installation? Laissez-moi le commentaire: J'ai du code qui est construit pour deux systèmes différents (en utilisant différents interops/ocx et tels trucs). Mes fichiers d'entrée sont stockés dans deux répertoires input \ A et input \ B. Je veux avoir un seul fichier d'installation pour les deux systèmes.

Dans le fichier d'installation, j'utilise CreateInputOptionPage avec 2 options pour déterminer les fichiers à installer (en utilisant Check sur chaque fichier). Cela fonctionne bien.

Mais j'ai aussi un ShellExec à la fin de la configuration, qui utilise actuellement {app} par exemple. enregistrer des classes .Net et ShellExec pour annuler l'inscription des classes .Net sur InitializeUninstall (utilise également {app})

La configuration doit installer le logiciel sur deux emplacements différents (en fonction de la sélection de l'utilisateur (par exemple, c: \ software_a ou c: \ software_b)

Y a-t-il un moyen de spécifier le DefaultDirName avant que les fichiers ne soient copiés sur le système, donc je peux utiliser le même ShellExec lors de l'installation et de la désinstallation? Bien sûr, ajoutez le même ShellExec pour les deux systèmes sur installtation et utilisez un if pour vérifier quels fichiers enregistrer (selon la sélection de l'utilisateur) mais lors de la désinstallation je n'aurais pas cette information (sélection de l'utilisateur), donc je ne peux pas désenregistrer le. classes

merci

Answer 1

Si vous devez changer le dossier d'installation après l'DefaultDirName a été initialisé, ce travaillait pour moi bien:

procedure CurPageChanged(CurPageID: Integer); 
begin 
    { updates the install path depending on the install type or the entered suffix } 
    if CurPageID = wpSelectDir then begin 
    WizardForm.DirEdit.Text := ExpandConstant('{pf}') + '\MyAppName' + GetAppSuffix(''); 
    end; 
end; 

Vive Chris

Answer 2

Dans votre section de code CreateInputOptionPage, vous pourriez être en mesure de définir une valeur puis utiliser cette valeur dans l'extrait de code ci-dessous. Je ne l'ai pas testé mais cela pourrait fonctionner.

[Setup] 
DefaultDirName={code:getpath} 

[Code] 
function GetPath(Default: string): string; 
begin 

if (CreateInputOptionPageValue1) then 
Result := ExpandConstant({sd}) + '\path1'; 
else 
Result := ExpandConstant({sd}) + '\path2'; 
end;