1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

Скрипт Metro UI Install 1.4.2

Скрипт Metro UI Install.

  1. Ветеран

    Регистрация:
    16 июн 2011
    Сообщения:
    101
    Симпатии:
    90
    Пользователь Zimbo разместил новый ресурс:

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

    Узнать больше об этом ресурсе...
     
    Comancheros, Radamel, Loner и 15 другим нравится это.
  2. Ветеран

    Регистрация:
    8 май 2012
    Сообщения:
    54
    Симпатии:
    3
    Помогите пожалуйста решить проблему со скриптом, кинул архив в папку с экзэшником, но почему-то всё глухо, не показывается прогресс
    [​IMG]
     
  3. Ветеран

    Регистрация:
    28 авг 2012
    Сообщения:
    97
    Симпатии:
    19
    Пол:
    Мужской
    Всем Доброй ночи = не работает прогресс бар (убрал только выбор компонентов) язык.озвучка и тп. Поможите??
     
  4. Ветеран

    Регистрация:
    16 июн 2011
    Сообщения:
    101
    Симпатии:
    90
    там просто в модуле Пб заменить однин параметр:
    Код (Text):
     if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, True) else Result.img1:= 0;
    на
    Код (Text):
    if Length(pb)>0 then Result.img1:=ImgLoad(hParent, pb, Result.Left, Result.Top, 0, Result.Height, True, False) else Result.img1:= 0;
     
    audiofeel нравится это.
  5. Старожил

    Регистрация:
    29 янв 2015
    Сообщения:
    1
    Симпатии:
    0
    Выше сказанное не подходит, вылезают ошибки.
    Кто знает как решить эту проблему, подскажите пожалуйста.
     
  6. Пользователь

    Регистрация:
    3 авг 2015
    Сообщения:
    2
    Симпатии:
    0
    Пол:
    Мужской
    how to use components or edit components?
     
  7. Новичок

    Регистрация:
    29 апр 2017
    Сообщения:
    1
    Симпатии:
    0
    Пол:
    Мужской
    Что-то я запутался как в нем игру упаковать. Не могу свой прошлый простой скрипт адаптировать. К этому скрипту.

    Старый скрипт
    #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;
     
    Последнее редактирование: 30 апр 2017

Поделиться этой страницей