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

[Ekspoint 2,122]

Можно даже создавать ярлык из секции [~Code~].

это как?

[Pokaritel_VBR 3]

Ребзя , дико извиняюсь , дайте скрипт с фишкой  , что можно из сети скачивать !Очень срочно !!!

Edited July 1, 2015 by Pokaritel_VBR

[Ekspoint 2,122]

Ребзя , дико извиняюсь , дайте скрипт с фишкой  , что можно из сети скачивать !Очень срочно !!!

вроде 65 стр

[Kotyarko_O 1,906]

Ребзя , дико извиняюсь , дайте скрипт с фишкой  , что можно из сети скачивать !Очень срочно !!!

https://mitrichsoftware.wordpress.com/inno-setup-tools/inno-download-plugin/

[Pokaritel_VBR 3]

вроде 65 стр

Спасибо!

https://mitrichsoftware.wordpress.com/inno-setup-tools/inno-download-plugin/

Спасибо за понимание!

Очень Вас благодарен!

[Pokaritel_VBR 3]

Ребята , а дайте скрипт  , чтобы превью вот так высвечивалось :

[Ekspoint 2,122]

Ребята , а дайте скрипт  , чтобы превью вот так высвечивалось :

Screenshot_8.jpg

[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; 

[Pokaritel_VBR 3]

Благодарю!

Я решил моды для корбаликов забацать!

[Ekspoint 2,122]

Благодарю!

Я решил моды для корбаликов забацать!

могу готовый дать, ток в лс

[-zav- 188]

Благодарю!

Я решил моды для корбаликов забацать!

моды или модпак?

если модпак то там их и так больше чем модов ))

[Ekspoint 2,122]

моды или модпак?

если модпак то там их и так больше чем модов ))

смотрел твой, прикольно сделан :)

[Pokaritel_VBR 3]

Оцените , как получается ?Говорите всё , что думаете , пока это пробная версия !

моды или модпак?

если модпак то там их и так больше чем модов ))

Модпак.

[Kotyarko_O 1,906]

Оцените , как получается ?Говорите всё , что думаете , пока это пробная версия !

Ничего особенного\интересного.

[AtotIK 580]

 

 

как получается

Тихий ужас в плане дизайна.

[Ekspoint 2,122]

Оцените , как получается ?Говорите всё , что думаете , пока это пробная версия !

 

дизайн ггг, особенно верхнее лого

Edited July 2, 2015 by Dark_Knight_MiX

[Pokaritel_VBR 3]

А что в верхнем лого поставить? 

Тихий ужас в плане дизайна.

А что заменить , помогите , пожалуйста, я не мастер фотошопа

[-zav- 188]

смотрел твой, прикольно сделан :)

0_0  хде?  мои модпаки засекречены  :)

[Ekspoint 2,122]

0_0  хде?  мои модпаки засекречены  :)

http://forum.worldofwarships.ru/index.php?/topic/16451-040х-модпак-sealdarkside-от-котячьей-упряжкиstar-wars-star-trek-mlp-обновл/ 

[-zav- 188]

http://forum.worldofwarships.ru/index.php?/topic/16451-040х-модпак-sealdarkside-от-котячьей-упряжкиstar-wars-star-trek-mlp-обновл/ 

ааа, это на половину мой )))   просто посильная помощь альянсу ))

[Ekspoint 2,122]

ааа, это на половину мой )))   просто посильная помощь альянсу ))

ясно