Discussion :

[julienlefranc]

Bonjour,

Je souhaite installer 2 applications (App1 et App2) "liées" entre elles: l'App1 exécute App2 avec certains paramètres.
Il faut donc que App1 connaisse le chemin d'installation de App2 pour pouvoir la lancer. Pour cela, j'utilise les clefs de registre qui stockent les chemins des applications.

On souhaite une installation avec l'arborescence suivante:
{app}\App1.exe
{app}\..\App2\App2.exe on monte d'un répertoire pour créer le répertoire App2
avec {app} contenant (par exemple) "C:\Company\App1"

L'installation des fichiers se fait sans erreur dans la section [Files]

Code :

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

1
2
Source: Fr\App1.exe; DestDir: {app};
Source: Fr\App2.exe; DestDir: {app}\..\App2;

Dans la section [Registry], j'ai le code suivant:

Code :

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

1
2
Root: HKLM; Subkey: SOFTWARE\Company\App1\; ValueType: string; ValueName: ApplicationPath; ValueData: {app}; Tasks: ; Languages: 
Root: HKLM; Subkey: SOFTWARE\Company\App2\; ValueType: string; ValueName: ApplicationPath; ValueData: {code:GetPathApp2|{{app}

Dans la section [Code], j'ai implémenté la fonction GetPathApp2 qui ne me retourne pas ce que je veux : en sortie de la fonction, j'ai: {app\..\App2

Code :

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

1
2
3
4
function GetPathApp2(_Param: string): String;
begin
  Result:= _Param + '\..\App2' ;
end;

Voyez-vous erreur dans ce qui est fait et/ou une bonne méthode pour obtenir ce répertoire ?

Bonne journée.

[ouiouioui]

Code :

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

1
2
3
4
function GetPathApp2(_Param: string): String;
begin
  Result:= ExpandConstant(_Param) + '\..\App2' ;
end;

pourquoi ne pas utiliser ?

Code :

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

1
2
Root: HKLM; Subkey: SOFTWARE\Company\App1\; ValueType: string;  ValueName: ApplicationPath; ValueData: {app}; Tasks: ; Languages: 
Root: HKLM; Subkey: SOFTWARE\Company\App2\; ValueType: string;  ValueName: ApplicationPath; ValueData: "{app}\..\App2"

[julienlefranc]

Salut ouiouioui,

Merci pour tes propositions.

Code :

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

1
2
3
4
function GetPathApp2(_Param: string): String;
begin
  Result:= ExpandConstant(_Param) + '\..\App2' ;
end;

La compilation est OK mais j'ai une erreur qui vient de cette instruction lorsque je lance le setup:
Runtime error
Erreur interne: unclosed constant

Pour continuer sur cette piste, j'ai modifié la fonction

Code :

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

1
2
3
4
function GetPathApp2(_Param: String): String;
begin
  Result:= ExpandConstant('{app}') + '\..\App2' ;
end;

mais le résultat est "C:\Company\App1\..\App2"

pourquoi ne pas utiliser ?

Code :

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

1
2
Root: HKLM; Subkey: SOFTWARE\Company\App1\; ValueType: string;  ValueName: ApplicationPath; ValueData: {app}; Tasks: ; Languages: 
Root: HKLM; Subkey: SOFTWARE\Company\App2\; ValueType: string;  ValueName: ApplicationPath; ValueData: "{app}\..\App2"

J'avais essayé cette instruction mais il fait simplement une concaténation de chaîne avec un résultat identique au test précédent "C:\Company\App1\..\App2"

Merci

[ouiouioui]

plus sa:

Code :

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

extractfilepath(expandconstant('{app}')) + 'app2'

je comprends pas pourquoi ces .. pour remonter d'un répertoire, {app}\..\App2\ c'est pas clair sa donne quoi au final les deux répertoires ?

[julienlefranc]

plus sa:

Code :

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

extractfilepath(expandconstant('{app}')) + 'app2'

C'est tout bon, merci. J'oubliais que je pouvais utiliser les routines Delphi

plus sa:je comprends pas pourquoi ces .. pour remonter d'un répertoire, {app}\..\App2\ c'est pas clair sa donne quoi au final les deux répertoires ?

Je voulais faire en relatif d'où les .. mais ça ne fonctionne pas.