Discussion :

[Syrius Märx]

Bonjour à tous,

J'utilise le logiciel Inno Setup pour créer l'installateur d'un mod (pour ceux qui ne connaissent pas il est question de reparamétrer un jeu existant tel que Counter Strike issu de Half Life). Et pour perfectionner cet installateur il me reste deux éléments sur lesquels je bloque depuis un moment.

(1) Il est prévu de pouvoir installer de deux manières différentes, l'une en installant les composants du mod directement dans le répertoire du jeu d'origine, l'autre dans un répertoire indépendant à la manière d'un pseudo stand-alone.
Dans le premier cas je vais chercher le répertoire d'installation du jeu dans le registre, aucun chemin n'est demandé à l'utilisateur. Pour le second, l'utilisateur doit pouvoir choisir l'emplacement de son choix.
=> Problème : par défaut l'emplacement (page wpSelectDir) est demandé avant le type d'installation (page wpSelectComponents) alors que j'aurais besoin du contraire pour faire en sorte que :
- si installation combiné (dans le répertoire du jeu) on saute wpSelectDir
- si installation stand-alone on propose wpSelectDir


(2) Grâce à la section [code] et au registre je vérifie si le jeu est bien installé et s'il est patché en sa dernière version. Si les réponses sont négative j'affiche un message d'erreur à l'aide de MsgBox.
=> Problème : l'installation se fait dans deux langues et bientôt trois. Mais MsgBox ne prévoit pas la gestion du multilingue à ce que je sache.
J'ai bien essayé avec la section [CustomMessages] mais si je met Msgbox({cm:MonText},mbError ,MB_Ok); ça ne marche pas et si je met Msgbox('{cm:MonText}',mbError ,MB_Ok); j'ai le message texto {cm:MonText}


Je suis donc à la recherche d'une solution à ces deux problèmes. Je vous remercie d'avance pour vos réponses, n'hésitez pas à demander des précisions.

[Cl@udius]

Salut

Pour la question n° 2: Dans la partie code il faut utiliser ExpandConstant pour accéder aux CustomMessages.

Code :

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

Msgbox(ExpandConstant('{cm:MonText}'), mbError, MB_OK);

Pour la question n°1, euh: stand by pour l'instant.

[Edit]
Un p'tit oubli: Bienvenue

@+ Claudius

[Cl@udius]

Re.

Alors pour la question n°1, à mon avis tu devras passer par une page personnalisée, car effectivement wpSelectDir passe avant wpSelectComponents et pas moyen de changer cet ordre.

Donc dans la partie [Setup] tu 'squizzes' la page de sélection de dossier avec DisableDirPage=yes.
Puis tu crées la page perso du type TInputDirWizardPage que tu affiches dans le cas de l'install stand-alone juste après wpSelectComponents.

Je ne me suis jamais retrouvé confronter à cette situation, mais c'est dans cette direction que je m'orienterais.

@+

[Syrius Märx]

Merci pour ces réponses rapides

Pour le problème N°2 c'est réglé ça marche nickel.

Pour le N°1 j'ai consulté la documentation officiel et en fait je vois pas trop comment je dois insérer ce code.
Voici un aperçu de mon code actuel :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
[Setup]
...
DefaultDirName={code:RegDir}
AllowRootDirectory=no
DisableDirPage=yes
...
 
[Code ]
const RegPath = 'Software\Electronic Arts\EA Games\';
 
function RegDir(Param: String):String;
  var
    InstallDir: String;
 
begin
  // il existe deux coffrets du jeu, le normal et la version the first decade pack
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer The First Decade', 'zh_folder', InstallDir)
    then
      begin
        Result := InstallDir
      end
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer Generals Zero Hour', 'InstallPath', InstallDir)
    then
      begin
        Result := InstallDir
      end
end;
 
 
function InitializeSetup(): Boolean;
  var
    VersionValue: Cardinal;
