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

Kotyarko_O · January 5, 2015

Wanket · January 6, 2015

У меня при выборе папки C:\Games\World_of_Tanks выбирает папку С:\Games\World_of_Tanks\World_of_Tanks

Kotyarko_O · January 7, 2015

У меня при выборе папки C:\Games\World_of_Tanks выбирает папку С:\Games\World_of_Tanks\World_of_Tanks

В следующий раз задавайте вопрос полностью.

[Setup]
AppendDefaultDirName=no

SiN_Serba · January 8, 2015

Всем привет , нужна помощь , вот у меня такая хрень как зделать вот такую меню как у джовы вот фоткака но у него там ютуб и вк

Это лого (Мой канал на ютубе)

procedure LogoOnClick(Sender: TObject);

var ResCode: Integer;

begin

ShellExec('', 'http://vk.com/public42043293' '' , '', SW_SHOW, ewNoWait, ResCode)

end;

procedure Logo();

var

BtnPanel: TPanel;

BtnImage: TBitmapImage;

begin

ExtractTemporaryFile('logo.bmp')

BtnPanel:=TPanel.Create(WizardForm)

with BtnPanel do begin

Left:=20

Top:=325

Width:=132

Height:=27

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;

как у амвея

это сплеш

[Code]

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

procedure Splash();

begin

ExtractTemporaryFile('Splash.png');

ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);

end;

Всем привет , С новым годом 2015 , Так у меня такая проблема я хочу создать свой модпак , мне надо такая херня так как у анвея в начале запуска идёт картинка а потом запускается модпак , 2 з делать что б выбирались моды по одному , и что б удалить все старые моды , хто может помогите буду очень благодарен)

Выбор модов по одному :

Name: KP; Description: Лучшие моды от клана KORM-;Types: tp; Flags: checkablealone

Name: KP\KP; Description:1.Прицелы.;Types: tp; Flags: checkablealone;

Name: KP\KP\1; Description: MeltyMap; Flags: exclusive

Name: KP\KP\2; Description: А-ля Ghost Recon; Flags: exclusive

#define Patch "0.9.5"

//бекап

[Code]

var

BackupPage: TWizardPage;

DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;

const

BackupDescText =

'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\{#Patch}", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.';

DeleteDescText =

'Установщик удалит все файлы в папках.';

MoveDescText =

'Установщик сделает резервную копию всех файлов в папках.';

NoneDescText =

'Установщик оставит всё как есть.';

function BackupCheck_1(): Boolean;

var

BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;

begin

BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');

BackupDescLabel:=TLabel.Create(WizardForm);

BackupDescLabel.Parent:=BackupPage.Surface;

BackupDescLabel.Left:=0;

BackupDescLabel.Top:=0;

BackupDescLabel.Width:=BackupPage.SurfaceWidth;

BackupDescLabel.Height:=90;

BackupDescLabel.AutoSize:=False;

BackupDescLabel.Wordwrap:=True;

BackupDescLabel.Caption:=BackupDescText;

DeleteRadioButton:=TNewRadioButton.Create(WizardForm);

DeleteRadioButton.Parent:=BackupPage.Surface;

DeleteRadioButton.Checked:=False;

DeleteRadioButton.Top:=95;

DeleteRadioButton.Width:=BackupPage.SurfaceWidth;

DeleteRadioButton.Font.Style:=[fsBold];

DeleteRadioButton.Font.Size:=9;

DeleteRadioButton.Caption:='Удалить файлы'

DeleteDescLabel:=TLabel.Create(WizardForm);

DeleteDescLabel.Parent:=BackupPage.Surface;

DeleteDescLabel.Left:=18;

DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;

DeleteDescLabel.Width:=BackupPage.SurfaceWidth;

DeleteDescLabel.Height:=40;

DeleteDescLabel.AutoSize:=False;

DeleteDescLabel.Wordwrap:=True;

DeleteDescLabel.Caption:=DeleteDescText;

MoveRadioButton:=TNewRadioButton.Create(WizardForm);

MoveRadioButton.Parent:=BackupPage.Surface;

MoveRadioButton.Checked:=True;

MoveRadioButton.Top:=140;

