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

[Kotyarko_O]

было бы так не спросил,inoo ошибку выдает

Действительно. Transparent, оказывается, - свойство лейблов.

Покажи скрин этого чекбокса, который нужно сделать прозрачным.

[StranikS_Scan]

Действительно. Transparent, оказывается, - свойство лейблов.

Покажи скрин этого чекбокса, который нужно сделать прозрачным.

 

У TCheckBox прозрачности вроде отродясь не было.

[Ekspoint]

Действительно. Transparent, оказывается, - свойство лейблов.

Покажи скрин этого чекбокса, который нужно сделать прозрачным.

просто нужно сделать так чтобы фона не было 

 

Edited November 28, 2014 by Ekspoint

[Kotyarko_O]

просто нужно сделать так чтобы фона не было 

Если ты хочешь убрать фон с того же места, которое на скрине - просто опусти по координатам сам чекбокс. На TEdit он не оч.

Edited November 28, 2014 by Kotyarko_O

[Ekspoint]

Если ты хочешь убрать фон с того же места, которое на скрине - просто опусти по координатам сам чекбокс. На TEdit он не оч.

нет,это я пример показал

так есть решение для этого? 

[Kotyarko_O]

 

 

так есть решение для этого?

Ботва в чекбоксы не умеет?

[Ekspoint]

Ботва в чекбоксы не умеет?

вроде бы нет

[-zav-]

[Code]
Var
 NewButton1: TNewButton;

Procedure NewFormClose(Sender: TObject);
begin
 NewForm.Close;
end;

Procedure CreateForm(Sender: TObject);
begin
...
 NewButton1 := TNewButton.Create(NewForm);
 NewButton1.Parent := NewForm;
 NewButton1.Left := ScaleX(190);
 NewButton1.Top := ScaleY(215);
 NewButton1.Width := ScaleX(75);
 NewButton1.Height := ScaleY(30);
 NewButton1.Caption := 'Закрыть';
 NewButton1.Font.Color := clWindowText;
 NewButton1.Font.Height := -12;
 NewButton1.Font.Name := '@Arial Unicode MS';
 NewButton1.ParentFont := False;
 NewButton1.OnClick := @NewFormClose;
end;

 

А возможно ли на кнопку прикрутить всплывающую подсказку при наведении ?

если да, то как это сделать?

[fleshr]

Как сделать распаковку архивов из одной папки в другую? И еще, можно както вставлять png изображения?

[AtotIK]

fleshr, командная строка + консольная версия распаковщика (1). Ботва в помощь, но она капризная (2).

[fleshr]

fleshr, командная строка + консольная версия распаковщика (1). Ботва в помощь, но она капризная (2).

пробывал ботву но не смог вставить изображение(возможно у меня руки кривые)

fleshr, командная строка + консольная версия распаковщика (1). Ботва в помощь, но она капризная (2).

и можно поподробнее про распаковку, просто я не спец в этом

[woole]

Доброго времени суток, хочу поинтересоваться. Можно ли как то делать GET-запрос на определенный URL при установке модпака? В идеале еще и количество выбранных модификаций добавлять в запрос :)

[fleshr]

@AtotIK, правильно ли я сделал распаковку через командную строку?

[Files]
Source: "7z.exe"; DestDir: "{app}\XXX Mod Pack\mods\"; Flags: deleteafterinstall

[Run]
Filename: "{app}\XXX Mod Pack\mods\7z.exe"; Parameters: "e *.7z -o..\..\soft -y"

[AtotIK]

fleshr, пример:

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName=C:\My Program
OutputDir=.
UninstallFilesDir={app}\Install_Modpack

[Files]
Source: "7zA.exe"; DestDir: "{app}\Install_Modpack"; Flags: deleteafterinstall;
Source: "hangar_8nov.7z"; DestDir: "{app}"; Flags: overwritereadonly ignoreversion; AfterInstall: ExtractResources;

[Code]
procedure ExtractResources();
var
  ResultCode: Integer;
begin
  WizardForm.StatusLabel.Caption:='Распаковка файла ''hangar_8nov.7z''...';
  CreateDir(ExpandConstant('{app}\res_mods'));
  Exec(ExpandConstant('{app}\Install_Modpack\7zA.exe'), 'x -y ..\hangar_8nov.7z -o..\res_mods', '', SW_Show, ewWaitUntilTerminated, ResultCode);
  WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusExtractFiles);
end;

[fleshr]

@AtotIK, а чем вариант с раном плох? 

[AtotIK]

fleshr, ничем. Просто другая реализация.

[fleshr]

@AtotIK,ну а все таки что лучше использовать? 

[AtotIK]

fleshr, да что душе угодно, то и используй.

[Andrew_Dark]

Как запретить этим нубарям пользователям запускать игровой клиент до полной установки и распаковки скачанных модов? А то есть уникумы оказывается:(

[StranikS_Scan]

Как запретить этим нубарям пользователям запускать игровой клиент до полной установки и распаковки скачанных модов? А то есть уникумы оказывается:(

 

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