Discussion :

[Mimie37]

Bonjour,

Je me remets sur inno setup et je fais un programme pour mettre à jour un logiciel.
Avant de mettre à jour mon dossier par exemple : c:\MonLogiciel je voudrais copier tout son contenu dans un dossier que je vais nommer c:\BackupMonLogiciel_{CurrentDate}



J'ai créé une fonction pour récupérer la date :

Code :

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

1
2
3
4
5
 
function MyDateTimeString(Param: String): String;
begin
  Result := GetDateTimeString('dd_mm_yyyy_hh.nn.ss', #0, #0);
end;

Et dans la section files

Code :

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

1
2
 
Source: {app}\*; DestDir: c:\Backup_{code:MyDateTimeString}; Flags: external recursesubdirs

Cela fonctionne le seul soucis c'est qu'il va créer mon dossier de Backup toutes les secondes
Moi je voulais juste au moment où je lance le programme créer un dossier Backup_CurrentDate et que tout soit copié dedans

Je ne trouve pas de solutions, auriez-vous des idées ?

Merci

[Andnotor]

Initialise le chemin une fois pour toute au démarrage dans InitializeWizard :

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
[Files]
Source: {app}\*; DestDir: {code:GetBackupPath}; Flags: external recursesubdirs
 
[Code]
var
  BackupPath :string;
 
function GetBackupPath(Param: String): String;
begin
  Result := BackupPath;
end;
 
procedure InitializeWizard;
begin
  BackupPath := 'c:\Backup_' +GetDateTimeString('dd_mm_yyyy_hh.nn.ss', #0, #0);
end;

[Mimie37]

Je n'y avais pas pensé