Jump to content
Korean Random

MEDNIKs

User
 View Profile  See their activity

  • Posts

    133

  • Joined

  • Last visited

 Content Type 

Posts posted by MEDNIKs

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted · Edited by MEDNIKs

    Парни помогите с бекапом!Папку бекапа создаёт,в ней создаёт папку 0.9.2 и XVM ,но они пустые!

    Код:

    function BackUpMods(): Boolean;
    begin
      If NewCheckBox2.Checked then
    begin
      MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\Резервная копия\{#Patch}'));
      MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\Резервная копия\xvm'));
      CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
      DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
    end;
    end;

     

     

    и ещё вопрос ,как сделать чтоб окно инстала появлялось по центру экрана?

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

     

     

    Вот это ни к чему. У родительского компонента (если он не должен составлять основу дочерних), не должно быть привязанных файлов. Удали эту строку.

    Спасибо друг и действительно это ни к чему! 

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    @MEDNIKs, увидеть бы код самих компонентов.

    Name: mods\pmod\pmod8; Description: Расширенная статистика; Flags:  dontinheritcheck

    Name: mods\pmod\pmod8\mod1; Description: Конфигурация от SuperXcool; Flags:  exclusive

    Name: mods\pmod\pmod8\mod2; Description: Конфигурация от Meddio; Flags:  exclusive ;Types: compact

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    парни подскажите где ошибка?

     

    Source: "Модификации\P-MODРасширенная статистика\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: mods\pmod\pmod8

    Source: "Модификации\P-MOD\Расширенная статистика\Конфигурация от SuperXcool\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: mods\pmod\pmod8\mod1

    Source: "Модификации\P-MOD\Расширенная статистика\Конфигурация от Meddio\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension; Components: mods\pmod\pmod8\mod2

     

    Вообщем копирует папки  Конфигурация от Meddio и Конфигурация от SuperXcool в корень папки с игрой

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    @Shpyrny,попробуй этот код

    #define MyAppName "ModPack by Clan Brothers Time 0.9.2" ;Название инстоллятора

    #define MyInfoVer "1.1" ;Версия инсталлятора
    #define MyAppVer "0.9.2" ;Версия игры
    #define MyAppPublisher "Expoint" ;Имя компании или человека кто делал
    #define MyAppURL "http://yandex.ru"
    #define MyAppSupportURL "http://yandex.ru" ;Ссылка для лого
    #define Patch "0.9.2"
    #define Patch1 "0.9.2-backup"


    #include "Components.iss" ;Компаненты, они же моды
    #include "Модули/Messages.iss" ;Сообщение, надписи на кнопках и т.д.
    #include "Модули/BackUpPage.iss" ;Резерное копирование или удаление res_mods
    #include "CustomMessages.iss" ;Описание модов ;скин
    #include "Check For Run.iss"

    [setup]
    AppName={#MyAppName}
    AppVersion={#MyAppVer}
    ;AppVerName={#MyAppName} {#MyAppVersion}
    AppPublisher={#MyAppPublisher}

    //====={ Ссылки }=====\\
    AppPublisherURL={#MyAppURL}
    AppSupportURL={#MyAppURL}
    AppUpdatesURL={#MyAppURL}

    //====={ Папка устанвки }=====\\
    ;DefaultDirName={pf}\{#MyAppName}
    DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU%7d_is1,InstallLocation|{pf}\World_of_Tanks}
    DefaultGroupName={#MyAppName}

    //====={ Картинки }=====\\
    SetupIconFile=Files\qqq.ico
    WizardSmallImageFile=Files\Small.bmp
    WizardImageFile=Files\img1.bmp

    //====={ Отключение строниц }=====\\
    DisableProgramGroupPage=yes

    //====={ Лицензия и Фак }=====\\
    LicenseFile=licensia.rtf
    InfoBeforeFile=faq.rtf

    //====={ Папка создания и название сетапа }=====\\
    OutputDir=.\Output
    OutputBaseFilename={#MyAppName}

    //====={ Сжатие сетапа }=====\\
    InternalCompressLevel=ultra64
    Compression=lzma2/ultra64

    //====={ Сюда прописываешь те файлы и папки которые закинул в Mods }=====\\
    WizardImageBackColor=$0000CC99
    DisableStartupPrompt=False
    AlwaysShowDirOnReadyPage=True
    FlatComponentsList=False
    ShowTasksTreeLines=True
    AlwaysShowGroupOnReadyPage=True

    //====={ Основные файлы сетапа }=====\\
    [Files]
    Source: "Files\Splash.png"; DestDir: {tmp}; Flags: dontcopy nocompression
    Source: "Files\isgsg.dll"; Flags: dontcopy;
    Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption
    Source: Files\logo2.bmp; Flags: dontcopy noencryption noencryption
    Source: "Files\img_mod\1.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy
    Source: "Files\img_mod\2.bmp"; DestName: "CompDescImg3.bmp"; Flags: dontcopy
    Source: "Files\img_mod\3.bmp"; DestName: "CompDescImg4.bmp"; Flags: dontcopy
    Source: "Files\img_mod\1.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy


    //--------// Показ картинок и описания [Начало] //--------//
    Source: "Images\Моды.bmp"; DestName: "CompDescImgMods.bmp"; Flags: dontcopy




    procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer);
    external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

    { RedesignWizardFormBegin } // Не удалять эту строку!
    // Не изменять эту секцию. Она создана автоматически.
    var
    OldEvent_LicenseAcceptedRadioClick: TNotifyEvent;

    procedure LicenseAcceptedRadioClick(Sender: TObject); forward;

    procedure RedesignWizardForm;
    begin
    with WizardForm.LicenseAcceptedRadio do
    begin
    Left := ScaleX(392);
    Top := ScaleY(216);
    OldEvent_LicenseAcceptedRadioClick := OnClick;
    OnClick := @LicenseAcceptedRadioClick;
    end;

    { ReservationBegin }
    // Вы можете добавить ваш код здесь.

    { ReservationEnd }
    end;
    // Не изменять эту секцию. Она создана автоматически.
    { RedesignWizardFormEnd } // Не удалять эту строку!

    procedure LicenseAcceptedRadioClick(Sender: TObject);
    begin
    OldEvent_LicenseAcceptedRadioClick(Sender);
    end;

    procedure LogoOnClick(Sender: TObject);
    var ResCode: Integer;
    begin
    ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
    end;
    var
    BitmapImage1: TBitmapImage;
    procedure RedesignWizardForm2;
    var
    i: integer;
    BtnPanel: TPanel;
    BtnImage: TBitmapImage;
    begin
    ExtractTemporaryFile('logo.bmp')
    BtnPanel:=TPanel.Create(WizardForm)
    with BtnPanel do begin
    Left:=0
    Top:=490
    Width:=120
    Height:=50
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm
    end;
    BtnImage:=TBitmapImage.Create(WizardForm)
    with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')
    Parent:=BtnPanel
    end;
    end;
    //////////////////////////

    ///////////////////////

    procedure LogoOnClick1(Sender: TObject);
    var
    ResCode: Integer;
    begin
    ShellExec('', '{#MyAppSupportURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
    end;
    procedure RedesignWizardForm3;
    var
    BtnPanel: TPanel;
    BtnImage: TBitmapImage;
    begin
    ExtractTemporaryFile('logo2.bmp')
    BtnPanel:=TPanel.Create(WizardForm)
    with BtnPanel do
    begin
    Left:=130
    Top:=490
    Width:=120
    Height:=50
    Cursor:=crHand
    OnClick:=@logoOnClick1
    Parent:=WizardForm
    end;
    BtnImage:=TBitmapImage.Create(WizardForm)
    with BtnImage do
    begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo2.bmp')
    Parent:=BtnPanel
    end;
    end;

    function WindowResize(): Boolean;
    var
    HeightOffset, WidthOffset: Integer;
    begin
    HeightOffset:=170;
    WidthOffset:=200;

    WizardForm.Height:=WizardForm.Height + HeightOffset;
    WizardForm.Width:=WizardForm.Width + WidthOffset;

    WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset;
    WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset;
    WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset;
    WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset;
    WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset;
    WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset;

    WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset;
    WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset;
    WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset;
    WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset;
    WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset;
    WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset;
    WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset;
    WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset;
    WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset;
    WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset;
    WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset;
    WizardForm.Center;

    { /// --- Раскомментировать при желании ---- ///
    WizardForm.WelcomeLabel1.Hide;
    WizardForm.WelcomeLabel2.Hide;
    WizardForm.FinishedLabel.Hide;
    WizardForm.FinishedHeadingLabel.Hide;
    WizardForm.WizardBitmapImage.Width:=600;
    WizardForm.WizardBitmapImage.Height:=400;
    WizardForm.WizardBitmapImage2.Width:=600;
    WizardForm.WizardBitmapImage2.Height:=400;
    WizardForm.PageNameLabel.Hide;
    WizardForm.PageDescriptionLabel.Hide;
    WizardForm.WizardSmallBitmapImage.Top:=0;
    WizardForm.WizardSmallBitmapImage.Left:=0;
    WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;
    WizardForm.WizardSmallBitmapImage.Height:=58;
    /// --- Конец ---- ///
    }
    WizardForm.WelcomeLabel1.Hide;
    WizardForm.WelcomeLabel2.Hide;
    WizardForm.WizardBitmapImage.Width:=697;
    WizardForm.WizardBitmapImage.Height:=483;

    WizardForm.FinishedHeadingLabel.Hide;
    WizardForm.FinishedLabel.Hide;
    WizardForm.YesRadio.Hide;
    WizardForm.NoRadio.Hide;
    WizardForm.WizardBitmapImage2.Width:=697;
    WizardForm.WizardBitmapImage2.Height:=483;

    WizardForm.PageNameLabel.Hide;
    WizardForm.PageDescriptionLabel.Hide;
    WizardForm.WizardSmallBitmapImage.Top:=0;
    WizardForm.WizardSmallBitmapImage.Left:=0;
    WizardForm.WizardSmallBitmapImage.Width:=697;
    WizardForm.WizardSmallBitmapImage.Height:=58;

    WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;
    WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset;
    WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;

    WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;
    WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset;
    WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;


    WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset;
    WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset;
    WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset;
    WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset;
    WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset;

    WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset;
    WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset;
    WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset;

    WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset;
    WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset;
    WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset;
    WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset;
    WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset;

    WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset;
    WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset;
    WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset;
    WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset;

    WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset;
    WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset;
    WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset;

    WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset;
    WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset;
    WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset;
    end;

    /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- ///

    type
    TComponentDesc = record
    Description: String;
    ImageName: String;
    Index: Integer;
    end;

    var
    CompDescs: array of TComponentDesc;
    CompDescPanel, CompDescImgPanel: TPanel;
    CompDescText: TLabel;
    CompIndex, LastIndex: Integer;
    CompDescImg, BitmapImage: TBitmapImage

    procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
    var
    i: Integer;
    begin
    if Index = LastIndex then Exit;
    CompIndex := -1;
    for i := 0 to GetArrayLength(CompDescs) -1 do
    begin
    if (CompDescs[i].Index = Index) then
    begin
    CompIndex := i;
    Break;
    end;
    end;
    if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
    ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
    CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
    CompDescImg.Show;
    BitmapImage.Hide;
    CompDescText.Caption := CompDescs[CompIndex].Description;
    CompDescText.Enabled := True;
    end else
    begin
    CompDescText.Caption := CustomMessage('ComponentsInfo');
    CompDescText.Enabled := False;
    CompDescImg.Hide;
    BitmapImage.Show;
    end;
    LastIndex := Index;

    end;

    procedure CompListMouseLeave(Sender: TObject);
    begin
    CompDescImg.Hide;
    CompDescText.Caption := CustomMessage('ComponentsInfo');
    CompDescText.Enabled := False;
    LastIndex := -1;
    BitmapImage.Show;
    end;

    procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);
    var
    i: Integer;
    begin
    i := GetArrayLength(CompDescs);
    SetArrayLength(CompDescs, i + 1);
    CompDescs[i].Description := ADescription;
    CompDescs[i].ImageName := AImageName;
    CompDescs[i].Index := AIndex - 1
    end;



    procedure InitializeWizard();
    begin
    RedesignWizardForm;
    InitializeWizard1(); {из BackUpPage.iss}
    RedesignWizardForm2;
    RedesignWizardForm3;
    WindowResize();

    ExtractTemporaryFile('Splash.png');
    ShowSplashScreen(WizardForm.Handle, ExpandConstant('{tmp}\Splash.png'), 1500, 2500, 1500, 0, 255, True, $FFFFFF, 10);

    begin
    WizardForm.SelectComponentsLabel.Hide;
    WizardForm.TypesCombo.Hide;
    WizardForm.ComponentsList.SetBounds(ScaleX(260), ScaleY(20), ScaleX(357), ScaleY(333));
    WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
    WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

    CompDescImgPanel := TPanel.Create(WizardForm);
    with CompDescImgPanel do
    begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(0), ScaleY(20), ScaleX(253), ScaleY(203)); //рамка картинки
    BevelInner := bvLowered;
    end;

    BitmapImage := TBitmapImage.Create(WizardForm);
    with BitmapImage do
    begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(0), ScaleY(0), CompDescImgPanel.Width - ScaleX(0), CompDescImgPanel.Height - ScaleY(0));
    ExtractTemporaryFile('CompDescImgMods.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\CompDescImgMods.bmp'));
    end;

    CompDescImg := TBitmapImage.Create(WizardForm);
    with CompDescImg do
    begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(0), ScaleY(0), CompDescImgPanel.Width - ScaleX(0), CompDescImgPanel.Height - ScaleY(0));
    Stretch := True;
    Hide;
    end;


    CompDescText[1] := TLabel.Create(WizardForm);
    with CompDescText[1] do
    begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
    AutoSize := False;
    WordWrap := True;
    Enabled := False;
    Font.Color :=clBlack;
    Caption := CustomMessage('ComponentsImgInfo');
    end;

    CompDescImg := TBitmapImage.Create(WizardForm);
    with CompDescImg do
    begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));
    Stretch := True;
    Hide;
    end;

    CompDescPanel := TPanel.Create(WizardForm);
    with CompDescPanel do
    begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(0), ScaleY(230), ScaleX(253), ScaleY(123)); //Нижния рамка
    BevelInner := bvLowered;
    end;



    CompDescText[2] := TLabel.Create(WizardForm);
    with CompDescText[2] do
    begin
    Parent := CompDescPanel;
    SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));
    AutoSize :=False;
    WordWrap := True;
    Enabled := False;
    Font.Color :=clBlack;
    Caption := CustomMessage('ComponentsInfo');
    end;
    AddCompDescription(0, CustomMessage('CompDescMods'), 'CompDescImgMods.bmp');
    AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');
    AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');
    AddCompDescription(3, CustomMessage('CompDesc3'), 'CompDescImg3.bmp');
    AddCompDescription(4, CustomMessage('CompDesc4'), 'CompDescImg4.bmp');



    end;

    end;

     

    ток создай папку Images и засунь туда картинку с разрешением bmp и назови Моды

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    @Kotyarko_O, 

    Вот так процедуры можно совмещать?

    procedure CurStepChanged(CurStep: TSetupStep);
    begin
    If CurStep=ssInstall then
    begin
    DeleteMods();
    BackUpMods();
    end;
    end;

    Procedure CurStepChanged1(CurStep: TSetupStep);
    begin
    If CurStep = ssDone then
    begin
    If NewCheckBox3.Checked then
    begin
    Exec(ExpandConstant('{app}\WOTLauncher.exe'), '', '', SW_SHOW, ewNoWait, ResCode);
    end;
    end;
    end;

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    Ребят кто может припелить Splash к моему скрипту? Пожалуйста Вот скримт

     

    попробуй так

    'splash'

    #define MyAppName "ModPack by Clan Brothers Time 0.9.2" ;Название инстоллятора

    #define MyInfoVer "1.1" ;Версия инсталлятора

    #define MyAppVer "0.9.2" ;Версия игры

    #define MyAppPublisher "Expoint" ;Имя компании или человека кто делал

    #define MyAppURL "http://yandex.ru"

    #define MyAppSupportURL "http://yandex.ru" ;Ссылка для лого

    #define Patch "0.9.2"

    #define Patch1 "0.9.2-backup"

    #define Splash

     

    #include "Components.iss" ;Компаненты, они же моды

    #include "Модули/Messages.iss" ;Сообщение, надписи на кнопках и т.д.

    #include "Модули/BackUpPage.iss" ;Резерное копирование или удаление res_mods

    #include "CustomMessages.iss" ;Описание модов

    #include "Модули/Skins.iss" ;скин

    #include "Check For Run.iss"

     

     

     

     

     

     

     

     

     

    [setup]

    AppName={#MyAppName}

    AppVersion={#MyAppVer}

    ;AppVerName={#MyAppName} {#MyAppVersion}

    AppPublisher={#MyAppPublisher}

     

    //====={ Ссылки }=====\\

    AppPublisherURL={#MyAppURL}

    AppSupportURL={#MyAppURL}

    AppUpdatesURL={#MyAppURL}

     

    //====={ Папка устанвки }=====\\

    ;DefaultDirName={pf}\{#MyAppName}

    DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU%7d_is1,InstallLocation|{pf}\World_of_Tanks}

    DefaultGroupName={#MyAppName}

     

    //====={ Картинки }=====\\

    SetupIconFile=Files\qqq.ico

    WizardSmallImageFile=Files\Small.bmp

    WizardImageFile=Files\img1.bmp

     

    //====={ Отключение строниц }=====\\

    DisableProgramGroupPage=yes

     

    //====={ Лицензия и Фак }=====\\

    LicenseFile=licensia.rtf

    InfoBeforeFile=faq.rtf

     

    //====={ Папка создания и название сетапа }=====\\

    OutputDir=.\Output

    OutputBaseFilename={#MyAppName}

     

    //====={ Сжатие сетапа }=====\\

    InternalCompressLevel=ultra64

    Compression=lzma2/ultra64

     

     

     

    //====={ Сюда прописываешь те файлы и папки которые закинул в Mods }=====\\

    WizardImageBackColor=$0000CC99

    DisableStartupPrompt=False

    AlwaysShowDirOnReadyPage=True

    FlatComponentsList=False

    ShowTasksTreeLines=True

    AlwaysShowGroupOnReadyPage=True

     

     

    //====={ Основные файлы сетапа }=====\\

    [Files]

    Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption

    Source: Files\logo2.bmp; Flags: dontcopy noencryption noencryption

    Source: "Files\img_mod\1.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy

    Source: "Files\img_mod\2.bmp"; DestName: "CompDescImg3.bmp"; Flags: dontcopy

    Source: "Files\img_mod\3.bmp"; DestName: "CompDescImg4.bmp"; Flags: dontcopy

    Source: "Files\img_mod\1.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy

     

    #ifdef Splash

    Source: Splash\splash.png; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

    Source: Splash\isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

    #endif

     

     

    procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';{ RedesignWizardFormBegin } // Не удалять эту строку!// Не изменять эту секцию. Она создана автоматически.varOldEvent_LicenseAcceptedRadioClick: TNotifyEvent;procedure LicenseAcceptedRadioClick(Sender: TObject); forward;procedure RedesignWizardForm;beginwith WizardForm.LicenseAcceptedRadio dobeginLeft := ScaleX(392);Top := ScaleY(216);OldEvent_LicenseAcceptedRadioClick := OnClick;OnClick := @LicenseAcceptedRadioClick;end;{ ReservationBegin }// Вы можете добавить ваш код здесь.{ ReservationEnd }end;// Не изменять эту секцию. Она создана автоматически.{ RedesignWizardFormEnd } // Не удалять эту строку!procedure LicenseAcceptedRadioClick(Sender: TObject);beginOldEvent_LicenseAcceptedRadioClick(Sender);end;procedure LogoOnClick(Sender: TObject);var ResCode: Integer;beginShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)end;varBitmapImage1: TBitmapImage;procedure RedesignWizardForm2;vari: integer;BtnPanel: TPanel;BtnImage: TBitmapImage;beginExtractTemporaryFile('logo.bmp')BtnPanel:=TPanel.Create(WizardForm)with BtnPanel do beginLeft:=0Top:=490Width:=120Height:=50Cursor:=crHandOnClick:=@logoOnClickParent:=WizardFormend;BtnImage:=TBitmapImage.Create(WizardForm)with BtnImage do beginAutoSize:=True;Enabled:=False;Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo.bmp')Parent:=BtnPanelend;end;//////////////////////////#ifdef SplashbeginExtractTemporaryFile('splash.png');ExtractTemporaryFile('isgsg.dll');ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);end;#endif///////////////////////procedure LogoOnClick1(Sender: TObject);varResCode: Integer;beginShellExec('', '{#MyAppSupportURL}', '' , '', SW_SHOW, ewNoWait, ResCode)end;procedure RedesignWizardForm3;varBtnPanel: TPanel;BtnImage: TBitmapImage;beginExtractTemporaryFile('logo2.bmp')BtnPanel:=TPanel.Create(WizardForm)with BtnPanel dobeginLeft:=130Top:=490Width:=120Height:=50Cursor:=crHandOnClick:=@logoOnClick1Parent:=WizardFormend;BtnImage:=TBitmapImage.Create(WizardForm)with BtnImage dobeginAutoSize:=True;Enabled:=False;Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\logo2.bmp')Parent:=BtnPanelend;end;function WindowResize(): Boolean;varHeightOffset, WidthOffset: Integer;beginHeightOffset:=170;WidthOffset:=200;WizardForm.Height:=WizardForm.Height + HeightOffset;WizardForm.Width:=WizardForm.Width + WidthOffset;WizardForm.NextButton.Top:=WizardForm.NextButton.Top + HeightOffset;WizardForm.BackButton.Top:=WizardForm.BackButton.Top + HeightOffset;WizardForm.CancelButton.Top:=WizardForm.CancelButton.Top + HeightOffset;WizardForm.NextButton.Left:=WizardForm.NextButton.Left + WidthOffset;WizardForm.BackButton.Left:=WizardForm.BackButton.Left + WidthOffset;WizardForm.CancelButton.Left:=WizardForm.CancelButton.Left + WidthOffset;WizardForm.OuterNotebook.Height:=WizardForm.OuterNotebook.Height + HeightOffset;WizardForm.InnerNotebook.Height:=WizardForm.InnerNotebook.Height + HeightOffset;WizardForm.OuterNotebook.Width:=WizardForm.OuterNotebook.Width + WidthOffset;WizardForm.InnerNotebook.Width:=WizardForm.InnerNotebook.Width + WidthOffset;WizardForm.WizardSmallBitmapImage.Left:= WizardForm.WizardSmallBitmapImage.Left + WidthOffset;WizardForm.Bevel.Top:=WizardForm.Bevel.Top + HeightOffset;WizardForm.BeveledLabel.Top:=WizardForm.BeveledLabel.Top + HeightOffset;WizardForm.Bevel.Width:=WizardForm.Bevel.Width + WidthOffset;WizardForm.Bevel1.Width:=WizardForm.Bevel1.Width + WidthOffset;WizardForm.MainPanel.Width:=WizardForm.MainPanel.Width + WidthOffset;WizardForm.BeveledLabel.Width:=WizardForm.BeveledLabel.Width + WidthOffset;WizardForm.Center;{ /// --- Раскомментировать при желании ---- ///WizardForm.WelcomeLabel1.Hide;WizardForm.WelcomeLabel2.Hide;WizardForm.FinishedLabel.Hide;WizardForm.FinishedHeadingLabel.Hide;WizardForm.WizardBitmapImage.Width:=600;WizardForm.WizardBitmapImage.Height:=400;WizardForm.WizardBitmapImage2.Width:=600;WizardForm.WizardBitmapImage2.Height:=400;WizardForm.PageNameLabel.Hide;WizardForm.PageDescriptionLabel.Hide;WizardForm.WizardSmallBitmapImage.Top:=0;WizardForm.WizardSmallBitmapImage.Left:=0;WizardForm.WizardSmallBitmapImage.Width:=WizardForm.Width;WizardForm.WizardSmallBitmapImage.Height:=58;/// --- Конец ---- ///}WizardForm.WelcomeLabel1.Hide;WizardForm.WelcomeLabel2.Hide;WizardForm.WizardBitmapImage.Width:=697;WizardForm.WizardBitmapImage.Height:=483;WizardForm.FinishedHeadingLabel.Hide;WizardForm.FinishedLabel.Hide;WizardForm.YesRadio.Hide;WizardForm.NoRadio.Hide;WizardForm.WizardBitmapImage2.Width:=697;WizardForm.WizardBitmapImage2.Height:=483;WizardForm.PageNameLabel.Hide;WizardForm.PageDescriptionLabel.Hide;WizardForm.WizardSmallBitmapImage.Top:=0;WizardForm.WizardSmallBitmapImage.Left:=0;WizardForm.WizardSmallBitmapImage.Width:=697;WizardForm.WizardSmallBitmapImage.Height:=58;WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;WizardForm.WelcomeLabel1.Height:=WizardForm.WelcomeLabel1.Height + HeightOffset;WizardForm.WelcomeLabel1.Width:=WizardForm.WelcomeLabel1.Width + WidthOffset;WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;WizardForm.WelcomeLabel2.Height:=WizardForm.WelcomeLabel2.Height + HeightOffset;WizardForm.WelcomeLabel2.Width:=WizardForm.WelcomeLabel2.Width + WidthOffset;WizardForm.LicenseLabel1.Width:=WizardForm.LicenseLabel1.Width + WidthOffset;WizardForm.LicenseMemo.Height:=WizardForm.LicenseMemo.Height + HeightOffset;WizardForm.LicenseMemo.Width:=WizardForm.LicenseMemo.Width + WidthOffset;WizardForm.LicenseNotAcceptedRadio.Top:=WizardForm.LicenseNotAcceptedRadio.Top + HeightOffset;WizardForm.LicenseAcceptedRadio.Top:=WizardForm.LicenseAcceptedRadio.Top + HeightOffset;WizardForm.InfoBeforeClickLabel.Width:=WizardForm.InfoBeforeClickLabel.Width + WidthOffset;WizardForm.InfoBeforeMemo.Height:=WizardForm.InfoBeforeMemo.Height + HeightOffset;WizardForm.InfoBeforeMemo.Width:=WizardForm.InfoBeforeMemo.Width + WidthOffset;WizardForm.SelectDirLabel.Width:=WizardForm.SelectDirLabel.Width + WidthOffset;WizardForm.SelectDirBrowseLabel.Width:=WizardForm.SelectDirBrowseLabel.Width + WidthOffset;WizardForm.DiskSpaceLabel.Top:=WizardForm.DiskSpaceLabel.Top + HeightOffset;WizardForm.DirBrowseButton.Left:=WizardForm.DirBrowseButton.Left + HeightOffset;WizardForm.DirEdit.Width:=WizardForm.DirEdit.Width + HeightOffset;WizardForm.ComponentsDiskSpaceLabel.Top:=WizardForm.ComponentsDiskSpaceLabel.Top + HeightOffset;WizardForm.SelectComponentsLabel.Width:=WizardForm.SelectComponentsLabel.Width + WidthOffset;WizardForm.ComponentsList.Height:=WizardForm.ComponentsList.Height + HeightOffset;WizardForm.ComponentsList.Width:=WizardForm.ComponentsList.Width + WidthOffset;WizardForm.ReadyLabel.Width:=WizardForm.ReadyLabel.Width + WidthOffset;WizardForm.ReadyMemo.Height:=WizardForm.ReadyMemo.Height + HeightOffset;WizardForm.ReadyMemo.Width:=WizardForm.ReadyMemo.Width + WidthOffset;WizardForm.ProgressGauge.Width:=WizardForm.ProgressGauge.Width + HeightOffset;WizardForm.FilenameLabel.Width:=WizardForm.FilenameLabel.Width + HeightOffset;WizardForm.StatusLabel.Width:=WizardForm.StatusLabel.Width + HeightOffset;end;/// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- /// --- ///typeTComponentDesc = recordDescription: String;ImageName: String;Index: Integer;end;varCompDescs: array of TComponentDesc;CompDescPanel, CompDescImgPanel: TPanel;CompDescText: array[1..2] of TLabel;CompIndex, LastIndex: Integer;CompDescImg: TBitmapImage;procedure ShowCompDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);vari: Integer;beginif Index = LastIndex then Exit;CompIndex := -1;for i := 0 to GetArrayLength(CompDescs) -1 dobeginif (CompDescs[i].Index = Index) thenbeginCompIndex := i;Break;end;end;if (CompIndex >= 0) and (Area = iaItem) thenbeginif not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) thenExtractTemporaryFile(CompDescs[CompIndex].ImageName);CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);CompDescImg.Show;CompDescText[2].Caption := CompDescs[CompIndex].Description;CompDescText[2].Enabled := True;end elsebeginCompDescText[2].Caption := CustomMessage('ComponentsInfo');CompDescText[2].Enabled := False;CompDescImg.Hide;end;LastIndex := Index;end;procedure CompListMouseLeave(Sender: TObject);beginCompDescImg.Hide;CompDescText[2].Caption := CustomMessage('ComponentsInfo');CompDescText[2].Enabled := False;LastIndex := -1;end;procedure AddCompDescription(AIndex: Integer; ADescription: String; AImageName: String);

    var

    i: Integer;

    begin

    i := GetArrayLength(CompDescs);

    SetArrayLength(CompDescs, i + 1);

    CompDescs[i].Description := ADescription;

    CompDescs[i].ImageName := AImageName;

    CompDescs[i].Index := AIndex - 1

    end;

    procedure InitializeWizard();

    begin

    RedesignWizardForm;

    InitializeWizard1(); {из BackUpPage.iss}

    RedesignWizardForm2;

    RedesignWizardForm3;

    WindowResize();

     

    begin

    WizardForm.SelectComponentsLabel.Hide;

    WizardForm.TypesCombo.Hide;

    WizardForm.ComponentsList.SetBounds(ScaleX(260), ScaleY(20), ScaleX(357), ScaleY(333));

    WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;

    WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

     

    CompDescImgPanel := TPanel.Create(WizardForm);

    with CompDescImgPanel do

    begin

    Parent := WizardForm.SelectComponentsPage;

    SetBounds(ScaleX(0), ScaleY(20), ScaleX(253), ScaleY(203)); //рамка картинки

    BevelInner := bvLowered;

    end;

     

    CompDescText[1] := TLabel.Create(WizardForm);

    with CompDescText[1] do

    begin

    Parent := CompDescImgPanel;

    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));

    AutoSize := False;

    WordWrap := True;

    Enabled := False;

    Font.Color :=clBlack;

    Caption := CustomMessage('ComponentsImgInfo');

    end;

     

    CompDescImg := TBitmapImage.Create(WizardForm);

    with CompDescImg do

    begin

    Parent := CompDescImgPanel;

    SetBounds(ScaleX(5), ScaleY(5), CompDescImgPanel.Width - ScaleX(10), CompDescImgPanel.Height - ScaleY(10));

    Stretch := True;

    Hide;

    end;

     

    CompDescPanel := TPanel.Create(WizardForm);

    with CompDescPanel do

    begin

    Parent := WizardForm.SelectComponentsPage;

    SetBounds(ScaleX(0), ScaleY(230), ScaleX(253), ScaleY(123)); //Нижния рамка

    BevelInner := bvLowered;

    end;

     

     

     

    CompDescText[2] := TLabel.Create(WizardForm);

    with CompDescText[2] do

    begin

    Parent := CompDescPanel;

    SetBounds(ScaleX(5), ScaleY(5), CompDescPanel.Width - ScaleX(10), CompDescPanel.Height - ScaleY(10));

    AutoSize :=False;

    WordWrap := True;

    Enabled := False;

    Font.Color :=clBlack;

    Caption := CustomMessage('ComponentsInfo');

    end;

     

    AddCompDescription(1, CustomMessage('CompDesc1'), 'CompDescImg1.bmp');

    AddCompDescription(2, CustomMessage('CompDesc2'), 'CompDescImg2.bmp');

    AddCompDescription(3, CustomMessage('CompDesc3'), 'CompDescImg3.bmp');

    AddCompDescription(4, CustomMessage('CompDesc4'), 'CompDescImg4.bmp');

     

     

     

    end;

    end;

     

    [iSFormDesigner]

    WizardForm=FF0A005457495A415244464F524D0030103702000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038E010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B4C6963656E73655061676500F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F044C65667403880103546F7003D800074F6E436C69636B07194C6963656E73654163636570746564526164696F436C69636B0C4578706C696369744C6566740388010B4578706C69636974546F7003D8000000000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100000000

    ток надо создать папку splash и закинуть туда библиотеку isgsg.dll,ну и сам сплеш в формате png

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    @Kotyarko_O,извеняй за тупость,но у меня походу опять запара с совместимостью процедур.

    Вообщем у меня уже имеется  CurStepChanged

    'вот'

    procedure CurStepChanged(CurStep: TSetupStep);
    begin
    If CurStep=ssInstall then
    begin
    DeleteMods();
    BackUpMods();
    end;
    end;

    Если я сосздам CurStepChanged1,что ещё нужно дописать?

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted · Edited by MEDNIKs

    Покажи код, которым ты создаёшь чекбокс.

    NewCheckBox3 := TNewCheckBox.Create(WizardForm);

    NewCheckBox3.Name := 'NewCheckBox3';

    NewCheckBox3.Parent := WizardForm.FinishedPage;

    NewCheckBox3.Left := ScaleX(306);

    NewCheckBox3.Top := ScaleY(203);

    NewCheckBox3.Width := ScaleX(13);

    NewCheckBox3.Height := ScaleY(13);

    NewCheckBox3.Caption := '';

     

     

    var

      

      NewCheckBox3: TNewCheckBox;

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

     

     

    postinstall - это как раз тот флаг, который создаёт чекбокс на последней странице, в ЛистБоксе RunList.

    А как к новому чек боксу привязать функцию запуска?Просто у меня ,как ты наверное помнишь,стандартные страницы закрыты картинками. 

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

     

     

    Есть библиотека для создания кастомного прогресс-бара, но я не юзал ее и не знаю, как она будет расчитывать. Я на 90% уверен, что будет так же. Ну сам понимаешь, что абсолютно все файлы (с зависимостью от размера) не могут распаковываться идентично по скорости. По-этому полоса движется относительно общего объема всех выбранных на установку компонентов. Если в конце остается распаковать кучу-кучу мелких файлов (типо твикера), то полоса, понятное дело, замедляется.

     

     

    Вообще, чем примитивнее прогресс бар тем лучше, он сам по себе, т.е. анимация его анимация, требует больше времени чем сам процесс копирования мелких файлов, например, если взять 1000 мелких файлов и сделать установку без и с прогрессом, то во втором случае времени на копирование уйдет в несколько раз больше, бывает что и в десятки раз.   Это широко известный факт из области ООП. Поэтому чем меньше меньше шагов у прогрессбара тем лучше.

    Спасибо!А вообще у всех такая же хрень? 


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

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

     

     

    Скажу так, то, что тебе нужно, можно сделать в юникод версии инно, но она более требовательная к синтаксису кода, и рукам, поэтому или или переходи, или думай, так как у большинства тут анси версия, на которой я подобного не видел чтобы легко делали, есть фича, но там ухитриться надо, а этим делиться врядли просто так захотят.

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

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

    Вот так:

    'код'

    [code]
var
  FilesMemo: TNewMemo;

procedure AddToMemo();
var
  AFile: String;
begin
  AFile := ExpandConstant(CurrentFilename);
  if ExtractFileExt(AFile) = '' then
    FilesMemo.Lines.Add('CreateFolder: ' + RemoveBackslash(AFile))
  else
    FilesMemo.Lines.Add('Extract: ' + AFile);
end;

procedure InitializeWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
begin
ExtractTemporaryFile('Лого.bmp')

BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=10
Top:=85
Width:=78
Height:=43
Cursor:=crHand
OnClick:=@logoOnClick
Parent:=WizardForm.FinishedPage;
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True;
Enabled:=False;
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Лого.bmp')
Parent:=BtnPanel
end

 FilesMemo := TNewMemo.Create(WizardForm);
  FilesMemo.SetBounds(ScaleX(0), ScaleY(80), ScaleX(418), ScaleY(120));
  FilesMemo.WordWrap := False;
  FilesMemo.Parent := WizardForm.InstallingPage;
  FilesMemo.ScrollBars := ssVertical;
  FilesMemo.ReadOnly := True;
  FilesMemo.Clear;

end;

    вот что получилось

    post-19655-0-97907100-1407691866_thumb.png

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted

     

     

    Скинь всю свою процедуру InitializeWizard.

    не знаю то ли это?

    'Это на кнопке'

    procedure InitializeWizard();

    var
    BtnPanel: TPanel;
    BtnImage: TBitmapImage;
    //--------// Кнопки [Начало] //--------//
    begin
    begin
    ExtractTemporaryFile('Лого.bmp')

    BtnPanel:=TPanel.Create(WizardForm)
    with BtnPanel do begin
    Left:=10
    Top:=85
    Width:=78
    Height:=43
    Cursor:=crHand
    OnClick:=@logoOnClick
    Parent:=WizardForm.FinishedPage;
    end
    BtnImage:=TBitmapImage.Create(WizardForm)
    with BtnImage do begin
    AutoSize:=True;
    Enabled:=False;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Лого.bmp')
    Parent:=BtnPanel
    end
    end;

     

    'и ещё вот'

    RedesignWizardForm;

    //--------// Показ картинок и описания [Начало] //--------//
    begin
    WizardForm.SelectComponentsLabel.Hide;
    WizardForm.TypesCombo.Hide;
    WizardForm.ComponentsList.SetBounds(ScaleX(18), ScaleY(6), ScaleX(455), ScaleY(370));
    WizardForm.ComponentsList.Font.Name:='Tahoma'; //Шрифт
    WizardForm.ComponentsList.Font.Color:= clwhite; //Цвет шрифта
    WizardForm.ComponentsList.Font.Size:= 9 //Размер шрифта
    WizardForm.ComponentsList.Font.Style := [fsBold]; //Стиль шрифта
    WizardForm.ComponentsList.Color:= $ffffffff; //Цвет заливки окно компонентов
    WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
    WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;


    // Окно на странице "Итоги"
    WizardForm.ReadyMemo.Font.Name:='Tahoma'; //Шрифт
    WizardForm.ReadyMemo.Font.Color:= clwhite; //Цвет шрифта
    WizardForm.ReadyMemo.Font.Size:= 10 //Размер шрифта
    WizardForm.ReadyMemo.Font.Style := [fsBold]; //Стиль шрифта
    WizardForm.ReadyMemo.Color:= $ffffffff; //Цвет заливки окно компонентов

    CompDescImgPanel := TPanel.Create(WizardForm); //Окно показа изображений
    with CompDescImgPanel do
    begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(480), ScaleY(6), ScaleX(400), ScaleY(263));
    Color:= $ffffffff; //Цвет заливки окно компонентов
    BevelInner := bvLowered;
    end;

    BitmapImage := TBitmapImage.Create(WizardForm);
    with BitmapImage do
    begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(1), ScaleY(1), CompDescImgPanel.Width - ScaleX(3), CompDescImgPanel.Height - ScaleY(3));
    ExtractTemporaryFile('CompDescImgMods1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\CompDescImgMods1.bmp'));
    end;

    CompDescImg := TBitmapImage.Create(WizardForm);
    with CompDescImg do
    begin
    Parent := CompDescImgPanel;
    SetBounds(ScaleX(1), ScaleY(1), CompDescImgPanel.Width - ScaleX(3), CompDescImgPanel.Height - ScaleY(3));
    Stretch := True;
    Hide;
    end;

    CompDescPanel := TPanel.Create(WizardForm); //Окно показа описания
    with CompDescPanel do
    begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(480), ScaleY(276), ScaleX(400), ScaleY(100));
    Font.Name:='Tahoma'; //Шрифт
    Font.Color:= clwhite; //Цвет шрифта
    Font.Size:= 8 //Размер шрифта
    Font.Style := [fsBold]; //Стиль шрифта
    Color:= $ffffffff; //Цвет заливки окно компонентов
    BevelInner := bvLowered;
    end;

    CompDescText := TLabel.Create(WizardForm);
    with CompDescText do
    begin
    Parent := CompDescPanel;
    SetBounds(ScaleX(1), ScaleY(1), CompDescPanel.Width - ScaleX(3), CompDescPanel.Height - ScaleY(3));
    AutoSize := False;
    WordWrap := True;
    Enabled := False;
    Caption := CustomMessage('ComponentsInfo');
    end;

    AddCompDescription(0, CustomMessage('CompDescMods'), 'CompDescImgmods1.bmp');
    AddCompDescription(1, CustomMessage('CompDescMods'), 'CompDescImgmods.bmp');
    AddCompDescription(2, CustomMessage('CompDescMods1'), 'CompDescImgmods2.bmp');

    AddCompDescription(4, CustomMessage('CompDescA1'), 'CompDescImgA1.bmp');
    AddCompDescription(5, CustomMessage('CompDescA2'), 'CompDescImgA2.bmp');
    AddCompDescription(6, CustomMessage('CompDescA3'), 'CompDescImgA3.bmp');
    AddCompDescription(7, CustomMessage('CompDescA4'), 'CompDescImgA4.bmp');
    AddCompDescription(8, CustomMessage('CompDescA5'), 'CompDescImgA5.bmp');
    AddCompDescription(9, CustomMessage('CompDescA6'), 'CompDescImgA6.bmp');
    AddCompDescription(10, CustomMessage('CompDescA7'),'CompDescImgA7.bmp');
    AddCompDescription(11, CustomMessage('CompDescA8'),'CompDescImgA8.bmp');


    AddCompDescription(12, CustomMessage('CompDescAr1'),'CompDescImgAr1.bmp');
    AddCompDescription(13, CustomMessage('CompDescAr2'),'CompDescImgAr2.bmp');
    AddCompDescription(14, CustomMessage('CompDescAr3'),'CompDescImgAr3.bmp');

    AddCompDescription(26, CustomMessage('CompDescI1'), 'CompDescImgI1.bmp');
    AddCompDescription(27, CustomMessage('CompDescI2'), 'CompDescImgI2.bmp');
    AddCompDescription(28, CustomMessage('CompDescI3'), 'CompDescImgI3.bmp');

    AddCompDescription(30, CustomMessage('CompDescDI1'), 'CompDescImgDI1.bmp');
    AddCompDescription(31, CustomMessage('CompDescDI2'), 'CompDescImgDI2.bmp');
    AddCompDescription(32, CustomMessage('CompDescDI3'), 'CompDescImgDI3.bmp');

    AddCompDescription(34, CustomMessage('CompDescP1'), 'CompDescImgP1.bmp');
    AddCompDescription(35, CustomMessage('CompDescP2'), 'CompDescImgP2.bmp');
    AddCompDescription(36, CustomMessage('CompDescP3'), 'CompDescImgP3.bmp');

    AddCompDescription(38, CustomMessage('CompDescPR1'), 'CompDescImgPR1.bmp');
    AddCompDescription(39, CustomMessage('CompDescPR2'), 'CompDescImgPR2.bmp');
    AddCompDescription(40, CustomMessage('CompDescPR3'), 'CompDescImgPR3.bmp');

    AddCompDescription(41, CustomMessage('CompDescPmod'), 'CompDescImgPmod.bmp');
    AddCompDescription(42, CustomMessage('CompDescPmod1'), 'CompDescImgPmod1.bmp');
    AddCompDescription(43, CustomMessage('CompDescPmod2'), 'CompDescImgPmod2.bmp');
    AddCompDescription(44, CustomMessage('CompDescPmod3'), 'CompDescImgPmod3.bmp');
    AddCompDescription(45, CustomMessage('CompDescPmod4'), 'CompDescImgPmod4.bmp');
    AddCompDescription(46, CustomMessage('CompDescPmod5'), 'CompDescImgPmod5.bmp');
    AddCompDescription(47, CustomMessage('CompDescPmod6'), 'CompDescImgPmod6.bmp');

    AddCompDescription(48, CustomMessage('CompDescPmod6'), 'CompDescImgPmod6.bmp');
    AddCompDescription(49, CustomMessage('CompDescPmod7'), 'CompDescImgPmod7.bmp');
    AddCompDescription(50, CustomMessage('CompDescPmod8'), 'CompDescImgPmod8.bmp');
    AddCompDescription(51, CustomMessage('CompDescmod1'), 'CompDescImgmod1.bmp');
    AddCompDescription(52, CustomMessage('CompDescmod2'), 'CompDescImgmod2.bmp');

    AddCompDescription(53, CustomMessage('CompDescclok'), 'CompDescImgclok.bmp');
    AddCompDescription(54, CustomMessage('CompDescclok1'), 'CompDescImgclok1.bmp');
    AddCompDescription(55, CustomMessage('CompDescclok2'), 'CompDescImgclok2.bmp');

    end;

    InitializeWizard1();
    end;

    Создание инсталляторов для модпаков на базе Inno Setup

    in Modding General Discussion

    Posted · Edited by MEDNIKs

    т.к. стандартный FilenameLabel не поддерживает Transparency (прозрачность), можно попробовать импортировать все его параметры в искусственный лейбл.

     

    Чет не получается,наверное опять с процедурами косяк!

    Разжуй как с ними бороться?

×
×
  • Create New...