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

[Kotyarko_O 1,906]

 

 

Как чтоб закрывало инстал?

Не помню, работает ли из-под NextButtonClick, но можешь попробовать:

Abort;

[-zav- 188]

Не помню, работает ли из-под NextButtonClick, но можешь попробовать:

Abort;

Видимо нет

'ошибка'

 

 

 

-zav-, не так) Нужно Abort указать вместо результата:

 

ох ё...   так работает

я нуб да?  ))

Edited May 14, 2015 by -zav-

[Kotyarko_O 1,906]

@-zav-, не так)

'Нужно Abort указать вместо результата:'

function NextButtonClick(CurPageID: Integer): Boolean;
begin
    Result:= true;

    case CurPageID of
      wpSelectDir:
      begin
        if FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin
          if FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') < '0.9.6' then begin
            MsgBoxEx(WizardForm.Handle, 'МодПак не предназначен для данной версии игры, невозможно продолжить установку!', 'Не актуальная версия игры', MB_OK or MB_ICONWARNING, 0, 0);
            Abort;
          end;
        end;
      end;
    end;
end;

[Hatsan 3]

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

[Kotyarko_O 1,906]

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

Речь идёт только о изображении на странице приветствия\завершения или абсолютно на всех?

[Hatsan 3]

на всех

[Ekspoint 2,122]

на всех

Botva2 0.9.5.130.rar

Или в редакторе 

[Hatsan 3]

Botva2 0.9.5.130.rar

Или в редакторе 

как я понял

в редакторе форм нельзя это сделать?

[Ekspoint 2,122]

как я понял

в редакторе форм нельзя это сделать?

можно

[Kotyarko_O 1,906]

 

 

в редакторе форм нельзя это сделать?

Лучше через ботву.

[Ekspoint 2,122]

вот через редактор

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
;{ ISFormDesignerFilesBegin } // Не удалять эту строку!
;// Не изменять эту секцию. Она создана автоматически.
DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernImage.bmp"; Flags: dontcopy solidbreak
;// Не изменять эту секцию. Она создана автоматически.
;{ ISFormDesignerFilesEnd } // Не удалять эту строку!

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010B603000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C656674020003546F70023A05576964746803F101064865696768740347010C4578706C696369744C65667402000B4578706C69636974546F70023A0D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740347010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803F101064865696768740301010A4269746D617046696C65061B636F6D70696C65723A57697A4D6F6465726E496D6167652E626D700000F10C544269746D6170496D6167651453656C6563744469724269746D6170496D61676503546F7002090B4578706C69636974546F7002090000F10E544E6577537461746963546578740E4469736B53706163654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578740E53656C6563744469724C6162656C0B5472616E73706172656E740900000000000000

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

procedure RedesignWizardForm;
begin
  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(0);
    Top := ScaleY(58);
    Width := ScaleX(497);
    Height := ScaleY(327);
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Name := 'BitmapImage1';
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(257);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.SelectDirBitmapImage do
  begin
    Top := ScaleY(9);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Transparent := True;
  end;

  with WizardForm.SelectDirBrowseLabel do
  begin
    Transparent := True;
  end;

  with WizardForm.SelectDirLabel do
  begin
    Transparent := True;
  end;

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

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

procedure InitializeWizard();
begin
  RedesignWizardForm;
end; 

как то так 

Edited May 16, 2015 by Dark_Knight_MiX

[Hatsan 3]

вот через редактор

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
[Files]
;{ ISFormDesignerFilesBegin } // Не удалять эту строку!
;// Не изменять эту секцию. Она создана автоматически.
DestName: "WizardForm.BitmapImage1.bmp"; Source: "compiler:WizModernImage.bmp"; Flags: dontcopy solidbreak
;// Не изменять эту секцию. Она создана автоматически.
;{ ISFormDesignerFilesEnd } // Не удалять эту строку!

