Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Dodakaedr

Ветеран


Сообщения: 863
Благодарности: 262

Профиль | Отправить PM | Цитировать


Цитата MaximilianoPozo:
нет, app это папка с игрой, а в этой папке создается папка инсталлятора »
Без скрипта можно до Нового года угадывать как Вам нужно, поэтому вот Вам пример:
Код: Выделить весь код
[Setup]
appname=app
AppVersion=1.0
DefaultDirName={pf}\app

[Files]
Source: 1.txt; DestDir: {app}; AfterInstall: backup;

[Code]
procedure backup;
begin
  CreateDir(ExpandConstant('{app}\backup'));
  //FileCopy(ExpandConstant('{app}\1.txt'), ExpandConstant('{app}\backup\1.txt'), false);
  RenameFile(ExpandConstant('{app}\1.txt'), ExpandConstant('{app}\backup\1.txt'));
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usPostUninstall then
begin
FileCopy(ExpandConstant('{app}\backup\1.txt'), ExpandConstant('{app}\1.txt'),false);
DelTree(ExpandConstant('{app}\backup'), True, True, True);
end;
end;

-------
Inno Setup 5 Ultra Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:31, 15-04-2015 | #489