Discussion :

[sse49]

Bonjour,

Je voudrais passer en parametres d'un executable de ma section run, une variable alimenter par une fonction de mon code...
quelqu'un connait il la syntaxe que je dois utiliser.

Merci d'avance

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
[code]
var
i : Integer;
param1 : string;
 
function InitializeSetup(): boolean;
begin
  param1:='' ;
  for i := 0 to ParamCount do
     begin
      param1:=param1+ParamStr(i);
  end;
   Result:=true;
end;
 
[Run]
Filename: C:\toto\setup.exe; Parameters: param1;StatusMsg: Installation toto flags : waituntilterminated

[anapurna]

salut

Code :

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

C:\toto\setup.exe  param1 "Installation toto" waituntilterminated

[sse49]

salut

Code :

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

C:\toto\setup.exe  param1 "Installation toto" waituntilterminated

J'ai du mal m'exprimer, c'est au niveau de la syntaxe de la section [run] que j'ai un souci. Tel qu'elle est ecrite, il ne prend pas la valeur de param1 mais le texte param1. Or c'est le contenu de la variable qui m'interesse.

Merci d'avance

[Andnotor]

Crée une fonction spécifique pour la récupération de tes paramètres. Voici le prototype (Si je me souviens bien, Param est obligatoire même si tu ne l'utilise pas):

Code :

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

1
2
3
4
5
6
7
8
9
function GetParamStrings(Param: String): String;
var
  i :integer;
begin
  //Certainement à améliorer...
  Result := '' ;
  for i := 0 to ParamCount do
      Result := Result +ParamStr(i);
end;

Ensuite dans la section [Run]

Code :

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

1
2
[Run]
Filename: C:\toto\setup.exe; Parameters: {code:GetParamStrings};

[anapurna]

salut

tu ecrit comment ta ligne de paramettre dans le fichier ?

Code :

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

1
2
 
[Run] Filename: C:\toto\setup.exe; Parameters: param1;StatusMsg: Installation toto flags : waituntilterminated

Code :

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

1
2
3
4
 
st := Format('[Run] Filename: %s; Parameters: %s;StatusMsg: %s flags : %s',['C:\toto\setup.exe',param1,'Installation toto','waituntilterminated'])
]
write(st);

@+ Phil

[sse49]

merci pour votre aide
la solution andnotor a fonctionne

A bientot