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

vladimir123 · July 6, 2015

проблема с оленемером в танках врет и причем стабильно когда показывает на победу больше 60% то всегда слив и причем конкретный . и на оборот при 45.% и даже меньше победы в чем дело ? надо уже что то делать

AtotIK · July 6, 2015

проблема с оленемером в танках врет и причем стабильно когда показывает на победу больше 60% то всегда слив и причем конкретный . и на оборот при 45.% и даже меньше победы в чем дело ? надо уже что то делать

Это именно та тема, в которой Ваше сообщение заметят и дадут квалифицированный ответ.

Kotyarko_O · July 6, 2015

проблема с оленемером в танках врет и причем стабильно когда показывает на победу больше 60% то всегда слив и причем конкретный . и на оборот при 45.% и даже меньше победы в чем дело ? надо уже что то делать

% на победу никогда не будет предсказывать точный исход боя. Это известно ВСЕМ.

И, да, это совершенно не та тема на этом форуме, в которой нужно это обсуждать.

Fury · July 6, 2015

[Setup]
AppName=Моя программа
AppVersion=1.5
DefaultDirName={pf}\Моя программа

[CustomMessages]
CompName1=Компонент 1
CompName2=Компонент 2

ComponentsImgInfo=Наведите курсор мыши на компонент, чтобы посмотреть его превью.

CompDesc1=Описание первого компонента
CompDesc2=Описание второго компонента

[Files]
Source: "compiler:WizModernImage.bmp"; DestName: "CompDescImg1.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage-IS.bmp"; DestName: "CompDescImg2.bmp"; Flags: dontcopy
Source: "compiler:WizModernImage.bmp"; DestName: "MainPic.bmp"; Flags: dontcopy

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: comp1; Description: "{cm:CompName1}"; Types: full
Name: comp2; Description: "{cm:CompName2}"; Types: full
Name: comp3; Description: "{cm:CompName1}"; Types: full
Name: comp4; Description: "{cm:CompName2}"; Types: full
Name: comp5; Description: "{cm:CompName1}"; Types: full
Name: comp6; Description: "{cm:CompName2}"; Types: full
Name: comp7; Description: "{cm:CompName1}"; Types: full
Name: comp8; Description: "{cm:CompName2}"; Types: full

[Code]
type
  TComponentDesc = record
    ImageName: String;
    Index: Integer;
  end;

var
  CompDescs: array of TComponentDesc;
  CompDescImgPanel: TPanel;
  CompIndex, LastIndex: Integer;
  CompDescImg: 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 (CompIndex >= 0) and (Area = iaItem) then
  begin
    if not FileExists(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName) then
      ExtractTemporaryFile(CompDescs[CompIndex].ImageName);
    CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\') + CompDescs[CompIndex].ImageName);
   CompDescImg.Show;
end else
begin
CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp'));
end;
LastIndex := Index;
end;

procedure CompListMouseLeave(Sender: TObject);
begin
  LastIndex := -1;
 CompDescImg.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp'));
end;

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

function GetComponentIndex(Name: String): Integer;
var
  i: Integer;
begin
  Result:= -1;
  for i:= 0 to WizardForm.ComponentsList.ItemCount-1 do begin
    if (WizardForm.ComponentsList.ItemCaption[i] = Name) then begin
      Result:= i + 1;
      Break;
    end;
  end;
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('MainPic.bmp');
  WizardForm.SelectComponentsLabel.Hide;
  WizardForm.TypesCombo.Hide;
  WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(0), ScaleX(184), ScaleY(200));
  WizardForm.ComponentsList.OnItemMouseMove:= @ShowCompDescription;
  WizardForm.ComponentsList.OnMouseLeave := @CompListMouseLeave;

  CompDescImgPanel := TPanel.Create(WizardForm);
  with CompDescImgPanel do
  begin
    Parent := WizardForm.SelectComponentsPage;
    SetBounds(ScaleX(192), ScaleY(0), ScaleX(225), ScaleY(120));
    BevelInner := bvLowered;
  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;
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\MainPic.bmp'));
  end;

  AddCompDescription(1, 'CompDescImg1.bmp');
  AddCompDescription(2, 'CompDescImg2.bmp');
  /////////////////////////////////////////
  //AddCompDescription(GetComponentIndex(CustomMessage('CompName1')), 'CompDescImg1.bmp');  //по названию компонента
  //AddCompDescription(GetComponentIndex(CustomMessage('CompName2')), 'CompDescImg2.bmp');  //по названию компонента
end;

Доброго времени суток вам Ребята!

Сломал голову как работает превью, Хочу себе сделать мод пак 5 сутки конечно не прошли даром, ( прочитал всю тему раз 5 ) но получается или то что готовый ехе-шник виснет страшно или картинки долго появляются, взял выше под полкой скрипт!!!??? ломался с ним часа 2 но так ни чего и не вышло, не выдержал пишу о просьбе ПОМОГИТЕ , что не так!!??

Ино сетап узнал как неделю (разбираюсь по тихоньку) . Если есть от чего оттолкнуться образец чтоли скиньте надо поразбираться, Заранее благодарен за любой ответ! Спасибо.

Edited July 6, 2015 by Fury

Kotyarko_O · July 6, 2015

получается или то что готовый ехе-шник виснет страшно или картинки долго появляются

Скорее всего, вы переборщили со сжатием.

Покажите вашу секцию [setup].

Edited July 6, 2015 by Kotyarko_O

Fury · July 6, 2015

Скорее всего, вы переборщили со сжатием.

Покажите вашу секцию [setup].

[setup]