MoveRadioButton.Width:=BackupPage.SurfaceWidth;

MoveRadioButton.Font.Style:=[fsBold];

MoveRadioButton.Font.Size:=9;

MoveRadioButton.Caption:='Сделать резервную копию файлов'

MoveDescLabel:=TLabel.Create(WizardForm);

MoveDescLabel.Parent:=BackupPage.Surface;

MoveDescLabel.Left:=18;

MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;

MoveDescLabel.Width:=BackupPage.SurfaceWidth;

MoveDescLabel.Height:=40;

MoveDescLabel.AutoSize:=False;

MoveDescLabel.Wordwrap:=True;

MoveDescLabel.Caption:=MoveDescText;

NoneRadioButton:=TNewRadioButton.Create(WizardForm);

NoneRadioButton.Parent:=BackupPage.Surface;

NoneRadioButton.Checked:=False;

NoneRadioButton.Top:=185;

NoneRadioButton.Width:=BackupPage.SurfaceWidth;

NoneRadioButton.Font.Style:=[fsBold];

NoneRadioButton.Font.Size:=9;

NoneRadioButton.Caption:='Ничего не трогать'

NoneDescLabel:=TLabel.Create(WizardForm);

NoneDescLabel.Parent:=BackupPage.Surface;

NoneDescLabel.Left:=18;

NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;

NoneDescLabel.Width:=BackupPage.SurfaceWidth;

NoneDescLabel.Height:=40;

NoneDescLabel.AutoSize:=False;

NoneDescLabel.Wordwrap:=True;

NoneDescLabel.Caption:=NoneDescText;

end;

function BackupCheck_2(): Boolean;

begin

If DeleteRadioButton.Checked then

begin

DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True);

DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);

CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));

end;

function BackupCheck_3(): Boolean;

begin

If MoveRadioButton.Checked then

begin

CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));

DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);

end;

procedure CurStepChanged(CurStep: TSetupStep);

begin

If CurStep=ssInstall then

begin

BackupCheck_2();

BackupCheck_3();

end;

procedure InitializeWizard();

begin

BackupCheck_1();

Andrew_Dark · January 8, 2015

Мужики, можно ли сделать так, чтобы текст в описании компонентов в определённом месте, а не только в конце строки можно было напечатать с абзаца? Пример:

CompDesc1=trwtqwrtqrwtqrwtqwrtqwr

Выводится как: trwtqwrtqrwt qrwtqwrt qwr

А нужно так:

trwtqwrtqrwt

qrwtqwrt

qwr

Возможно ли это?

Edited January 8, 2015 by Darksoul

Kotyarko_O · January 8, 2015

Стринг можно комбинировать с символом #13.

Andrew_Dark · January 8, 2015

Нашёл решение, спс за ответ Ekspoint'у.

Ekspoint · January 8, 2015

