Jump to content
Korean Random
EvilAlex

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

Recommended Posts

Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины.

Share this post


Link to post

Short link
Share on other sites

Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины.

Особенно про майнкрафт! :heh:

Share this post


Link to post

Short link
Share on other sites

SuperXcool, а обязательно все скрипты должны быть написаны для танков? Для примера хватит, переделывается за 5 секунд.

Share this post


Link to post

Short link
Share on other sites

SuperXcool, а обязательно все скрипты должны быть написаны для танков? Для примера хватит, переделывается за 5 секунд.

 

 

Блин, вот ажиотаж вокруг моего скрипта. Здесь его могут получить единицы, запомните раз и навсегда. Написан он вообще по-другому, не так как код, который кидали выше. Там вообще много лишней писанины.

 

 

Для примера и личного развития хотел-бы заполучить твой образец и попасть в эти единицы (для личного пользования). :hmm:

Share this post


Link to post

Short link
Share on other sites

Я готов. Вот резултат.

Спасибо за помощью EvilAlex и AtotIK

 

d9951abde74a.png

 

Как ты окно увеличил? 

 

6b720d647ed6c94ee06eb0cf226d67dc61bf1b21

 

Скажи пожалуйста 

Как подключить скины в inno setup?

Share this post


Link to post

Short link
Share on other sites

Ребят подскажите, а то не могу найти, когда игра запущена что бы писало типа закройте игру и продолжите установку, спасибо...

Share this post


Link to post

Short link
Share on other sites

Хотя скрипт то не весь мной написан, тоже руководствовался кое-какими наработками. :ic:

aCHIVKA, надоел клянчить. В Гугле всё есть, надеюсь там тебя не забанили. Первая ссылка.


Mr_KeyN, можно так.

function IsAppRunning(): Boolean;
begin                                                                
  Result:=(FindWindowByWindowName('WoT Client') <> 0);
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
  Result:=True;