AppId={{#GameID}

AppName={#MyAppName}

AppVersion={#MyAppVer}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

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

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

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

;DefaultDirName={pf}\{#MyAppName}

DefaultDirName=C:\Games\World_of_Tanks

DefaultGroupName={#MyAppName}

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

SetupIconFile=Files\wot_ico.ico

WizardSmallImageFile=Files\img2.bmp

WizardImageFile=Files\img1.bmp

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

DisableProgramGroupPage=yes

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

LicenseFile=licensia.txt

InfoBeforeFile=faq.rtf

InfoAfterFile=credit.rtf

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

OutputDir=.\Output

OutputBaseFilename=WotMod_Fury_Road_v.0.9.8.1#1

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

InternalCompressLevel=ultra64

Compression=lzma2/ultra64

SolidCompression=true

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

[Files]

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

//====={ Картинки модов }=====\\

Source: img_mod\1.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.ж.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.з.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.в.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.е.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.в.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.в.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.е.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.ж.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.з.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.и.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.к.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.л.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\7.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\7.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\8.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\8.б.bmp; Flags: dontcopy noencryption noencryption

//====={ Выбор языка }=====\\

[Languages]

Name: "eng"; MessagesFile: "compiler:Default.isl"

Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"

{ RedesignWizardFormBegin } // Не удалять эту строку!

// Не изменять эту секцию. Она создана автоматически.

var

OldEvent_BackButtonClick: TNotifyEvent;

procedure WizardFormCreate(Sender: TObject); forward;

procedure MainPanelClick(Sender: TObject); forward;

procedure PageDescriptionLabelClick(Sender: TObject); forward;

procedure _BackButtonClick(Sender: TObject); forward;

function MyDirName(S:String): String;

var

InsPath: String;

er: boolean;

myFile:String;

begin

Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда

er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);

if er and (InsPath<>'') then //если ключ существует и там что-то записано

begin

Result := InsPath;

end;

procedure RedesignWizardForm;

begin

with WizardForm do

begin

OnCreate := @WizardFormCreate;

AutoScroll := False;

ClientHeight := ScaleY(490);

ClientWidth := ScaleX(740);

end;

with WizardForm.Bevel do

begin

Top := ScaleY(243);

Width := ScaleX(457);

Height := ScaleY(70);

end;

with WizardForm.OuterNotebook do

begin

Width := ScaleX(745);

Height := ScaleY(457);

end;

with WizardForm.WizardBitmapImage do

begin

Width := ScaleX(740);

Height := ScaleY(458);

end;

with WizardForm.WelcomeLabel2 do

begin

Caption := '' + #13#10 +

'';

Left := ScaleX(744);

Top := ScaleY(-23);

Width := ScaleX(125);

Height := ScaleY(25);

end;

with WizardForm.WelcomeLabel1 do

begin

Caption := '';

Left := ScaleX(744);

Top := ScaleY(-23);

Width := ScaleX(13);

Height := ScaleY(25);

end;

with WizardForm.Bevel1 do

begin

Top := ScaleY(57);

Width := ScaleX(523);

Height := ScaleY(1);

end;

with WizardForm.InnerNotebook do

begin

Width := ScaleX(659);

Height := ScaleY(357);

end;

with WizardForm.LicenseNotAcceptedRadio do

begin

Top := ScaleY(312);

end;

with WizardForm.LicenseAcceptedRadio do

begin

Top := ScaleY(292);

end;

with WizardForm.LicenseMemo do

begin

Width := ScaleX(617);

Height := ScaleY(244);

end;

with WizardForm.DiskSpaceLabel do

begin

Top := ScaleY(344);

Width := ScaleX(353);

end;

with WizardForm.DirBrowseButton do

begin

Left := ScaleX(574);

Top := ScaleY(79);

end;

with WizardForm.DirEdit do

begin

Left := ScaleX(16);

Width := ScaleX(540);

end;

with WizardForm.ComponentsDiskSpaceLabel do

begin

Top := ScaleY(344);

Width := ScaleX(273);

end;

with WizardForm.ComponentsList do

begin

Width := ScaleX(657);

Height := ScaleY(227);

end;

with WizardForm.TypesCombo do

begin

Width := ScaleX(657);

end;

with WizardForm.SelectComponentsLabel do

begin

Caption := 'Выберите моды которые хотите установить, и нажмите далее';

Height := ScaleY(16);

end;

with WizardForm.TasksList do

begin

Width := ScaleX(465);

Height := ScaleY(240);

end;

with WizardForm.ReadyMemo do

begin

Width := ScaleX(657);

Height := ScaleY(333);

end;

with WizardForm.ProgressGauge do

begin

Left := ScaleX(8);

Width := ScaleX(641);

end;

with WizardForm.InfoAfterMemo do

begin

Width := ScaleX(465);

Height := ScaleY(253);

end;

with WizardForm.MainPanel do

begin

Width := ScaleX(745);

Height := ScaleY(66);

OnClick := @MainPanelClick;

end;

with WizardForm.WizardSmallBitmapImage do

begin

Left := ScaleX(0);

Top := ScaleY(3);

Width := ScaleX(735);

Height := ScaleY(63);

end;

with WizardForm.PageDescriptionLabel do

begin

OnClick := @PageDescriptionLabelClick;

Left := ScaleX(-288);

Top := ScaleY(-5);

Width := ScaleX(285);

Height := ScaleY(5);

end;

with WizardForm.PageNameLabel do

begin

Left := ScaleX(-104);

Top := ScaleY(-14);

Width := ScaleX(101);

end;

with WizardForm.WizardBitmapImage2 do

begin

Top := ScaleY(-24);

Width := ScaleX(740);

Height := ScaleY(484);

end;

with WizardForm.RunList do

begin

Left := ScaleX(-128);

Top := ScaleY(459);

Width := ScaleX(125);

Height := ScaleY(62);

end;

with WizardForm.NoRadio do

begin

Left := ScaleX(736);

Top := ScaleY(-7);

Width := ScaleX(245);

Height := ScaleY(9);

Caption := '';

end;

with WizardForm.YesRadio do

begin

Left := ScaleX(736);

Top := ScaleY(459);

Width := ScaleX(173);

Height := ScaleY(1);

Caption := '';

end;

with WizardForm.FinishedLabel do

begin

Caption := '';

Left := ScaleX(736);

Top := ScaleY(-57);

Width := ScaleX(269);

Height := ScaleY(59);

end;

with WizardForm.FinishedHeadingLabel do

begin

Caption := '';

Left := ScaleX(736);

Top := ScaleY(-16);

Width := ScaleX(213);

Height := ScaleY(18);

end;

with WizardForm.BeveledLabel do

begin

Left := ScaleX(-48);

Top := ScaleY(402);

end;

with WizardForm.CancelButton do

begin

Left := ScaleX(617);

Top := ScaleY(463);

end;

with WizardForm.NextButton do

begin

Left := ScaleX(533);

Top := ScaleY(463);

end;

with WizardForm.BackButton do

begin

Left := ScaleX(445);

Top := ScaleY(463);

OldEvent_BackButtonClick := OnClick;

OnClick := @_BackButtonClick;

end;

{ ReservationBegin }

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

{ ReservationEnd }

end;

// Не изменять эту секцию. Она создана автоматически.

{ RedesignWizardFormEnd } // Не удалять эту строку!

procedure NewButton1Click(Sender: TObject);

begin

end;

procedure MainPanelClick(Sender: TObject);

begin

end;

procedure PageDescriptionLabelClick(Sender: TObject);

begin

end;

procedure _BackButtonClick(Sender: TObject);

begin

OldEvent_BackButtonClick(Sender);

end;

procedure WizardFormCreate(Sender: TObject);

begin

end;

const

UNDEF_INDEX = -777;

function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';

var

InfoPic: TBitmapImage;

LastIndex: Integer;

TempPath: String;

procedure ShowPicHint(const PicFilePath: String);

var

pt: TPoint;

begin

if not GetCursorPos(pt) then Exit;

InfoPic.Bitmap.LoadFromFile(PicFilePath);

InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));

InfoPic.Show;

end;

procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);

var

UndefPic: String;

begin

if Index = -1 then Exit;

if Index = LastIndex then Exit;

try

case TNewCheckListBox(Sender).ItemCaption[index] of

'1.а РЭ 4-значный.': UndefPic := '1.а.bmp'; // пишем точно так же, как прописано в компонентах

'1.б Карусель танков 2 ряд.': UndefPic := '1.б.bmp';

'1.г ХП в ушах внутри.': UndefPic := '1.г.bmp';

'1.д Идикатор засвета в ушах.': UndefPic := '1.д.bmp';

'1.ж Прицел арты на миникарте.': UndefPic := '1.ж.bmp';

'1.з Альтернативные иконки танков.': UndefPic := '1.з.bmp';

'2.а Пакет с пряниками.': UndefPic := '2.а.bmp';

'2.б Авто-экипировка по F3.': UndefPic := '2.б.bmp';

'2.г Спам-фильтр сообщений.': UndefPic := '2.г.bmp';

else

begin

LastIndex := UNDEF_INDEX;

InfoPic.Hide;

Exit;

end;

if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);

ShowPicHint(TempPath + UndefPic);

finally

LastIndex := Index;

end;

procedure CompOnMouseLeave(Sender: TObject);

begin

InfoPic.Hide;

LastIndex := -1;

end;

procedure InitInfo();

begin

WizardForm.TypesCombo.Hide;

WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(310), ScaleY(278));

WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;

WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;

TempPath := AddBackslash(ExpandConstant('{tmp}'));

LastIndex := UNDEF_INDEX;

with TBevel.Create(WizardForm) do

begin

Parent := WizardForm.SelectComponentsPage;

SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));

Shape := bsFrame;

end;

InfoPic := TBitmapImage.Create(WizardForm)

with InfoPic do

begin

Parent := WizardForm.SelectComponentsPage;

AutoSize := True;

end;

procedure InitializeWizard();

begin

RedesignWizardForm;

InitInfo();

end;

[iSFormDesigner]

WizardForm=FF0A005457495A415244464F524D0030101812000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E7448656967687403EA010B436C69656E74576964746803E402134F6E436F6E73747261696E6564526573697A65071057697A617264466F726D437265617465084F6E437265617465071057697A617264466F726D4372656174650C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746803F4020E4578706C696369744865696768740310020D506978656C73506572496E636802600A54657874486569676874020D00F10654426576656C05426576656C03546F7003F30005576964746803C9010648656967687402460B4578706C69636974546F7003F3000D4578706C69636974576964746803C9010E4578706C6963697448656967687402460000F302010C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B05576964746803E9020648656967687403C9010D4578706C69636974576964746803E9020E4578706C6963697448656967687403C90100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D61676505576964746803E4020648656967687403CA010D4578706C69636974576964746803E4020E4578706C6963697448656967687403CA010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C32044C65667403E80203546F7002E9055769647468027D0648656967687402190743617074696F6E06020D0A0C4578706C696369744C65667403E8020B4578706C69636974546F7002E90D4578706C696369745769647468027D0E4578706C6963697448656967687402190000F10E544E6577537461746963546578740D57656C636F6D654C6162656C31044C65667403E80203546F7002E9055769647468020D0648656967687402190743617074696F6E12000000000C4578706C696369744C65667403E8020B4578706C69636974546F7002E90D4578706C696369745769647468020D0E4578706C696369744865696768740219000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803E9020E4578706C6963697448656967687403C90100F10654426576656C06426576656C3103546F700239055769647468030B020648656967687402010B4578706C69636974546F7002390D4578706C696369745769647468030B020E4578706C6963697448656967687402010000F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B055769647468039302064865696768740365010D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F03546F700338010B4578706C69636974546F700338010000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F03546F700324010B4578706C69636974546F700324010000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680369020648656967687403F4000D4578706C6963697457696474680369020E4578706C6963697448656967687403F400000000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C69636974576964746803D3010E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803D3010E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10E544E6577537461746963546578740E4469736B53706163654C6162656C03546F700358010557696474680361010B4578706C69636974546F700358010D4578706C6963697457696474680361010000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C656674033E0203546F70024F0C4578706C696369744C656674033E020B4578706C69636974546F70024F0000F10554456469740744697245646974044C6566740210055769647468031C020C4578706C696369744C65667402100D4578706C696369745769647468031C02000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10E544E65775374617469635465787418436F6D706F6E656E74734469736B53706163654C6162656C03546F700358010557696474680311010B4578706C69636974546F700358010D4578706C6963697457696474680311010000F110544E6577436865636B4C697374426F780E436F6D706F6E656E74734C6973740557696474680391020648656967687403E3000D4578706C6963697457696474680391020E4578706C6963697448656967687403E3000000F10C544E6577436F6D626F426F780A5479706573436F6D626F0557696474680391020A4974656D486569676874020D0D4578706C6963697457696474680391020000F10E544E6577537461746963546578741553656C656374436F6D706F6E656E74734C6162656C0648656967687402100743617074696F6E1468000000D092D18BD0B1D0B5D180D0B8D182D0B520D0BCD0BED0B4D18B20D0BAD0BED182D0BED180D18BD0B520D185D0BED182D0B8D182D0B520D183D181D182D0B0D0BDD0BED0B2D0B8D182D18C2C20D0B820D0BDD0B0D0B6D0BCD0B8D182D0B520D0B4D0B0D0BBD0B5D0B50E4578706C696369744865696768740210000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C69636974576964746803D3010E4578706C6963697448656967687403150100F110544E6577436865636B4C697374426F78095461736B734C69737405576964746803D1010648656967687403F0000D4578706C69636974576964746803D1010E4578706C6963697448656967687403F000000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F108544E65774D656D6F0952656164794D656D6F05576964746803910206486569676874034D010D4578706C6963697457696474680391020E4578706C69636974486569676874034D01000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C69636974576964746803D3010E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10F544E657750726F67726573734261720D50726F67726573734761756765044C65667402080557696474680381020C4578706C696369744C65667402080D4578706C696369745769647468038102000000F110544E65774E6F7465626F6F6B506167650D496E666F4166746572506167650D4578706C69636974576964746803D3010E4578706C6963697448656967687403150100F10F5452696368456469745669657765720D496E666F41667465724D656D6F05576964746803D1010648656967687403FD000D4578706C69636974576964746803D1010E4578706C6963697448656967687403FD0000000000F1065450616E656C094D61696E50616E656C05576964746803E902064865696768740242074F6E436C69636B070E4D61696E50616E656C436C69636B0D4578706C69636974576964746803E9020E4578706C69636974486569676874024200F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020003546F70020305576964746803DF0206486569676874023F0C4578706C696369744C65667402000B4578706C69636974546F7002030D4578706C69636974576964746803DF020E4578706C69636974486569676874023F0000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667403E0FE03546F7002FB055769647468031D01064865696768740205074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667403E0FE0B4578706C69636974546F7002FB0D4578706C696369745769647468031D010E4578706C6963697448656967687402050000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C656674029803546F7002F205576964746802650C4578706C696369744C65667402980B4578706C69636974546F7002F20D4578706C696369745769647468026500000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803E9020E4578706C6963697448656967687403C90100F10C544269746D6170496D6167651257697A6172644269746D6170496D6167653203546F7002E805576964746803E4020648656967687403E4010B4578706C69636974546F7002E80D4578706C69636974576964746803E4020E4578706C6963697448656967687403E4010000F110544E6577436865636B4C697374426F780752756E4C697374044C656674028003546F7003CB01055769647468027D06486569676874023E0C4578706C696369744C65667402800B4578706C69636974546F7003CB010D4578706C696369745769647468027D0E4578706C69636974486569676874023E0000F10F544E6577526164696F427574746F6E074E6F526164696F044C65667403E00203546F7002F905576964746803F5000648656967687402090743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7002F90D4578706C69636974576964746803F5000E4578706C6963697448656967687402090000F10F544E6577526164696F427574746F6E08596573526164696F044C65667403E00203546F7003CB0105576964746803AD000648656967687402010743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7003CB010D4578706C69636974576964746803AD000E4578706C6963697448656967687402010000F10E544E6577537461746963546578740D46696E69736865644C6162656C044C65667403E00203546F7002C7055769647468030D0106486569676874023B0743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7002C70D4578706C696369745769647468030D010E4578706C69636974486569676874023B0000F10E544E6577537461746963546578741446696E697368656448656164696E674C6162656C044C65667403E00203546F7002F005576964746803D5000648656967687402120743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7002F00D4578706C69636974576964746803D5000E4578706C69636974486569676874021200000000F302020E544E6577537461746963546578740C426576656C65644C6162656C044C65667402D003546F700392010C4578706C696369744C65667402D00B4578706C69636974546F700392010000F302030A544E6577427574746F6E0C43616E63656C427574746F6E044C65667403690203546F7003CF010C4578706C696369744C6566740369020B4578706C69636974546F7003CF010000F302040A544E6577427574746F6E0A4E657874427574746F6E044C65667403150203546F7003CF010C4578706C696369744C6566740315020B4578706C69636974546F7003CF010000F302050A544E6577427574746F6E0A4261636B427574746F6E044C65667403BD0103546F7003CF01074F6E436C69636B07105F4261636B427574746F6E436C69636B0C4578706C696369744C65667403BD010B4578706C69636974546F7003CF01000000

