Discussion :

[Mimie37]

Bonjour,

Dans mon programme d'installation développé avec Inno Setup je dois d'abord installer des prérequis (Redistributable C++ 2015 et Net Framework 4.6)
Sur certains postes le Redistributable C++ 2015 nécessite un redémarrage du poste avant de faire la suite du Setup

J'ai un code pour tester si le Redistributable C++2015 doit être installé

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
function VCinstalled: Boolean;
 var
  major: Cardinal;
  minor: Cardinal;
  bld: Cardinal;
  rbld: Cardinal;
  key: String;
 begin
  Result := False;
  key := 'SOFTWARE\Microsoft\VisualStudio\14.0\VC\Runtimes\x64';
  if RegQueryDWordValue(HKEY_LOCAL_MACHINE, key, 'Major', major) then begin
    if RegQueryDWordValue(HKEY_LOCAL_MACHINE, key, 'Minor', minor) then begin
      if RegQueryDWordValue(HKEY_LOCAL_MACHINE, key, 'Bld', bld) then begin
        if RegQueryDWordValue(HKEY_LOCAL_MACHINE, key, 'RBld', rbld) then begin
            Log('VC 2015 Redist Major is: ' + IntToStr(major) + ' Minor is: ' + IntToStr(minor) + ' Bld is: ' + IntToStr(bld) + ' Rbld is: ' + IntToStr(rbld));
            // Version info was found. Return true if later or equal to our 14.0.23026.00 redistributable
            // Note brackets required because of weird operator precendence
            Result := (major >= 14) and (minor >= 0) and (bld >= 23026) and (rbld >= 0)
        end;
      end;
    end;
  end;
 end;

Par contre je ne sais pas gérer le reboot et surtout comment gérer qu'après le reboot le setup se relance pour la suite de l'installation

Quelqu'un peu m'aider svp?

Merci

[Andnotor]

Ajoute ton setup à la clé RunOnce et lance un Shutdown /r /t 0.

Le chemin/fichier de l'installateur correspond à {srcexe}.

[Mimie37]

Si j'ai bien compris voici ce que je dois écrire dans le registre

[Registry]
Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce; ValueType: string; ValueName: LastInstallationPath; Flags: uninsdeletekey; ValueData: {srcexe}

Par contre j'aurais voulu si le redistribuable n'est pas installé (voir code plus haut) il soit installé et qu'à la fin il demande à l'utilisateur si il veut redémarrer maintenant ou pas
Si il répond oui stop setup redémarrage et relance le setup avec RunOnce
si non stop setup

Un exemple ?

[Andnotor]

Ce n'est pas logique de poser la question après l'installation des bibliothèques. Il faudrait plutôt interrompre l'installation :

Code :

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

1
2
3
4
5
[Code]
function InitializeSetup(): Boolean;
begin
  Result := VCinstalled or (MsgBox('Redistributable C++ 2015 absent. Voulez-vous l''installer ?', mbConfirmation, MB_YESNO) = IDYES);
end;

Mais tu devrais aussi conditionner l'ensemble des actions si tu veux les exécuter dans un premier ou deuxième temps par check VCinstalled ou check not VCinstalled :

Exemple :

Code :

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

1
2
3
4
5
6
 
[Files]
Source: "..\MonApp.exe"; DestDir: "{app}"; Check VCinstalled
 
[Registry]
Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce; ValueType: string; ValueName: LastInstallationPath; Flags: uninsdeletekey; ValueData: {srcexe}; Check not VCinstalled

[Mimie37]

ok mais ça ne focntionne pas quand je compile il y a une erreur sur VCinstalled

Code :

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

1
2
3
4
function InitializeSetup(): Boolean;
begin
  Result := VCinstalled or (MsgBox('Redistributable C++ 2015 absent. Voulez-vous l''installer ?', mbConfirmation, MB_YESNO) = IDYES);
end;