[insombia]

Кто-то может помочь со скриптом не как не могу сделать распаковку фриарков оно файл арк устанавлевает но не распаковывает его может кто-то мне помоч?

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

#define MyAppName "Dark Sector"

[Setup]
AppName=Dark Sector
AppVersion=1.0
DefaultDirName={pf}\Dark Sector
DefaultGroupName=Dark Sector
OutputDir=D:\Dark Sector Repack
OutputBaseFilename=setup
AllowCancelDuringInstall=false
Compression=lzma/ultra64
DiskSpanning=true
DiskSliceSize=1145766400
SlicesPerDisk=3
WizardImageFile=C:\Users\Urban\Desktop\1234611108_darksector.bmp
InternalCompressLevel=ultra64
WizardSmallImageFile=C:\Users\Urban\Desktop\dark_sector.bmp
SolidCompression=true

[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

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

[Messages]
BeveledLabel=RePack от Urban 4M
DiskSpaceMBLabel=Требуется как минимум 6,08 Гб свободного дискового пространства.

[CustomMessages]
russian.Welcome1=Вас приветствует Мастер установки игры Dark Sector
russian.Welcome2=Программа установит игру Dark Sector на Ваш компьютер.Рекомендуется закрыть антивирусные пакеты, а также все прочие приложения перед тем, как продолжить.%n%nНажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти из программы установки.
russian.StartMenuLbl=Нажмите «Установить», чтобы продолжить. Если Вы хотите выбрать другую папку, нажмите «Обзор».
russian.QuickLaunch=Создать ярлык в Панели быстрого запуска
russian.Desktop=Создать ярлык на Рабочем столе
russian.FinishedHeading=Установка игры Dark Sector успешно завершена.
russian.FinishedLabel=Игра Dark Sector была успешно установлена на Ваш компьютер. Для ее запуска выберите соответствующий ярлык в меню «Пуск» или на Рабочем столе.
russian.FinishedLabel2=Нажмите «Завершить», чтобы выйти из программы установки.
russian.Uninstall=Удалить Dark Sector?

[Files]
Source: C:\Users\Urban\Desktop\Tiger.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: C:\Users\Urban\Desktop\ISSkin.dll; DestDir: {tmp}; Flags: dontcopy
Source: D:\Dark Sector/*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; Примечание: Не используйте "Flags: ignoreversion" для системных файлов

[Icons]
Name: {group}\Dark Sector; Filename: {app}\Dark Sector
Name: {group}\UninstallProgram,Dark Sector; Filename: {uninstallexe}

[Run]
Filename: D:\Dark Sector\DS.exe; Description: Запустить игру; Flags: nowait postinstall skipifsilent

[code]
/////////////////////////////////////Механиковская установка//////////////////////////////////////////////////////////
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure InitializeWizard();
begin
//Выносим кнопку "Отмена" на передний план
WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling then
begin
WizardForm.BorderStyle:=bsDialog;
WizardForm.MainPanel.Visible:=False;
WizardForm.Width:=ScaleX(320);
WizardForm.Height:=ScaleY(127);
WizardForm.InnerNotebook.Left:=ScaleX(7);
WizardForm.InnerNotebook.Top:=ScaleY(7);
WizardForm.InnerNotebook.Width:=ScaleX(300);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(17);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(37);
WizardForm.ProgressGauge.Left:=ScaleX(0);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(122);
WizardForm.CancelButton.Top:=ScaleY(70);
WizardForm.Left:=GetSystemMetrics(16)-ScaleX(315);
WizardForm.Top:=GetSystemMetrics(17)-ScaleX(105);
WizardForm.Bevel.hide;
WizardForm.Bevel1.hide;
end;
if CurPageID=wpFinished
then
begin
WizardForm.Width:=502;{Размер окна по горизонтали}
WizardForm.Height:=392;{Размер окна по вертикали}
WizardForm.Position:=poScreenCenter; {Возврат в исходное состояние}
end
end;

/////////////////////////////////////Вставка скина//////////////////////////////////////////////////////////
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall';
function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';

function InitializeSetup:boolean;
begin
ExtractTemporaryFile('Tiger.cjstyles');
LoadSkin(ExpandConstant('{tmp}')+'\Tiger.cjstyles', '');
Result:=True;
end;

procedure DeinitializeSetup;
begin
ShowWindow(WizardForm.Handle,0);
UnloadSkin();
end;
//////////////////////////////////////////////////////////////////////////////

что нужно подобавлять чтобы не убирать скрипт установки как у механиков?