Вот посмотрите плиз! :)

Edited July 6, 2015 by Fury

Ekspoint · July 6, 2015

[setup]
AppId={{#GameID}

AppName={#MyAppName}

AppVersion={#MyAppVer}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

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

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

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

;DefaultDirName={pf}\{#MyAppName}

DefaultDirName=C:\Games\World_of_Tanks

DefaultGroupName={#MyAppName}

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

SetupIconFile=Files\wot_ico.ico

WizardSmallImageFile=Files\img2.bmp

WizardImageFile=Files\img1.bmp

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

DisableProgramGroupPage=yes

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

LicenseFile=licensia.txt

InfoBeforeFile=faq.rtf

InfoAfterFile=credit.rtf

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

OutputDir=.\Output

OutputBaseFilename=WotMod_Fury_Road_v.0.9.8.1#1

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

InternalCompressLevel=ultra64

Compression=lzma2/ultra64

SolidCompression=true

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

[Files]

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

//====={ Картинки модов }=====\\

Source: img_mod\1.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.ж.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\1.з.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\2.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.в.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.е.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\3.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.в.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\5.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\4.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.в.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.д.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.е.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.ж.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.з.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.и.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.к.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\6.л.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\7.б.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\7.г.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\8.а.bmp; Flags: dontcopy noencryption noencryption

Source: img_mod\8.б.bmp; Flags: dontcopy noencryption noencryption

//====={ Выбор языка }=====\\

[Languages]

Name: "eng"; MessagesFile: "compiler:Default.isl"

Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
{ RedesignWizardFormBegin } // Не удалять эту строку!
// Не изменять эту секцию. Она создана автоматически.
var
OldEvent_BackButtonClick: TNotifyEvent;

procedure WizardFormCreate(Sender: TObject); forward;
procedure MainPanelClick(Sender: TObject); forward;
procedure PageDescriptionLabelClick(Sender: TObject); forward;
procedure _BackButtonClick(Sender: TObject); forward;

function MyDirName(S:String): String;
var
InsPath: String;
er: boolean;
myFile:String;
begin
Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);
if er and (InsPath<>'') then //если ключ существует и там что-то записано
begin
Result := InsPath;
end;
end;

procedure RedesignWizardForm;
begin
with WizardForm do
begin
OnCreate := @WizardFormCreate;
AutoScroll := False;
ClientHeight := ScaleY(490);
ClientWidth := ScaleX(740);
end;

with WizardForm.Bevel do
begin
Top := ScaleY(243);
Width := ScaleX(457);
Height := ScaleY(70);
end;

with WizardForm.OuterNotebook do
begin
Width := ScaleX(745);
Height := ScaleY(457);
end;

with WizardForm.WizardBitmapImage do
begin
Width := ScaleX(740);
Height := ScaleY(458);
end;

with WizardForm.WelcomeLabel2 do
begin
Caption := '' + #13#10 +
'';
Left := ScaleX(744);
Top := ScaleY(-23);
Width := ScaleX(125);
Height := ScaleY(25);
end;

with WizardForm.WelcomeLabel1 do
begin
Caption := '';
Left := ScaleX(744);
Top := ScaleY(-23);
Width := ScaleX(13);
Height := ScaleY(25);
end;

with WizardForm.Bevel1 do
begin
Top := ScaleY(57);
Width := ScaleX(523);
Height := ScaleY(1);
end;

with WizardForm.InnerNotebook do
begin
Width := ScaleX(659);
Height := ScaleY(357);
end;

with WizardForm.LicenseNotAcceptedRadio do
begin
Top := ScaleY(312);
end;

with WizardForm.LicenseAcceptedRadio do
begin
Top := ScaleY(292);
end;

with WizardForm.LicenseMemo do
begin
Width := ScaleX(617);
Height := ScaleY(244);
end;

with WizardForm.DiskSpaceLabel do
begin
Top := ScaleY(344);
Width := ScaleX(353);
end;

with WizardForm.DirBrowseButton do
begin
Left := ScaleX(574);
Top := ScaleY(79);
end;

with WizardForm.DirEdit do
begin
Left := ScaleX(16);
Width := ScaleX(540);
end;

with WizardForm.ComponentsDiskSpaceLabel do
begin
Top := ScaleY(344);
Width := ScaleX(273);
end;

with WizardForm.ComponentsList do
begin
Width := ScaleX(657);
Height := ScaleY(227);
end;

with WizardForm.TypesCombo do
begin
Width := ScaleX(657);
end;

with WizardForm.SelectComponentsLabel do
begin
Caption := 'Выберите моды которые хотите установить, и нажмите далее';
Height := ScaleY(16);
end;

with WizardForm.TasksList do
begin
Width := ScaleX(465);
Height := ScaleY(240);
end;

with WizardForm.ReadyMemo do
begin
Width := ScaleX(657);
Height := ScaleY(333);
end;

with WizardForm.ProgressGauge do
begin
Left := ScaleX(8);
Width := ScaleX(641);
end;

with WizardForm.InfoAfterMemo do
begin
Width := ScaleX(465);
Height := ScaleY(253);
end;

with WizardForm.MainPanel do
begin
Width := ScaleX(745);
Height := ScaleY(66);
OnClick := @MainPanelClick;
end;

with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(0);
Top := ScaleY(3);
Width := ScaleX(735);
Height := ScaleY(63);
end;

with WizardForm.PageDescriptionLabel do
begin
OnClick := @PageDescriptionLabelClick;
Left := ScaleX(-288);
Top := ScaleY(-5);
Width := ScaleX(285);
Height := ScaleY(5);
end;

with WizardForm.PageNameLabel do
begin
Left := ScaleX(-104);
Top := ScaleY(-14);
Width := ScaleX(101);
end;

with WizardForm.WizardBitmapImage2 do
begin
Top := ScaleY(-24);
Width := ScaleX(740);
Height := ScaleY(484);
end;

with WizardForm.RunList do
begin
Left := ScaleX(-128);
Top := ScaleY(459);
Width := ScaleX(125);
Height := ScaleY(62);
end;

with WizardForm.NoRadio do
begin
Left := ScaleX(736);
Top := ScaleY(-7);
Width := ScaleX(245);
Height := ScaleY(9);
Caption := '';
end;

with WizardForm.YesRadio do
begin
Left := ScaleX(736);
Top := ScaleY(459);
Width := ScaleX(173);
Height := ScaleY(1);
Caption := '';
end;

with WizardForm.FinishedLabel do
begin
Caption := '';
Left := ScaleX(736);
Top := ScaleY(-57);
Width := ScaleX(269);
Height := ScaleY(59);
end;

with WizardForm.FinishedHeadingLabel do
begin
Caption := '';
Left := ScaleX(736);
Top := ScaleY(-16);
Width := ScaleX(213);
Height := ScaleY(18);
end;

with WizardForm.BeveledLabel do
begin
Left := ScaleX(-48);
Top := ScaleY(402);
end;

with WizardForm.CancelButton do
begin
Left := ScaleX(617);
Top := ScaleY(463);
end;

with WizardForm.NextButton do
begin
Left := ScaleX(533);
Top := ScaleY(463);
end;

with WizardForm.BackButton do
begin
Left := ScaleX(445);
Top := ScaleY(463);
OldEvent_BackButtonClick := OnClick;
OnClick := @_BackButtonClick;
end;

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

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

procedure NewButton1Click(Sender: TObject);
begin

end;

procedure MainPanelClick(Sender: TObject);
begin

end;

procedure PageDescriptionLabelClick(Sender: TObject);
begin

end;

procedure _BackButtonClick(Sender: TObject);
begin
OldEvent_BackButtonClick(Sender);
end;

procedure WizardFormCreate(Sender: TObject);
begin

end;

const
UNDEF_INDEX = -777;

function GetCursorPos(var lpPoint: TPoint): BOOL; external '[email protected] stdcall';

var
InfoPic: TBitmapImage;
LastIndex: Integer;
TempPath: String;

procedure ShowPicHint(const PicFilePath: String);
var
pt: TPoint;
begin
if not GetCursorPos(pt) then Exit;
InfoPic.Bitmap.LoadFromFile(PicFilePath);
InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));
InfoPic.Show;
end;

procedure CompOnItemMouseMove(Sender: TObject; X, Y: Integer; Index: Integer; Area: TItemArea);
var
UndefPic: String;
begin
if Index = -1 then Exit;
if Index = LastIndex then Exit;
try
case TNewCheckListBox(Sender).ItemCaption[index] of
'1.а РЭ 4-значный.': UndefPic := '1.а.bmp'; // пишем точно так же, как прописано в компонентах
'1.б Карусель танков 2 ряд.': UndefPic := '1.б.bmp';
'1.г ХП в ушах внутри.': UndefPic := '1.г.bmp';
'1.д Идикатор засвета в ушах.': UndefPic := '1.д.bmp';
'1.ж Прицел арты на миникарте.': UndefPic := '1.ж.bmp';
'1.з Альтернативные иконки танков.': UndefPic := '1.з.bmp';
'2.а Пакет с пряниками.': UndefPic := '2.а.bmp';
'2.б Авто-экипировка по F3.': UndefPic := '2.б.bmp';
'2.г Спам-фильтр сообщений.': UndefPic := '2.г.bmp';

else
begin
LastIndex := UNDEF_INDEX;
InfoPic.Hide;
Exit;
end;
end;
if not FileExists(TempPath + UndefPic) then ExtractTemporaryFile(UndefPic);
ShowPicHint(TempPath + UndefPic);
finally
LastIndex := Index;
end;
end;

procedure CompOnMouseLeave(Sender: TObject);
begin
InfoPic.Hide;
LastIndex := -1;
end;

procedure InitInfo();
begin
WizardForm.TypesCombo.Hide;
WizardForm.ComponentsList.SetBounds(ScaleX(0), ScaleY(40), ScaleX(310), ScaleY(278));
WizardForm.ComponentsList.OnItemMouseMove := @CompOnItemMouseMove;
WizardForm.ComponentsList.OnMouseLeave := @CompOnMouseLeave;
TempPath := AddBackslash(ExpandConstant('{tmp}'));
LastIndex := UNDEF_INDEX;

with TBevel.Create(WizardForm) do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));
Shape := bsFrame;
end;

InfoPic := TBitmapImage.Create(WizardForm)
with InfoPic do
begin
Parent := WizardForm.SelectComponentsPage;
AutoSize := True;
end;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
InitInfo();
end;

[iSFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030101812000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E7448656967687403EA010B436C69656E74576964746803E402134F6E436F6E73747261696E6564526573697A65071057697A617264466F726D437265617465084F6E437265617465071057697A617264466F726D4372656174650C4578706C696369744C65667402000B4578706C69636974546F7002000D4578706C69636974576964746803F4020E4578706C696369744865696768740310020D506978656C73506572496E636802600A54657874486569676874020D00F10654426576656C05426576656C03546F7003F30005576964746803C9010648656967687402460B4578706C69636974546F7003F3000D4578706C69636974576964746803C9010E4578706C6963697448656967687402460000F302010C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B05576964746803E9020648656967687403C9010D4578706C69636974576964746803E9020E4578706C6963697448656967687403C90100F110544E65774E6F7465626F6F6B506167650B57656C636F6D65506167650D4578706C69636974576964746803F1010E4578706C6963697448656967687403390100F10C544269746D6170496D6167651157697A6172644269746D6170496D61676505576964746803E4020648656967687403CA010D4578706C69636974576964746803E4020E4578706C6963697448656967687403CA010000F10E544E6577537461746963546578740D57656C636F6D654C6162656C32044C65667403E80203546F7002E9055769647468027D0648656967687402190743617074696F6E06020D0A0C4578706C696369744C65667403E8020B4578706C69636974546F7002E90D4578706C696369745769647468027D0E4578706C6963697448656967687402190000F10E544E6577537461746963546578740D57656C636F6D654C6162656C31044C65667403E80203546F7002E9055769647468020D0648656967687402190743617074696F6E12000000000C4578706C696369744C65667403E8020B4578706C69636974546F7002E90D4578706C696369745769647468020D0E4578706C696369744865696768740219000000F110544E65774E6F7465626F6F6B5061676509496E6E6572506167650D4578706C69636974576964746803E9020E4578706C6963697448656967687403C90100F10654426576656C06426576656C3103546F700239055769647468030B020648656967687402010B4578706C69636974546F7002390D4578706C696369745769647468030B020E4578706C6963697448656967687402010000F10C544E65774E6F7465626F6F6B0D496E6E65724E6F7465626F6F6B055769647468039302064865696768740365010D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F110544E65774E6F7465626F6F6B506167650B4C6963656E7365506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10F544E6577526164696F427574746F6E174C6963656E73654E6F744163636570746564526164696F03546F700338010B4578706C69636974546F700338010000F10F544E6577526164696F427574746F6E144C6963656E73654163636570746564526164696F03546F700324010B4578706C69636974546F700324010000F10F5452696368456469745669657765720B4C6963656E73654D656D6F0557696474680369020648656967687403F4000D4578706C6963697457696474680369020E4578706C6963697448656967687403F400000000F110544E65774E6F7465626F6F6B506167650E496E666F4265666F7265506167650D4578706C69636974576964746803D3010E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650C55736572496E666F506167650D4578706C69636974576964746803D3010E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650D53656C656374446972506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10E544E6577537461746963546578740E4469736B53706163654C6162656C03546F700358010557696474680361010B4578706C69636974546F700358010D4578706C6963697457696474680361010000F10A544E6577427574746F6E0F44697242726F777365427574746F6E044C656674033E0203546F70024F0C4578706C696369744C656674033E020B4578706C69636974546F70024F0000F10554456469740744697245646974044C6566740210055769647468031C020C4578706C696369744C65667402100D4578706C696369745769647468031C02000000F110544E65774E6F7465626F6F6B506167651453656C656374436F6D706F6E656E7473506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10E544E65775374617469635465787418436F6D706F6E656E74734469736B53706163654C6162656C03546F700358010557696474680311010B4578706C69636974546F700358010D4578706C6963697457696474680311010000F110544E6577436865636B4C697374426F780E436F6D706F6E656E74734C6973740557696474680391020648656967687403E3000D4578706C6963697457696474680391020E4578706C6963697448656967687403E3000000F10C544E6577436F6D626F426F780A5479706573436F6D626F0557696474680391020A4974656D486569676874020D0D4578706C6963697457696474680391020000F10E544E6577537461746963546578741553656C656374436F6D706F6E656E74734C6162656C0648656967687402100743617074696F6E1468000000D092D18BD0B1D0B5D180D0B8D182D0B520D0BCD0BED0B4D18B20D0BAD0BED182D0BED180D18BD0B520D185D0BED182D0B8D182D0B520D183D181D182D0B0D0BDD0BED0B2D0B8D182D18C2C20D0B820D0BDD0B0D0B6D0BCD0B8D182D0B520D0B4D0B0D0BBD0B5D0B50E4578706C696369744865696768740210000000F110544E65774E6F7465626F6F6B506167650F53656C6563745461736B73506167650D4578706C69636974576964746803D3010E4578706C6963697448656967687403150100F110544E6577436865636B4C697374426F78095461736B734C69737405576964746803D1010648656967687403F0000D4578706C69636974576964746803D1010E4578706C6963697448656967687403F000000000F110544E65774E6F7465626F6F6B50616765095265616479506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F108544E65774D656D6F0952656164794D656D6F05576964746803910206486569676874034D010D4578706C6963697457696474680391020E4578706C69636974486569676874034D01000000F110544E65774E6F7465626F6F6B506167650D507265706172696E67506167650D4578706C69636974576964746803D3010E4578706C696369744865696768740315010000F110544E65774E6F7465626F6F6B506167650E496E7374616C6C696E67506167650D4578706C6963697457696474680393020E4578706C6963697448656967687403650100F10F544E657750726F67726573734261720D50726F67726573734761756765044C65667402080557696474680381020C4578706C696369744C65667402080D4578706C696369745769647468038102000000F110544E65774E6F7465626F6F6B506167650D496E666F4166746572506167650D4578706C69636974576964746803D3010E4578706C6963697448656967687403150100F10F5452696368456469745669657765720D496E666F41667465724D656D6F05576964746803D1010648656967687403FD000D4578706C69636974576964746803D1010E4578706C6963697448656967687403FD0000000000F1065450616E656C094D61696E50616E656C05576964746803E902064865696768740242074F6E436C69636B070E4D61696E50616E656C436C69636B0D4578706C69636974576964746803E9020E4578706C69636974486569676874024200F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D616765044C656674020003546F70020305576964746803DF0206486569676874023F0C4578706C696369744C65667402000B4578706C69636974546F7002030D4578706C69636974576964746803DF020E4578706C69636974486569676874023F0000F10E544E65775374617469635465787414506167654465736372697074696F6E4C6162656C044C65667403E0FE03546F7002FB055769647468031D01064865696768740205074F6E436C69636B0719506167654465736372697074696F6E4C6162656C436C69636B0C4578706C696369744C65667403E0FE0B4578706C69636974546F7002FB0D4578706C696369745769647468031D010E4578706C6963697448656967687402050000F10E544E6577537461746963546578740D506167654E616D654C6162656C044C656674029803546F7002F205576964746802650C4578706C696369744C65667402980B4578706C69636974546F7002F20D4578706C696369745769647468026500000000F110544E65774E6F7465626F6F6B506167650C46696E6973686564506167650D4578706C69636974576964746803E9020E4578706C6963697448656967687403C90100F10C544269746D6170496D6167651257697A6172644269746D6170496D6167653203546F7002E805576964746803E4020648656967687403E4010B4578706C69636974546F7002E80D4578706C69636974576964746803E4020E4578706C6963697448656967687403E4010000F110544E6577436865636B4C697374426F780752756E4C697374044C656674028003546F7003CB01055769647468027D06486569676874023E0C4578706C696369744C65667402800B4578706C69636974546F7003CB010D4578706C696369745769647468027D0E4578706C69636974486569676874023E0000F10F544E6577526164696F427574746F6E074E6F526164696F044C65667403E00203546F7002F905576964746803F5000648656967687402090743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7002F90D4578706C69636974576964746803F5000E4578706C6963697448656967687402090000F10F544E6577526164696F427574746F6E08596573526164696F044C65667403E00203546F7003CB0105576964746803AD000648656967687402010743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7003CB010D4578706C69636974576964746803AD000E4578706C6963697448656967687402010000F10E544E6577537461746963546578740D46696E69736865644C6162656C044C65667403E00203546F7002C7055769647468030D0106486569676874023B0743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7002C70D4578706C696369745769647468030D010E4578706C69636974486569676874023B0000F10E544E6577537461746963546578741446696E697368656448656164696E674C6162656C044C65667403E00203546F7002F005576964746803D5000648656967687402120743617074696F6E12000000000C4578706C696369744C65667403E0020B4578706C69636974546F7002F00D4578706C69636974576964746803D5000E4578706C69636974486569676874021200000000F302020E544E6577537461746963546578740C426576656C65644C6162656C044C65667402D003546F700392010C4578706C696369744C65667402D00B4578706C69636974546F700392010000F302030A544E6577427574746F6E0C43616E63656C427574746F6E044C65667403690203546F7003CF010C4578706C696369744C6566740369020B4578706C69636974546F7003CF010000F302040A544E6577427574746F6E0A4E657874427574746F6E044C65667403150203546F7003CF010C4578706C696369744C6566740315020B4578706C69636974546F7003CF010000F302050A544E6577427574746F6E0A4261636B427574746F6E044C65667403BD0103546F7003CF01074F6E436C69636B07105F4261636B427574746F6E436C69636B0C4578706C696369744C65667403BD010B4578706C69636974546F7003CF01000000
Вот посмотрите плиз! :)
а
#define .......
есть?

Edited July 6, 2015 by Dark_Knight_MiX

Kotyarko_O · July 6, 2015

@Fury, достаточно было только секции [setup].

Из этого:

InternalCompressLevel=ultra64
Compression=lzma2/ultra64
SolidCompression=true

Оставьте это:

Compression=lzma2/max

есть?

А без них он бы и не скомпилировал. Так что есть.

Edited July 6, 2015 by Kotyarko_O

Fury · July 6, 2015

@Fury, достаточно было только секции [setup].

Из этого:
InternalCompressLevel=ultra64
Compression=lzma2/ultra64
SolidCompression=true
Оставьте это:
Compression=lzma2/max
А без них он бы и не скомпилировал. Так что есть.

Получилось!!!!!!

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

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

Ekspoint · July 6, 2015

Получилось!!!!!!

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

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

нарисуй в форме панель, скрой ее и сделай настройку координат через нее

типо так

[Code]
var
  BitmapImage1: TBitmapImage;
  CompImagePanel3: TPanel;

procedure RedesignWizardForm;

CompImagePanel3 := TPanel.Create(WizardForm);
  with CompImagePanel3 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(24);
    Top := ScaleY(112);
    Width := ScaleX(185);
    Height := ScaleY(89);
    Visible := False;
    Caption := '';
  end;
begin
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm.SelectDirPage;
    SetBounds(CompImagePanel3.Left, CompImagePanel3.Top, CompImagePanel3.Width, CompImagePanel3.Height);
  end;

  CompImagePanel3.TabOrder := 5;

end;


procedure InitializeWizard();
begin
  RedesignWizardForm;
end;

Kotyarko_O · July 6, 2015

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

Здесь:

InfoPic := TBitmapImage.Create(WizardForm)
with InfoPic do
begin
Parent := WizardForm.SelectComponentsPage;
AutoSize := True;
end;
end;

Сделать так:

InfoPic := TBitmapImage.Create(WizardForm)
with InfoPic do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(WizardForm.ComponentsList.Width + 10), ScaleY(0), ScaleX(WizardForm.Width - InfoPic.Left), ScaleY(WizardForm.ComponentsList.Height));
end;
end;

