; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
#include "SHFileOperation.iss"
[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.)
WizardImageFile=F:\переклад\UKR Skyrim\!reliz\logo.bmp
WizardSmallImageFile=F:\переклад\UKR Skyrim\!reliz\header.bmp
DiskSpanning=false
DiskSliceSize=2100000000
;AppId={{17E39B2A-C503-4062-A0EE-7C80CBCE05F2}
AppName=The Elder Scrolls V - Skyrim
AppVersion=1.0
;AppVerName=The Elder Scrolls V - Skyrim 1.0
AppPublisher=Bethesda Softworks
DefaultDirName={pf}\The Elder Scrolls V - Skyrim
DefaultGroupName=The Elder Scrolls V - Skyrim
AllowNoIcons=true
InfoBeforeFile=F:\переклад\UKR Skyrim\!reliz\description.rtf
OutputDir=f:\REPACKS\The Elder Scrolls V - Skyrim [ukrainian patch]
OutputBaseFilename=tes_skyrim_ukr_patch
SetupIconFile=F:\переклад\UKR Skyrim\!reliz\install.ico
Compression=lzma/ultra64
InternalCompressLevel=ultra64
PrivilegesRequired=none
Uninstallable=false
DisableProgramGroupPage=true
UsePreviousGroup=false
DirExistsWarning=no
AppendDefaultDirName=false
[Languages]
Name: ukrainian; MessagesFile: compiler:Languages\Ukrainian (sh2 ukr patch).isl
[Tasks]
Name: src; Description: Створити копії оригінальних файлів у теці ...\The Elder Scrolls V - Skyrim\!Backup
[Types]
Name: full; Description: Вибіркове; Flags: iscustom
[Components]
Name: y2011; Description: Українізатор для гри 2011 року:; Flags: exclusive
Name: y2011\skyrim; Description: транскрибовані власні назви (Skyrim - Скайрим); Flags: exclusive
Name: y2011\nebokraj; Description: перекладені власні назви (Skyrim - Небокрай); Flags: exclusive
Name: y2016; Description: Українізатор для гри 2016 року:; Flags: exclusive
Name: y2016\skyrim; Description: транскрибовані власні назви (Skyrim - Скайрим); Flags: exclusive
Name: y2016\nebokraj; Description: перекладені власні назви (Skyrim - Небокрай); Flags: exclusive
[Files]
Source: f:\переклад\UKR Skyrim\!для українізатора\2011 skyrim\*; Components: y2011\skyrim; DestDir: {app}; BeforeInstall: CreateBackup; Flags: ignoreversion recursesubdirs createallsubdirs
Source: f:\переклад\UKR Skyrim\!для українізатора\2011 nebokraj\*; Components: y2011\nebokraj; DestDir: {app}; BeforeInstall: CreateBackup; Flags: ignoreversion recursesubdirs createallsubdirs
Source: f:\переклад\UKR Skyrim\!для українізатора\2016 skyrim\*; Components: y2016\skyrim; DestDir: {app}; BeforeInstall: CreateBackup; Flags: ignoreversion recursesubdirs createallsubdirs
Source: f:\переклад\UKR Skyrim\!для українізатора\2016 nebokraj\*; Components: y2016\nebokraj; DestDir: {app}; BeforeInstall: CreateBackup; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files
[Code]
function MoveFile(const srcFile, destFile: PAnsiChar): Integer;
external '
[email protected] stdcall';
procedure CreateBackup;
var
srcFile, destFile: string;
basePath, shortPath: string;
begin
if IsTaskSelected('src') then
begin
basePath := ExpandConstant('{app}');
srcFile := ExpandConstant(CurrentFileName);
shortPath := srcFile;
StringChangeEx(shortPath, basePath, '', True);
destFile := ExpandConstant('{app}\!Backup') + shortPath;
ForceDirectories(ExtractFilePath(destFile));
MoveFile(PAnsiChar(srcFile), PAnsiChar(destFile));
end;
end;
procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.Top:=0
WizardForm.WizardSmallBitmapImage.Left:=0
WizardForm.WizardSmallBitmapImage.Width:=496
WizardForm.WizardSmallBitmapImage.Height:=58
WizardForm.PageNameLabel.Width:=0
WizardForm.PageDescriptionLabel.Width:=0
end;