[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D003010B603000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E744865696768740368010B436C69656E74576964746803F1010C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C6963697457696474680301020E4578706C69636974486569676874038F010D506978656C73506572496E636802600A54657874486569676874020D00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740339010000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B044C656674020003546F70023A05576964746803F101064865696768740347010C4578706C696369744C65667402000B4578706C69636974546F70023A0D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C69636974576964746803F1010E4578706C696369744865696768740347010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803A1010E4578706C6963697448656967687403ED000000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403470100F202000C544269746D6170496D6167650C4269746D6170496D61676531044C656674020003546F70020005576964746803F101064865696768740301010A4269746D617046696C65061B636F6D70696C65723A57697A4D6F6465726E496D6167652E626D700000F10C544269746D6170496D6167651453656C6563744469724269746D6170496D61676503546F7002090B4578706C69636974546F7002090000F10E544E6577537461746963546578740E4469736B53706163654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578741453656C65637444697242726F7773654C6162656C0B5472616E73706172656E74090000F10E544E6577537461746963546578740E53656C6563744469724C6162656C0B5472616E73706172656E740900000000000000

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

procedure RedesignWizardForm;
begin
  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(0);
    Top := ScaleY(58);
    Width := ScaleX(497);
    Height := ScaleY(327);
  end;

  { BitmapImage1 }
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Name := 'BitmapImage1';
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(0);
    Top := ScaleY(0);
    Width := ScaleX(497);
    Height := ScaleY(257);
    ExtractTemporaryFile('WizardForm.BitmapImage1.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizardForm.BitmapImage1.bmp'));
  end;

  with WizardForm.SelectDirBitmapImage do
  begin
    Top := ScaleY(9);
  end;

  with WizardForm.DiskSpaceLabel do
  begin
    Transparent := True;
  end;

  with WizardForm.SelectDirBrowseLabel do
  begin
    Transparent := True;
  end;

  with WizardForm.SelectDirLabel do
  begin
    Transparent := True;
  end;

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

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

procedure InitializeWizard();
begin
  RedesignWizardForm;
end; 

как то так 

сябки ща попробую если допру:)

[Ekspoint 2,122]

сябки ща попробую если допру:)

аналогично и на других стр

[Hatsan 3]

Лучше через ботву.

а по подробнее можно как сней работать?

не кто не подскажет как прикрутить Botva2 0.9.5.130?

Пойду читать 160 стр

[Ekspoint 2,122]

 

Пойду читать 160 стр

это верно

[Kotyarko_O 1,906]

а по подробнее можно как сней работать?

не кто не подскажет как прикрутить Botva2 0.9.5.130?

Пойду читать 160 стр

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

Edited May 16, 2015 by Kotyarko_O

[StranikS_Scan 4,210]

 

 

не кто не подскажет как прикрутить Botva2 0.9.5.130?

 

О сколько раз я видел эту надпись, Гарацио!

[AtotIK 580]

не кто не подскажет как прикрутить Botva2 0.9.5.130?

"Прикрутить" очень просто, 5 строчек всего.

#include "Embedded\botva2.iss";

Source: "Embedded\botva2.dll"; Flags: dontcopy;
Source: "Embedded\CallbackCtrl.dll"; Flags: dontcopy;

ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('CallbackCtrl.dll');

А вот использовать - тут у многих проблемы начинаются.

 

З.Ы. Низко берёте, уже есть версия 0.9.9.156!

Edited May 16, 2015 by AtotIK

[Ekspoint 2,122]

З.Ы. Низко берёте, уже есть версия 0.9.9.156!

ха,точно, не заметил

[Hatsan 3]

"Прикрутить" очень просто, 5 строчек всего.

#include "Embedded\botva2.iss";

Source: "Embedded\botva2.dll"; Flags: dontcopy;
Source: "Embedded\CallbackCtrl.dll"; Flags: dontcopy;

ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('CallbackCtrl.dll');

А вот использовать - тут у многих проблемы начинаются.

 

З.Ы. Низко берёте, уже есть версия 0.9.9.156!

спс будем пробовать

Такой вопрос еще ? возможно ли HTML код прикрутить на завершение установки?