Но изображение при этом будет принудительно растягиваться до заданных размеров.

Пример я привёл "универсальный", лучше указать фиксированные размеры вручную, вместо:

ScaleX(WizardForm.Width - InfoPic.Left), ScaleY(WizardForm.ComponentsList.Height)

например, это:

ScaleX(300), ScaleY(200)

Edited July 6, 2015 by Kotyarko_O

Pokaritel_VBR · July 6, 2015

Получилось!!!!!!

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

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

Fury · July 6, 2015

нарисуй в форме панель, скрой ее и сделай настройку координат через нее

типо так
[Code]
var
  BitmapImage1: TBitmapImage;
  CompImagePanel3: TPanel;

procedure RedesignWizardForm;

CompImagePanel3 := TPanel.Create(WizardForm);
  with CompImagePanel3 do
  begin
    Parent := WizardForm.SelectDirPage;
    Left := ScaleX(24);
    Top := ScaleY(112);
    Width := ScaleX(185);
    Height := ScaleY(89);
    Visible := False;
    Caption := '';
  end;
begin
  BitmapImage1 := TBitmapImage.Create(WizardForm);
  with BitmapImage1 do
  begin
    Parent := WizardForm.SelectDirPage;
    SetBounds(CompImagePanel3.Left, CompImagePanel3.Top, CompImagePanel3.Width, CompImagePanel3.Height);
  end;

  CompImagePanel3.TabOrder := 5;

