Discussion :

[Sparktacus]

Bonjour et bonne année

J'ai un script permettant de tester la présence d'un fichier et s'il n'est pas trouvé, empêcher l'installation.

Je voudrais étendre ce test à plusieurs fichiers. J'ai essayé divers syntaxes, cherché des infos sur le net, mais chaque à fois je trouve comment faire pour un seul fichier.

Avez vous une solution ?

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
var 
  MessageErreur : string;
 
Function NextButtonClick(CurPageID: Integer): Boolean;
Begin
  Result := True; // Valeur de retour par défaut
  If CurPageID = 6 then
  Begin
    If Not FileExists( ExpandConstant('{app}') + '\programme.exe' ) then
      Begin
        MessageErreur := 'Veuillez spécifier le chemin vers le répertoire d installation';
        Msgbox(MessageErreur, mbConfirmation, MB_Ok);
        Result:=False;
      End;
    End
End;

J'ai essayé des syntaxes du genre :

Code :

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

1
2
3
If Not FileExists( ExpandConstant('{app}') + '\programme1.exe' ) or
If Not FileExists( ExpandConstant('{app}') + '\programme2.exe' ) or
If Not FileExists( ExpandConstant('{app}') + '\programme3.exe' ) then

Code :

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

1
2
3
If Not FileExists( ExpandConstant('{app}') + '\programme1.exe' ) then
If Not FileExists( ExpandConstant('{app}') + '\programme2.exe' ) then
If Not FileExists( ExpandConstant('{app}') + '\programme3.exe' ) then

Code :

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

1
2
3
If Not FileExists( ExpandConstant('{app}') + '\programme1.exe' );
If Not FileExists( ExpandConstant('{app}') + '\programme2.exe' );
If Not FileExists( ExpandConstant('{app}') + '\programme3.exe' ) then

Quand la compilation ne rate pas, la restriction ne fonctionne pas pendant l'installation.

Merci d'avance

[Andnotor]

Code :

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

1
2
3
If Not FileExists(ExpandConstant('{app}') + '\programme1.exe') or
   Not FileExists(ExpandConstant('{app}') + '\programme2.exe') or
   Not FileExists(ExpandConstant('{app}') + '\programme3.exe') then ...

ou

Code :

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

1
2
3
If Not (FileExists(ExpandConstant('{app}\programme1.exe'))  and
        FileExists(ExpandConstant('{app}\programme2.exe'))  and
        FileExists(ExpandConstant('{app}\programme3.exe'))) then ...

[Sparktacus]

Parfait merci beaucoup.