[архив] Inno Setup .:[все вопросы]:.

[Serega]

Цитата Rosich:



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

[архив] Inno Setup .:[все вопросы]:.

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

[Rosich]

Цитата Serega:



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

[архив] Inno Setup .:[все вопросы]:.

Поначалу я использовал скрипт, до секции

Код: Выделить всё

 из своего скрипта, он постепенно развивается, а затем взял полностью весь скрипт, который Вы переделали и скомпилировал файл-инсталлятор и с этого файла запускал, результат виден: [url=http://imageshost.ru/links/93aee4463dd879fc71a48d285fedf10f][/url]. На картинке видно, что папка Backup присутствует и не удалена, а файлов-оригиналов нет. Повторно инсталлятор не запустился, подтверждая, что файла [b]TS3.exe[/b] - нет!



[b]P.S.[/b]

[b]Serega[/b], а у Вас какой 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]

Цитата Rosich:



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

[архив] Inno Setup .:[все вопросы]:.

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


Цитата Rosich:



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

[архив] Inno Setup .:[все вопросы]:.

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

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

[Rosich]

Цитата Serega:



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

[архив] Inno Setup .:[все вопросы]:.

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


Цитата Serega:



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

[архив] Inno Setup .:[все вопросы]:.

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

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;

Цитата Rosich:



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

[архив] Inno Setup .:[все вопросы]:.

ошибка, говорит о том, что переменная 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, Вы кудесник, все заработало!

Еще раз - СПАСИБО!!!

[Serega]

Всем привет.

Такое дело... хотел сделать "инсталлер" с музыкой (mp3) и галочку отключения.

нашел пример с трекерной музыкой, попытался переделать скрипт, вылетает ошибка "Type mismatch."



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

[Rosich]

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

[Serega]

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



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

[Rosich]

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



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