end;


procedure InitializeWizard();
begin
  RedesignWizardForm;
end;
У меня в скрипте нет таких строчек чтобы изменить, надо дописать то что вы предлагаете?! Извините за невежество :( только начинаю понимать !

Здесь:
InfoPic := TBitmapImage.Create(WizardForm)
with InfoPic do
begin
Parent := WizardForm.SelectComponentsPage;
AutoSize := True;
end;
end;
Сделать так:
InfoPic := TBitmapImage.Create(WizardForm)
with InfoPic do
begin
Parent := WizardForm.SelectComponentsPage;
SetBounds(ScaleX(WizardForm.ComponentsList.Width + 10), ScaleY(0), ScaleX(WizardForm.Width - InfoPic.Left), ScaleY(WizardForm.ComponentsList.Height));
end;
end;
Но изображение при этом будет принудительно растягиваться до заданных размеров.

Пример я привёл "универсальный", лучше указать фиксированные размеры вручную, вместо:
ScaleX(WizardForm.Width - InfoPic.Left), ScaleY(WizardForm.ComponentsList.Height)
например, это:
ScaleX(300), ScaleY(200)

без изменений

Kotyarko_O · July 6, 2015

без изменений

Из своего кода уберите ещё:

InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));

Fury · July 6, 2015

Из своего кода уберите ещё:
InfoPic.SetBounds(ScaleX(360), ScaleY(40), ScaleX(290), ScaleY(278));

сейчас скрипт выгледит так

[setup]

AppId={{#GameID}

AppName={#MyAppName}

AppVersion={#MyAppVer}

;AppVerName={#MyAppName} {#MyAppVersion}

AppPublisher={#MyAppPublisher}

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

AppPublisherURL={#MyAppURL}

AppSupportURL={#MyAppURL}

AppUpdatesURL={#MyAppURL}

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

;DefaultDirName={pf}\{#MyAppName}

DefaultDirName=C:\Games\World_of_Tanks

DefaultGroupName={#MyAppName}

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

SetupIconFile=Files\wot_ico.ico

WizardSmallImageFile=Files\img2.bmp

WizardImageFile=Files\img1.bmp

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

DisableProgramGroupPage=yes

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

LicenseFile=licensia.txt

InfoBeforeFile=faq.rtf

InfoAfterFile=credit.rtf

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

OutputDir=.\Output

OutputBaseFilename=WotMod_Fury_Road_v.0.9.8.1#1

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

Compression=lzma2/max