Рассмотрим следующее:
У меня есть два файла, например XXX.txt и YYY.txt
Я хочу установить их в папку (допустим files), в которой уже есть XXX.txt и YYY.txt файлы
Я хочу сделать резервную копию двух исходных файлов, переименовав их в XXX.txt.backup и YYY.txt.backup
При удалении я хочу восстановить два файла в исходное состояние.
Как я могу добиться этого с помощью Inno Setup?
XXX.txt.backup в папке - пропустить резервную копию? Перезаписать старую резервную копию? 21.08.2010 Добавлять
[Files]
; Backup Function_Template
Source: "{app}\XXX.txt"; DestDir: "{app}"; DestName: "XXX.txt.bkup"; Flags: external skipifsourcedoesntexist uninsneveruninstall
Это переместит существующий файл, а флаги предотвратят его удаление. Теперь в коде можно поставить
[Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
OldFile: string;
begin
case CurUninstallStep of
usPostUninstall:
begin
OldFile := ExpandConstant('{app}\XXX.txt.bkup');
if FileExists(OldFile) then
RenameFile(OldFile, ExpandConstant('{app}\XXX.txt'));
end;
end;
end;
Source: "{app}\XXX.txt"; DestDir: "{app}"; DestName: "XXX.txt.bkup"; Flags: external skipifsourcedoesntexist uninsneveruninstall
Похоже, это не сработало, поскольку «Компилятор добавит путь к исходному каталогу вашей установки, если вы не укажете полное имя пути».
Однако я только что обнаружил, что это работает нормально! Я отказался от «внешнего» флага.
Ну, может быть, всплывающее окно с сообщением «Уже есть резервная копия XXX.txt.Вы действительно хотите перезаписать ее?»
