Discussion :

[Sparktacus]

Bonjour à tous,

J'ai fais un script pour créer l'installateur d'une application. Maintenant j'en fais un autre pour une mise à jour. Et je voudrais que l'installation ne se face pas si le fichier exe n'est pas détecté dans le répertoire d'installation spécifié.

J'ai trouvé la bonne piste je crois mais je ne sais pas l'exploiter d'autent plus que la seul ligne qui correspond à cette évènement est DefaultDirName.

if not FileExists('fichier.exe')

Si le fichier n'est pas détecté il faudrait qu'une pop up l'avertisse et reste sur la page de sélection du dossier d'installation pour qu'un autre répertoire soit spécifié.


D'avance merci pour votre aide

EDIT : pour le moment j'ai fais ça, mais c'est incomplet, peut être même complètement faux


[code]

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
 
var UserPage: ??????????????????????????;
var MessageErreur : string;
 
function NextButtonClick(CurPageID: Integer): Boolean;
begin
 
  if CurPageID = UserPage.ID then
  begin
    // Vérification de la présence de l'application à l'installation
    File := {app} + 'fichier.exe'; //FAUX
    if not FileExists('{File}') then
      begin
        MessageErreur := 'Veuillez spécifier le répertoire d installation de Left 4 Dead 2.';
        Msgbox(MessageErreur, mbConfirmation, MB_Ok);
        Result:=False;
      end
    else
      begin
        Result:=True;
      end
    end
end;

[az0101]

Hello, Testé, devrait marcher...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NextButtonClick(CurPageID: Integer): Boolean;
Begin
  Result := True; // Valeur de retour par défaut
  If CurPageID = 6 then
  Begin
    If Not FileExists( ExpandConstant('{app}') + '\left4dead2.exe' ) then
      Begin
        MessageErreur := 'Veuillez spécifier le chemin pour la portable executable de Left 4 Dead 2' + #13 + ExpandConstant('{app}') + '\left4dead2.exe est absent sur la machine locale';
        Msgbox(MessageErreur, mbConfirmation, MB_Ok);
        Result:=False;
      End;
    End
End;

[ouiouioui]

même si le numéro de page a peut de chance de changer moi j'utiliserai:.

Code :

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

  If CurPageID = wpSelectDir then

[Cl@udius]

Salut

J'ai fais un script pour créer l'installateur d'une application. Maintenant j'en fais un autre pour une mise à jour. Et je voudrais que l'installation ne se face pas si le fichier exe n'est pas détecté dans le répertoire d'installation spécifié.

Je ferais cette vérification dans l'InitializeSetup en renvoyant False si la précédente installation n'est pas détectée.

Si l'install a été effectué tu peux la retrouver dans la base de registre sous: Software\Microsoft\Windows\CurrentVersion\Uninstall
Tu dois y retrouver une clé portant comme nom soit MyApp_is1 soit {AppID}_is1.

@+ Claudius

[Sparktacus]

Merci à vous

Merci à toi az0101, c'est exactement ça.

ouiouioui j'ai complété avec wpSelectDir.

Cl@udius merci pour l'info, mais étant donné que ce patch peut aussi mettre à jour une installation que je n'ai pas fait, ca serait trop restrictif. J'ai pris des raccourci dans mes explications pour être le plus clair possible. Je ne suis pas à l'origine du programme principale, je fais que des patchs. Enfin c'est compliqué

Encore merci