Discussion :

[phoenix345]

Bonjours

J'ai générer mon scripte afin de faire mon setup de mon application mais je souhaiterai que lors de l'installation de cette dernière je veux que ça vérifie si le pc à son framework mise à jours.
Si ce n'est pas le cas je veux installer le framwork 4.

Voici un bout de script que j'ai pris sur le net mais il me ressort une erreur là ou s'est rouge. Le message émis est "BEGIN" expected

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
[CustomMessages]
DotNET=Le framework Microsoft .NET 4.0 n'est pas installé sur cette machine. Le programme d'installation va maintenant l'installer.

Code
procedure CurStepChanged(CurStep: TSetupStep);

msgRes : integer;
  errCode : integer;

begin
if (CurStep = ssPostInstall) then
begin
  Result := true;
  // Check for required dotnetfx 3.5 installation
  if (not RegKeyExists(HKLM, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4.0')) then begin
    msgRes := MsgBox(CustomMessage('DotNET'), mbError, MB_OKCANCEL);
    if(msgRes = 1) then begin
      ShellExec('', ExpandConstant('{app}\redist\dotNetFx40_Full_setup.exe', '', '', SW_SHOW, ewNoWait, ErrorCode);
    end;
    Abort();
  end;
end;
end;

Je voudrais savoir si le code est bon et s'il y a des erreur me le dire svp !!!
Merci à vous.

P S : Le setup du Net framework se situera dans le répertoir d'installation de mon application.

[phoenix345]

Voici ce que je viens de mettre et qui marche !

[code]

Code :

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

1
2
3
4
5
6
7
8
 
function MyProgCheck(): Boolean;
begin
  Result := False;
  //vérif si besoin d'installer en cherchant dans le registre ou version d'un fichier et si utilisateur accepte
  if MsgBox('Framwork 4.0 est nécessaire ! Voulez vous le mettre ?', mbConfirmation, MB_YESNO) = idYes Then
    Result := True;
end;

Je souhaiterai que l'instal s'arrète quand on clique sur no
Comment faire svp ?