If CurPage=1 then
begin
  if IsAppRunning() then
  begin
    MsgBox('Клиент игры World of Tanks в настоящее время запущен.' #13#13 'Необходимо закрыть его перед продолжением установки.', mbError, MB_OK);
    Result:=False;
  end
  else
    Result:=True;
end;
end;
Edited by AtotIK

Share this post


Link to post

Short link
Share on other sites

 

Хотя скрипт то не весь мной написан, тоже руководствовался кое-какими наработками. :ic:

aCHIVKA, надоел клянчить. В Гугле всё есть, надеюсь там тебя не забанили. Первая ссылка.

Mr_KeyN, можно так.

function IsAppRunning(): Boolean;
begin                                                                
  Result:=(FindWindowByWindowName('WoT Client') <> 0);
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
   Result:=True;
If CurPage=1 then
begin
  if IsAppRunning() then
  begin
    MsgBox('Клиент игры World of Tanks в настоящее время запущен.' #13#13 'Необходимо закрыть его перед продолжением установки.', mbError, MB_OK);
    Result:=False;
  end
  else
    Result:=True;
end;
end;

 

У меня есть скрипт,но скин не применяется 

Share this post


Link to post

Short link
Share on other sites

Я готов. Вот резултат.

Спасибо за помощью EvilAlex и AtotIK

 

d9951abde74a.png

А поделится скриптом?

Share this post


Link to post

Short link
Share on other sites

Оффтоп.

Некоторые люди настолько ленивы, что вместо того чтобы потратить один вечер и сделать всё самому, они днями мучают других.

Почему нельзя пользоваться поиском? Кто вам запретил открывать справку?

  • Upvote 1
  • Downvote 1

Share this post


Link to post

Short link
Share on other sites

Оффтоп.

Некоторые люди настолько ленивы, что вместо того чтобы потратить один вечер и сделать всё самому, они днями мучают других.

Почему нельзя пользоваться поиском? Кто вам запретил открывать справку?

Ты скажи нахера тог да создавать такие темы что бы посылать в справку, а....

  • Upvote 3

Share this post


Link to post

Short link
Share on other sites

И ещё такой вопросик, есть основное окно с выборам модов, надо после него ещё одно окно с ещё одними компонентами для установки, как это реализовать??? Спасибо...

Share this post


Link to post

Short link
Share on other sites

Mr_KeyN, возможно подойдёт секция [Tasks] Распространяется на [Run], [Registry], [Files] и т.д..

Пример:

[Files]
Source: "Work\Source\Russian\FEARXP\FEARL_XP.Arch00_make\*.*"; DestDir: "{app}\Russian\FEARXP\FEARL_XP.Arch00_make"; Tasks: "EP";

[Tasks]
Name: "Original"; Description: "F.E.A.R."; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive unchecked;
Name: "EP"; Description: "F.E.A.R.: Extraction Point"; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive;
Name: "v100"; Description: "v1.00 ~ 1.02"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v103"; Description: "v1.03 ~ v1.04"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v105"; Description: "v1.05 ~ v1.06"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v107"; Description: "v1.07"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v108"; Description: "v1.08"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive;

post-12922-0-21646800-1399028344_thumb.png

Edited by AtotIK

Share this post


Link to post

Short link
Share on other sites

 

Mr_KeyN, возможно подойдёт секция [Tasks] Распространяется на [Run], [Registry], [Files] и т.д..

Пример:

[Files]
Source: "Work\Source\Russian\FEARXP\FEARL_XP.Arch00_make\*.*"; DestDir: "{app}\Russian\FEARXP\FEARL_XP.Arch00_make"; Tasks: "EP";

[Tasks]
Name: "Original"; Description: "F.E.A.R."; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive unchecked;
Name: "EP"; Description: "F.E.A.R.: Extraction Point"; GroupDescription: "Какая версия игры установлена?"; Flags: exclusive;
Name: "v100"; Description: "v1.00 ~ 1.02"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v103"; Description: "v1.03 ~ v1.04"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v105"; Description: "v1.05 ~ v1.06"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v107"; Description: "v1.07"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive unchecked;
Name: "v108"; Description: "v1.08"; GroupDescription: "Версия F.E.A.R.?"; Flags: exclusive;

Спасибо !!!!!!

Share this post


Link to post

Short link
Share on other sites

6b720d647ed6c94ee06eb0cf226d67dc61bf1b21

Как ты изменил размеры этого компонента? 

//====={ Настройки на страниците )=====\\
  with WizardForm.Bevel do
  begin
    Top := ScaleY(393);
    Width := ScaleX(705);
    Height := ScaleY(82);
  end;
  with WizardForm.CancelButton do
  begin
    Left := ScaleX(512);
    Top := ScaleY(416);
  end;
  with WizardForm.NextButton do
  begin
    Left := ScaleX(423);
    Top := ScaleY(416);
  end;
  with WizardForm.BackButton do
  begin
    Left := ScaleX(340);
    Top := ScaleY(416);
  end;
  with WizardForm.OuterNotebook do
  begin
    Width := ScaleX(705);
    Height := ScaleY(393);
  end;
  with WizardForm.WizardBitmapImage do
  begin
    Left := ScaleX(-40);
    Top := ScaleY(-16);
    Width := ScaleX(652);
    Height := ScaleY(402);
  end;
  with WizardForm.WelcomeLabel2 do
  begin
    Enabled := False;
    Left := ScaleX(112);
    Top := ScaleY(135);
  end;
  with WizardForm.WelcomeLabel1 do
  begin
    Enabled := False;
    Left := ScaleX(72);
    Top := ScaleY(40);
  end;
  with WizardForm.Bevel1 do
  begin
    Top := ScaleY(57);
    Height := ScaleY(17);
  end;
  with WizardForm.InnerNotebook do
  begin
    Left := ScaleX(8);
    Top := ScaleY(64);
    Width := ScaleX(697);
    Height := ScaleY(341);
  end;
  with WizardForm.LicenseNotAcceptedRadio do
  begin
    Left := ScaleX(16);
    Top := ScaleY(304);
  end;
  with WizardForm.LicenseAcceptedRadio do
  begin
    Left := ScaleX(16);
    Top := ScaleY(284);
  end;
  with WizardForm.LicenseMemo do
  begin
    Left := ScaleX(8);
    Width := ScaleX(577);
    Height := ScaleY(244);
  end;
  with WizardForm.LicenseLabel1 do
  begin
    Left := ScaleX(16);
    Width := ScaleX(569);
    Height := ScaleY(35);
  end;
  with WizardForm.PasswordEdit do
  begin
    Left := ScaleX(72);
  end;
  with WizardForm.PasswordEditLabel do
  begin
    Left := ScaleX(72);
  end;
  with WizardForm.PasswordLabel do
  begin
    Left := ScaleX(72);
  end;
  with WizardForm.InfoBeforeMemo do
  begin
    Left := ScaleX(8);
    Top := ScaleY(40);
    Width := ScaleX(585);
    Height := ScaleY(277);
  end;
  with WizardForm.InfoBeforeClickLabel do
  begin
    Left := ScaleX(16);
    Width := ScaleX(569);
    Height := ScaleY(30);
  end;
  with WizardForm.UserInfoSerialEdit do
  begin
    Left := ScaleX(104);
    Width := ScaleX(409);
  end;
  with WizardForm.UserInfoSerialLabel do
  begin
    Left := ScaleX(104);
  end;
  with WizardForm.UserInfoOrgEdit do
  begin
    Left := ScaleX(104);
  end;
  with WizardForm.UserInfoOrgLabel do
  begin
    Left := ScaleX(104);
  end;
  with WizardForm.UserInfoNameEdit do
  begin
    Left := ScaleX(104);
  end;
  with WizardForm.UserInfoNameLabel do
  begin
    Left := ScaleX(104);
  end;
  with WizardForm.SelectDirBitmapImage do
  begin
    Left := ScaleX(56);
    Top := ScaleY(25);
    Width := ScaleX(40);
    Height := ScaleY(38);
  end;
  with WizardForm.DiskSpaceLabel do
  begin
    Left := ScaleX(56);
    Top := ScaleY(208);
    Width := ScaleX(497);
    Height := ScaleY(38);
  end;
  with WizardForm.DirBrowseButton do
  begin
    Left := ScaleX(478);
    Top := ScaleY(149);
  end;
  with WizardForm.DirEdit do
  begin
    Left := ScaleX(56);
    Top := ScaleY(149);
    Width := ScaleX(417);
  end;
  with WizardForm.SelectDirBrowseLabel do
  begin
    Left := ScaleX(56);
    Top := ScaleY(76);
    Width := ScaleX(497);
    Height := ScaleY(70);
  end;
  with WizardForm.SelectDirLabel do
  begin
    Left := ScaleX(100);
    Top := ScaleY(25);
    Width := ScaleX(453);
    Height := ScaleY(46);
  end;
//====={ Прозореца с избора на модовете }=====\\
  with WizardForm.ComponentsDiskSpaceLabel do
  begin
    Left := ScaleX(8);
    Top := ScaleY(312);
  end;
  with WizardForm.ComponentsList do
  begin
    Left := ScaleX(0);     //== разстоянието от ляво.
    Top := ScaleY(37);     //== разстоянието от горе.
    Width := ScaleX(345);  //== широчина на прозореца. 315
    Height := ScaleY(272); //== височина на прозореца.
  end;
  with WizardForm.TypesCombo do
  begin
    Left := ScaleX(8);
    Width := ScaleX(577);
    Enabled := False;
  end;
  with WizardForm.SelectComponentsLabel do
  begin
    Left := ScaleX(8);
    Top := ScaleY(8);
    Width := ScaleX(569);
  end;
  with WizardForm.SelectGroupBitmapImage do
  begin
    Left := ScaleX(120);
  end;
  with WizardForm.NoIconsCheck do
  begin
    Left := ScaleX(120);
  end;
  with WizardForm.GroupBrowseButton do
  begin
    Left := ScaleX(462);
    Top := ScaleY(66);
  end;
  with WizardForm.GroupEdit do
  begin
    Left := ScaleX(120);
  end;
  with WizardForm.SelectStartMenuFolderBrowseLabel do
  begin
    Left := ScaleX(120);
  end;
  with WizardForm.SelectStartMenuFolderLabel do
  begin
    Left := ScaleX(164);
  end;
  with WizardForm.TasksList do
  begin
    Left := ScaleX(88);
    Top := ScaleY(69);
  end;
  with WizardForm.SelectTasksLabel do
  begin
    Left := ScaleX(88);
    Top := ScaleY(32);
  end;
  with WizardForm.ReadyMemo do
  begin
    Left := ScaleX(8);
    Top := ScaleY(16);
    Width := ScaleX(577);
    Height := ScaleY(309);
  end;
  with WizardForm.ReadyLabel do
  begin
    Left := ScaleX(8);
    Width := ScaleX(569);
  end;
  with WizardForm.PreparingErrorBitmapImage do
  begin
    Left := ScaleX(40);
  end;
  with WizardForm.PreparingLabel do
  begin
    Left := ScaleX(64);
  end;
  with WizardForm.PreparingYesRadio do
  begin
    Left := ScaleX(64);
    Top := ScaleY(257);
  end;
  with WizardForm.PreparingNoRadio do
  begin
    Left := ScaleX(64);
    Top := ScaleY(279);
  end;
  with WizardForm.PreparingMemo do
  begin
    Left := ScaleX(64);
  end;
  with WizardForm.FilenameLabel do
  begin
    Left := ScaleX(104);
    Top := ScaleY(48);
  end;
  with WizardForm.StatusLabel do
  begin
    Left := ScaleX(104);
    Top := ScaleY(16);
  end;
  with WizardForm.ProgressGauge do
  begin
    Left := ScaleX(104);
    Top := ScaleY(82);
  end;
  with WizardForm.InfoAfterMemo do
  begin
    Left := ScaleX(8);
    Top := ScaleY(32);
    Width := ScaleX(577);
    Height := ScaleY(293);
  end;
  with WizardForm.InfoAfterClickLabel do
  begin
    Left := ScaleX(8);
    Width := ScaleX(577);
    Height := ScaleY(30);
  end;
  with WizardForm.MainPanel do
  begin
    Width := ScaleX(609);
  end;
  with WizardForm.WizardSmallBitmapImage do
  begin
    Left := ScaleX(0);
    Top := ScaleY(2);
    Width := ScaleX(607);
  end;
  with WizardForm.PageDescriptionLabel do
  begin
    Left := ScaleX(104);
    Top := ScaleY(10);
    Width := ScaleX(373);
  end;
  with WizardForm.PageNameLabel do
  begin
    Left := ScaleX(88);
  end;
  with WizardForm.WizardBitmapImage2 do
  begin
    Width := ScaleX(610);
    Height := ScaleY(450);
  end;
  with WizardForm.RunList do
  begin
    Top := ScaleY(172);
  end;
//==== Край на настройки на страниците =====\\

post-21711-0-55337000-1399031860_thumb.png

Edited by mpmp

Share this post


Link to post

Short link
Share on other sites

Все, что вам нужно здесь - здесь и здесь.

Я одно ты про другое, не спросил как это сделать! а поделится скриптом на скрине? или это чисто хвастовство ?*

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...