Это лого (Мой канал на ютубе)
procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
ShellExec('', 'http://vk.com/public42043293' '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure Logo();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;
begin
ExtractTemporaryFile('logo.bmp')

BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
    Left:=20
    Top:=325
    Width:=132
    Height:=27
    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;  как у амвея это сплеш[code=auto:0]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';procedure Splash();
begin
    ExtractTemporaryFile('Splash.png');
    ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',1000,3000,1000,0,255,False,$FFFFFF,10);
end;Выбор модов по одному :Name: KP; Description: Лучшие моды от клана KORM-;Types: tp; Flags: checkablealone
Name: KP\KP; Description:1.Прицелы.;Types: tp; Flags: checkablealone;
Name: KP\KP\1; Description: MeltyMap; Flags: exclusive
Name: KP\KP\2; Description: А-ля Ghost Recon; Flags: exclusive           #define Patch                    "0.9.5"//бекап
[code=auto:0]
var
BackupPage: TWizardPage;
DeleteRadioButton, MoveRadioButton, NoneRadioButton: TNewRadioButton;const
BackupDescText =
    'Во избежание проблем совместимости и конфликтов между модификациями рекомендуется удалить уже установленные на данный момент в игровом клиенте.' #13#13 'Выберите необходимый пункт из представленных. При этом будет очищено содержимое папки "res_mods\{#Patch}", удалена папка "res_mods\xvm" или созданы резервные копии Ваших файлов.';
DeleteDescText =
    'Установщик удалит все файлы в папках.';
MoveDescText =
    'Установщик сделает резервную копию всех файлов в папках.';
NoneDescText =
    'Установщик оставит всё как есть.';function BackupCheck_1(): Boolean;
var
BackupDescLabel, DeleteDescLabel, MoveDescLabel, NoneDescLabel: TLabel;
begin
BackupPage:=CreateCustomPage(wpWelcome, 'Создание резервных копий файлов перед установкой', 'Пожалуйста, прочтите следующую важную информацию перед тем, как продолжить.');
BackupDescLabel:=TLabel.Create(WizardForm);
BackupDescLabel.Parent:=BackupPage.Surface;
BackupDescLabel.Left:=0;
BackupDescLabel.Top:=0;
BackupDescLabel.Width:=BackupPage.SurfaceWidth;
BackupDescLabel.Height:=90;
BackupDescLabel.AutoSize:=False;
BackupDescLabel.Wordwrap:=True;
BackupDescLabel.Caption:=BackupDescText; DeleteRadioButton:=TNewRadioButton.Create(WizardForm);
DeleteRadioButton.Parent:=BackupPage.Surface;
DeleteRadioButton.Checked:=False;
DeleteRadioButton.Top:=95;
DeleteRadioButton.Width:=BackupPage.SurfaceWidth;
DeleteRadioButton.Font.Style:=[fsBold];
DeleteRadioButton.Font.Size:=9;
DeleteRadioButton.Caption:='Удалить файлы'
DeleteDescLabel:=TLabel.Create(WizardForm);
DeleteDescLabel.Parent:=BackupPage.Surface;
DeleteDescLabel.Left:=18;
DeleteDescLabel.Top:=DeleteRadioButton.Top + DeleteRadioButton.Height + 4;
DeleteDescLabel.Width:=BackupPage.SurfaceWidth;
DeleteDescLabel.Height:=40;
DeleteDescLabel.AutoSize:=False;
DeleteDescLabel.Wordwrap:=True;
DeleteDescLabel.Caption:=DeleteDescText; MoveRadioButton:=TNewRadioButton.Create(WizardForm);
MoveRadioButton.Parent:=BackupPage.Surface;
MoveRadioButton.Checked:=True;
MoveRadioButton.Top:=140;
MoveRadioButton.Width:=BackupPage.SurfaceWidth;
MoveRadioButton.Font.Style:=[fsBold];
MoveRadioButton.Font.Size:=9;
MoveRadioButton.Caption:='Сделать резервную копию файлов'
MoveDescLabel:=TLabel.Create(WizardForm);
MoveDescLabel.Parent:=BackupPage.Surface;
MoveDescLabel.Left:=18;
MoveDescLabel.Top:=MoveRadioButton.Top + MoveRadioButton.Height + 4;
MoveDescLabel.Width:=BackupPage.SurfaceWidth;
MoveDescLabel.Height:=40;
MoveDescLabel.AutoSize:=False;
MoveDescLabel.Wordwrap:=True;
MoveDescLabel.Caption:=MoveDescText; NoneRadioButton:=TNewRadioButton.Create(WizardForm);
NoneRadioButton.Parent:=BackupPage.Surface;
NoneRadioButton.Checked:=False;
NoneRadioButton.Top:=185;
NoneRadioButton.Width:=BackupPage.SurfaceWidth;
NoneRadioButton.Font.Style:=[fsBold];
NoneRadioButton.Font.Size:=9;
NoneRadioButton.Caption:='Ничего не трогать'
NoneDescLabel:=TLabel.Create(WizardForm);
NoneDescLabel.Parent:=BackupPage.Surface;
NoneDescLabel.Left:=18;
NoneDescLabel.Top:=NoneRadioButton.Top + NoneRadioButton.Height + 4;
NoneDescLabel.Width:=BackupPage.SurfaceWidth;
NoneDescLabel.Height:=40;
NoneDescLabel.AutoSize:=False;
NoneDescLabel.Wordwrap:=True;
NoneDescLabel.Caption:=NoneDescText;
end;function BackupCheck_2(): Boolean;
begin
If DeleteRadioButton.Checked then
begin
DelTree(ExpandConstant('{app}\res_mods\{#Patch}'), True, True, True);
DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
end;
end;function BackupCheck_3(): Boolean;
begin
If MoveRadioButton.Checked then
begin
CreateDir(ExpandConstant('{app}\res_mods\{#Patch}'));
DelTree(ExpandConstant('{app}\res_mods\xvm'), True, True, True);
end;
end;procedure CurStepChanged(CurStep: TSetupStep);
begin
If CurStep=ssInstall then
begin
BackupCheck_2();
BackupCheck_3();
end;
end;
procedure InitializeWizard();
begin
BackupCheck_1();
что то не понятно,что вам нужно?

SiN_Serba · January 9, 2015

я отвечал ( если Вы не поняли(

Andrew_Dark · January 9, 2015

Люди, имейте совесть, пользуйтесь

'Спойлерами блин'

И будет вам счастье;)

Ekspoint · January 9, 2015

Люди, имейте совесть, пользуйтесь

'Спойлерами блин'

И будет вам счастье;)

SiN_Serba · January 9, 2015

Люди, имейте совесть, пользуйтесь

'Спойлерами блин'

И будет вам счастье;)