begin
  if RegValueExists(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer Generals Zero Hour', 'InstallPath') = true OR RegValueExists(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer The First Decade', 'zh_folder') = true
    then
      begin
      Result:=True;
      end
    else
      begin
        Msgbox(ExpandConstant('{cm:NoZH}'),mbError ,MB_Ok);
        Result:=False;
      end;
 
  if RegQueryDWordValue(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer Generals Zero Hour', 'Version', VersionValue)
    then
      begin
      if VersionValue = 65540
        then
          begin
          Result:=True;
          end
        else
          begin
            Msgbox(ExpandConstant('{cm:NoPatch}'), mbInformation ,MB_Ok);
            Result:=False;
          end
      end;
 
    ...
    ...
end;

En plus de ne pas savoir où l'intercaler, je ne vois pas quelle condition mettre pour créer cette page seulement si le mode d'installation stand-alone est activé et encore moins comment faire en sorte que la constante {app} récupère le chemin entrée par l'utilisateur dans cette nouvelle page.
Désolé je suis novice en Pascal et je comprend pas toujours la logique de Inno Setup bien que je reconnais que c'est un très bel outil pour l'installation.

Ci-dessous le code que j'ai trouvé sur TInputDirWizardPage

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
 
function CreateInputDirPage(const AfterID: Integer; const ACaption, ADescription, ASubCaption: String; AAppendDir: Boolean; ANewFolderName: String): TInputDirWizardPage;
 
var
  Page: TInputDirWizardPage;
  DataDir: String;
 
...
 
// Create the page
Page := CreateInputDirPage(wpWelcome,
  'Select Personal Data Location', 'Where should personal data files be stored?',
  'Personal data files will be stored in the following folder.'#13#10#13#10 +
  'To continue, click Next. If you would like to select a different folder, click Browse.',
  False, 'New Folder');
 
// Add item (with an empty caption)
Page.Add('');
 
// Set initial value (optional)
Page.Values[0] := ExpandConstant('{userappdata}\My Company\My Program');
 
...
 
// Read value into variable
DataDir := Page.Values[0];

[ouiouioui]

faut déclarer en variable global, et utiliser TInputOptionWizardPage
j'ai pas testé et je suis malade alors je garantis rien

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
[Code]
const
  RegPath = 'Software\Electronic Arts\EA Games\';

var
  InstallType: TInputOptionWizardPage;

function RegDir(Param: String):String;
  var
    InstallDir: String;
begin
  // il existe deux coffrets du jeu, le normal et la version the first decade pack
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer The First Decade', 'zh_folder', InstallDir)
    then
      begin
        Result := InstallDir
      end
  if RegQueryStringValue(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer Generals Zero Hour', 'InstallPath', InstallDir)
    then
      begin
        Result := InstallDir
      end
end;

function InitializeSetup(): Boolean;
  var
    VersionValue: Cardinal;
begin
  InstallType := CreateInputOptionPage(wpWelcome,'titre', 'description', True, False);
  InstallType.Add('combiné');
  InstallType.Add('stand alone');
  InstallType.Values[1] := True; //default stand alone

  if RegValueExists(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer Generals Zero Hour', 'InstallPath') = true OR RegValueExists(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer The First Decade', 'zh_folder') = true
    then
      begin
      Result:=True;
      end
    else
      begin
        Msgbox(ExpandConstant('{cm:NoZH}'),mbError ,MB_Ok);
        Result:=False;
      end;

  if RegQueryDWordValue(HKEY_LOCAL_MACHINE, RegPath+'Command and Conquer Generals Zero Hour', 'Version', VersionValue)
    then
      begin
      if VersionValue = 65540
        then
          begin
          Result:=True;
          end
        else
          begin
            Msgbox(ExpandConstant('{cm:NoPatch}'), mbInformation ,MB_Ok);
            Result:=False;
          end
      end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := True; //show all page

  //page select dir and combiné checked, so skip selectdir
  if (PageID = wpSelectDir) and (InstallType.Values[1] = True) then
    Result := False;
end;

[Syrius Märx]

Bonjour ouiouioui !

J'aime bien la logique de ta proposition qui consiste à inverser le problème. J'ai voulu l'essayer mais après compilation j'ai l'erreur suivante :
X Runtime Error (at: 3151):
Erreur interne : An attempt was made to access WizardForm before it has been created.

La ligne qui semble poser problème est la suivante :

Code :

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

InstallType := CreateInputOptionPage(wpWelcome,'titre', 'description', 'autre', True, False);

Bon rétablissement.

[ouiouioui]

C'était pour t'inciter à lire l'aide.
Pascal Scripting - Using Custom Wizard Pages

To use custom wizard pages, first create them inside your InitializeWizard event function

Code :

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

1
2
3
4
5
6
7
procedure InitializeWizard();
begin
  InstallType := CreateInputOptionPage(wpWelcome,'titre', 'description', True, False);
  InstallType.Add('combiné');
  InstallType.Add('stand alone');
  InstallType.Values[1] := True; //default stand alone
end;

[Syrius Märx]

C'était pour t'inciter à lire l'aide

Je me sert beaucoup de la documentation officiel de Inno Setup, sans ça j'aurais pas déjà fait le reste de l'installateur. Je suis allé directement à la page "Pascal Scripting: CreateInputOptionPage" sans passé par la case "Pascal Scripting - Using Custom Wizard Pages" . . .

Donc avec ces nouveaux éléments j'ai repris tout et ça marche. J'ai du corriger quelques petits trucs comme pour la fonction ShouldSkipPage qui fonctionne à l'envers. Il faut mettre True pour désactiver et non False. (C'était aussi un test pour voir si j'étais débrouillard hein ?).

Reste un dernier soucis sur lequel je bloque, comment pouvoir récupérer l'information "combiné" ou "stand alone" pour s'en servir en tant que composants dans la section [Files]. En fait j'ai des éléments supplémentaires à installer si c'est en "stand alone".

[sjrd]

Regarde la documentation sur l'option Check qui est disponible dans la section [Files] (et d'autres).

[Syrius Märx]

Je reviens par ici pour vous remercier tous de votre aide. J'ai grâce à vous réussi à améliorer l'installateur pour notre mod.

Avis aux modérateurs vous pouvez afficher la mention [Résolu].


Je vous laisse une petite carte de visite au passage :

CnC Stargate Universe (base sur C&C Generals : Heure H)
- Site Internet
- Page Facebook

[Cl@udius]

Avis aux modérateurs vous pouvez afficher la mention [Résolu].

Ceci t'incombe.
Clique sur le bouton en bas de cette enfilade.

[Syrius Märx]

Ceci t'incombe.
Clique sur le bouton en bas de cette enfilade.

A vrai dire je l'avais bien cherché auprès du premier message mais pas en bas de page, désolé. Bref c'est réglé !