Bonjour,
Et oui encore moi, toujours des problèmes
Je suis donc rendu a un endroit dans mon installation ou je dois supprimer un fichier si celui-ci existe :
voici la partie du code qui devrait le réaliser :
Or, la partie FileExists marche, mais ensuite, le deletefile ne s’exécute pas,pour les 2 programmes ...
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 Procedure CurStepChanged(CurStep : TSetupStep); var ErrorCode,Wait : Integer; begin begin if CurStep = ssInstall then ShellExec('open',ExpandConstant('{pf32}\sc.exe'),'stop FirebirdServerDefaultInstance','', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); Shellexec('open',ExpandConstant('{pf32}\sc.exe'),'stop FirebirdGuardianDefaultInstance','', SW_SHOWNORMAL, ewWaitUntilTerminated, ErrorCode); end; begin if CurStep = ssInstall Then if (FileExists('{pf}\Firebird\Firebird_2_0\unins000.exe')) Then DeleteFile(ExpandConstant('{app}')+ 'unins000.exe'); end; begin if CurStep = ssInstall then Wait := 500 ; end; begin if CurStep = ssInstall Then if (FileExists('{app}\BDD\test2.fdp'))Then DeleteFile(ExpandConstant('{app}')+'\BDD\*'); //MANQUE CONDITION POUR UPGRADE LA BARRE DE PROGRESSION end; end;
Quel est mon erreur ?
Bonne fin de journée a vous,
Cordialement
Ayouten
Partager