хАрАшо

Ekspoint · January 10, 2015

Как сделать так что бы сначала установщик скачивал моды из сети и распаковывал их,а уж патом те которые в установщике?

вместо wpInstalling написать wpSelectComponents или не так?

Edited January 10, 2015 by ♫♫♫Dark_Knight_MiX♫♫♫

Kotyarko_O · January 10, 2015

Как сделать так что бы сначала установщик скачивал моды из сети и распаковывал их,а уж патом те которые в установщике?

idpDownloadAfter(wpSelectComponents или wpReady);

И распаковку делать по факту скачивания:

if (CurPageID > wpSelectComponents или wpReady) and idpFileDownloaded(http://...) then

Ekspoint · January 10, 2015

idpDownloadAfter(wpSelectComponents или wpReady);
И распаковку делать по факту скачивания:
if (CurPageID > wpSelectComponents или wpReady) and idpFileDownloaded(http://...) then

ясно

Andrew_Dark · January 10, 2015

Нужна помощь со скриптом IDP, нужно запилить:
1) Чтобы архивы качались не так как сейчас, в корневую папку с игрой, а в отдельную папку.
2) Можно было отменить нажатием на кнопку загрузку и установку модов, и соответственно архивы из той папки удалялись и папка рес модс очищалась, при этом в ней оставалась пустая папка с номером патча.idp.rar

Edited January 10, 2015 by Darksoul

ZareMboAS · January 10, 2015

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

Kotyarko_O · January 10, 2015

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

Скачивайте пример из шапки, там есть всё, о чём вы спросили.

-zav- · January 10, 2015

Как в секции [CustomMessages] принудительно переводить текст на новую строку я нашел в справке.
А вот как в секции [CustomMessages] строку выделить жирным шрифтом?

Ekspoint · January 10, 2015

Как в секции [CustomMessages] принудительно переводить текст на новую строку я нашел в справке.

А вот как в секции [CustomMessages] строку выделить жирным шрифтом?

в секции кода с помощью

const
Mod1 =
  'Пожалуйста, прочтите следующее Лицензионное Соглашение.' + #13#10 +#13#10 +' Вы должны принять условия этого соглашения перед тем, как продолжить.';

Sign In

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

Recommended Posts

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

Wanket 3

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

SiN_Serba 0

Share this post

Link to post

Short link

Share on other sites

Andrew_Dark 8

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

Andrew_Dark 8

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

SiN_Serba 0

Share this post

Link to post

Short link

Share on other sites

Andrew_Dark 8

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

SiN_Serba 0

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

Kotyarko_O 1,906

Share this post

Link to post

Short link

Share on other sites

Ekspoint 2,122

Share this post

Link to post

Short link

Share on other sites

Andrew_Dark 8

Share this post