[Serega]

кроме восстановления файлов при нажатии кнопки "Отмена" »

Проверил, у меня востановление файлов работает.

[Rosich]

Проверил, у меня востановление файлов работает. »

Поначалу я использовал скрипт, до секции [code] из своего скрипта, он постепенно развивается, а затем взял полностью весь скрипт, который Вы переделали и скомпилировал файл-инсталлятор и с этого файла запускал, результат виден: . На картинке видно, что папка Backup присутствует и не удалена, а файлов-оригиналов нет. Повторно инсталлятор не запустился, подтверждая, что файла TS3.exe - нет!

P.S.
Serega, а у Вас какой Inno Setup стоит, случаем не юникодовская бетка, у меня: ISPack 5.3.2 beta с катайскима дополнениями (Inno Setup ISCmplr 5.2.3 build 090424 и Inno Setup Compiler 5.2.3 build 090506 English). Может быть из-за этого у меня не идет скрипт?

[Serega]

у Вас какой Inno Setup стоит »

Расширенная версия от Restools.

Может быть из-за этого у меня не идет скрипт? »

Нет, просто когда я проверял, менял пути на свои, а функция MoveDir перемещает папку целиком. Получается, что перемещение папки Backup происходило из ExpandConstant('{app}\Game\Bin\Backup\') в ExpandConstant('{app}\Game\Bin'), т.е. простыми словами зрительно ничего не менялось, т.к. она копировалась сама в себя...
Попробуйте этот скрипт.

[Rosich]

Расширенная версия от Restools. »

У меня примерно такая же.

Попробуйте этот скрипт. »

Попробовал, ругается:
P.S.
Спасибо, что не бросаете в трудную минуту! Что бы я без Вашей помощи делал!

[Serega]

Rosich, забыл удалить лишние begin и end, т.е. должно быть так:

читать дальше »

Код:

procedure RecoveryBackup;
var
  FindFiles: TFindRec;
  MyDir, BackupDir: string;
begin
  MyDir:= ExpandConstant('{app}\Game\Bin\');
  BackupDir:= ExpandConstant('{app}\Game\Bin\Backup\');
  if DirExists(BackupDir) then
  if FindFirst(BackupDir + '*.*', FindFiles) then
    begin
      repeat
        MoveFile(BackupDir + FindFiles.Name, MyDir + FindFiles.Name);
      until not FindNext(FindFiles);
      FindClose(FindFiles);
      RemoveDir(BackupDir)
    end;
end;

Попробовал, ругается: »

ошибка, говорит о том, что переменная BackupDir объявлена второй раз, хотя в скрипте который я давал, эта переменная объявлена один раз. Как исправить:
- Переименуйте BackupDir, допустим на BackDir или как вам больше нравится, только не забудьте изменить все BackupDir на новое имя в procedure RecoveryBackup;

Пример

Код:

procedure RecoveryBackup;
var
  FindFiles: TFindRec;
  MyDir, BackDir: string;
begin
  MyDir:= ExpandConstant('{app}\Game\Bin\');
  BackDir:= ExpandConstant('{app}\Game\Bin\Backup\');
  if DirExists(BackDir) then
  if FindFirst(BackDir + '*.*', FindFiles) then
    begin
      repeat
        MoveFile(BackDir + FindFiles.Name, MyDir + FindFiles.Name);
      until not FindNext(FindFiles);
      FindClose(FindFiles);
      RemoveDir(BackDir)
    end;
end;

[Rosich]

Serega, Вы кудесник, все заработало!
Еще раз - СПАСИБО!!!

[Mihail88]

Всем привет.
Такое дело... хотел сделать "инсталлер" с музыкой (mp3) и галочку отключения.
нашел пример с трекерной музыкой, попытался переделать скрипт, вылетает ошибка "Type mismatch."

в архиве этот скрипт и оригинал

[BlackSelf]

Mihail88, вот скрипт для проигрывания mp3-музыки.

[Mihail88]

BlackSelf, спасибо, попробую переделать с TCheckBox'ом

все вроде сдела но не работает, тажа ошибка

[STR1KEE]

Привет всем. Я новенький в этом деле и подскажите пожалуйста:

1. Как сделать во время установки, чтобы во весь экран было слайд шоу и как изменить время пролистывания картинок
2. Читал, читал так и не понял как можно изменить скин установки
3. Как прикрепить проверку информации о системе и сравнивить её с сист. требованиями игры и чтобы потом пользователь хоть и не подходит система смог продолжить установку

И для каждого лучше код именно этой функции, а не всего листа
А еще если можно и не составить труда вставте в этот скрипт с пояснениями, а то до меня долго доходит)))

читать дальше »

; Script created by STR1KE.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{1E70AEDE-704B-41A4-8937-42C91DAAEA25}
AppName=Crysis Warhead
AppVerName=Crysis Warhead v1.1.1.690
AppPublisher=A.G.Shamans
AppPublisherURL=http://torrents.across.su/
AppSupportURL=http://torrents.across.su/
AppUpdatesURL=http://torrents.across.su/
DefaultDirName={pf}\Crysis Warhed
DefaultGroupName=Crysis Warhead
AllowNoIcons=yes
LicenseFile=C:\Users\STR1KE\Documents\RePack\Crysis Warhead\1.txt
OutputDir=C:\RePack\Crysis Warhead
OutputBaseFilename=Setup
SetupIconFile=C:\Users\STR1KE\Documents\RePack\Crysis Warhead\Warhead.ico
Compression=lzma/ultra64
SolidCompression=yes
DiskSpanning=yes
DiskSliceSize=734003200
AppCopyright=Copyright (C) 2009 A.G. Shamans.
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Electronic Arts\Crytek\Crysis WARHEAD\Bin32\Crysis.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "C:\Program Files (x86)\Electronic Arts\Crytek\Crysis WARHEAD\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\Crysis Warhead"; Filename: "{app}\Crysis.exe"
Name: "{group}\{cm:ProgramOnTheWeb,Crysis Warhead}"; Filename: "http://torrents.across.su/"
Name: "{group}\{cm:UninstallProgram,Crysis Warhead}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\Crysis Warhead"; Filename: "{app}\Crysis.exe"; Tasks: desktopicon

[Run]
Filename: "{tmp}\Redist\directx.exe"; Description: "Óñòàíîâèòü DirectX?"; Flags: nowait postinstall skipifsilent
Filename: "{app}\Crysis.exe"; Description: "{cm:LaunchProgram,Crysis Warhead}"; Flags: nowait postinstall skipifsilent