Скрипт Metro UI Install 1.4.2

[Zimbo]

Пользователь Zimbo разместил новый ресурс:

Metro UI Install - Скрпит Metro UI Install.

Информация:

Автор: [FONT=Arial][B]Zimbo[/B][/FONT] | [FONT=Arial][B]Hachapury[/B][/FONT]​

Описание:

В данном скрипте реализована двуязычность установщика, проверка свободного места на жестком диске. Для распаковки используется модуль ISDone.​

Использованные библиотеки:

- botva2 0.9.5
- b2p 0.3.9.2
-...​

Узнать больше об этом ресурсе...

 

[PlayHard]

Помогите пожалуйста решить проблему со скриптом, кинул архив в папку с экзэшником, но почему-то всё глухо, не показывается прогресс

Спойлер: вот

 

[audiofeel]

Всем Доброй ночи = не работает прогресс бар (убрал только выбор компонентов) язык.озвучка и тп. Поможите??

 

[Zimbo]

Всем Доброй ночи = не работает прогресс бар (убрал только выбор компонентов) язык.озвучка и тп. Поможите??

там просто в модуле Пб заменить однин параметр:

 if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, True) else Result.img1:= 0;

на

if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, False) else Result.img1:= 0;

 

[Nikolay4]

Выше сказанное не подходит, вылезают ошибки.
Кто знает как решить эту проблему, подскажите пожалуйста.

 

[Amsal]

how to use components or edit components?

 

[ahemi]

Что-то я запутался как в нем игру упаковать. Не могу свой прошлый простой скрипт адаптировать. К этому скрипту.

Старый скрипт

Спойлер

#define MyAppName "S.T.A.L.K.E.R. - Lost Alpha"
#define MyAppVersion "1.4000 + fix 2.4"
#define MyAppExeName "XR_3DA.exe"

[Setup]
AppId={{844BDBDF-DF53-42D4-95AA-7F6C3C86FD18}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName=Games\LostAlpha
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputDir=D:\Files
OutputBaseFilename=setup
SetupIconFile=D:\Files\burnicon.ico
DiskSpanning=true
DiskSliceSize=1457664000
Compression=lzma/ultra
SolidCompression=yes

[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; OnlyBelowVersion: 0,6.1
Name: Soft; Description: Установить Дополнительный софт
Name: Soft\Visual; Description: Установить Microsoft Visual C++ 2013 Redist
Name: Soft\DirectX; Description: Установить DirectX
Name: Soft\Oalinst; Description: Установить Oalinst
Name: Soft\Xvid; Description: Установить Xvid

[Files]
Source: "D:\Games\S.T.A.L.K.E.R. - Lost Alpha\bins\XR_3DA.exe"; DestDir: "{app}"; Flags: ignoreversion
Source: "D:\Games\S.T.A.L.K.E.R. - Lost Alpha\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon

[Run]
Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
Filename: {src}\Redist\vcredist_x86.exe; WorkingDir: {src}\Redist; Parameters: /q; StatusMsg: Устанавливаем Microsoft Visual C++ 2013 Redist...; Flags: skipifdoesntexist; Tasks: Soft\Visual; Check: not IsWin64;
Filename: {src}\Redist\vcredist_x64.exe; WorkingDir: {src}\Redist; Parameters: /q; StatusMsg: Устанавливаем Microsoft Visual C++ 2013 Redist...; Flags: skipifdoesntexist; Tasks: Soft\Visual; Check: IsWin64;
Filename: {src}\Redist\DirectX\DXSETUP.exe; WorkingDir: {src}\Redist\DirectX; Parameters: /silent; StatusMsg: Устанавливаем DirectX...; Flags: skipifdoesntexist; Tasks: Soft\DirectX;
Filename: {src}\Redist\Oalinst.exe; WorkingDir: {src}\Redist; Parameters: /silent; StatusMsg: Устанавливаем Oalinst...; Flags: skipifdoesntexist; Tasks: Soft\Oalinst;
Filename: {src}\Redist\Xvid.exe; WorkingDir: {src}\Redist; Parameters: /silent; StatusMsg: Устанавливаем Xvid...; Flags: skipifdoesntexist; Tasks: Soft\Xvid;

[ Code ]
procedure InitializeWizard();
begin
with WizardForm.TasksList do
begin
// BorderStyle := bsSingle;
end;
end;