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

[AtotIK 580]

Никому не нужная хрень.

[Kotyarko_O 1,906]

Никому не нужная хрень.

Если нормально сделать сам скин, то, в принципе, можно и использовать. Но нормальных я ещё не встречал.

[Ekspoint 2,122]

ругается при удалении так как файл найти не может,че делать?

вот норм скин

Edited November 23, 2014 by Ekspoint

[AtotIK 580]

Ekspoint, dll'ку то откуда деинсталлятору брать? Для этого нужно ещё держать где-то под рукой, что бы при инициализации скопировать в {tmp} и использовать. Где-то в примерах есть код использования при деинсталляции.

 

Kotyarko_O, скины нормальные есть, но вот некорректная работа dll'ки на Win8 меня отпугивает от использования. Фиксили хоть её или нет, не в курсе?

Edited November 23, 2014 by AtotIK

[Ekspoint 2,122]

Ekspoint, dll'ку то откуда деинсталлятору брать? Для этого нужно ещё держать где-то под рукой, что бы при инициализации скопировать в {tmp} и использовать. Где-то в примерах есть код использования при деинсталляции.

 

ааа,понял

[Kotyarko_O 1,906]

Фиксили хоть её или нет, не в курсе?

Тот, который ISSS, забросили 4 года назад (http://isskin.codejock.com/whatsnew.asp).

А не пробовал VCL? (https://code.google.com/p/vcl-styles-utils/source/list)

Edited November 23, 2014 by Kotyarko_O

[Ekspoint 2,122]

на win 8.1 норм, пашет 

как изменить текст? 

 

[AtotIK 580]

Ekspoint, скроллбары не пашут нормально на LicensePage и т.д.

 

isl'ку языковую править надо.

[Kotyarko_O 1,906]

как изменить текст? 

AppName, вроде, из [setup].

[Ekspoint 2,122]

Ekspoint, скроллбары не пашут нормально на LicensePage и т.д.

 

isl'ку языковую править надо.

у меня норм они работают 

AppName, вроде, из [setup].

я не про это 

имею ввиду чтоб было так 

вот это,только для удаления

begin
  with WizardForm do
  begin
    Caption := '{#MyAppName} {#Patch} - {#MyInfoVer}';
    AutoScroll := False;
    ClientHeight := ScaleY(560);
    ClientWidth := ScaleX(792);
  end;

Edited November 23, 2014 by Ekspoint

[Kotyarko_O 1,906]

@Ekspoint, ну так покажи свою секцию [setup].

Edited November 23, 2014 by Kotyarko_O

[Ekspoint 2,122]

@Ekspoint, ну так покажи свою секцию [setup].

[Setup]
AppName={#MyAppName} {#Patch}
SetupIconFile=файлы модпака\иконка.ico
WizardSmallImageFile=файлы модпака\маленькое лого.bmp
WizardImageFile=файлы модпака\лого.bmp
UninstallDisplayIcon=файлы модпака\иконка.ico
UninstallIconFile=файлы модпака\иконка.ico
AppVersion={#MyInfoVer}
AppVerName={#MyAppName} {#Patch}
AppPublisher={#MyAppPublisher}
DefaultDirName={#DirName}
DefaultGroupName={#MyAppName} {#Patch}
UninstallFilesDir={app}\{#MyAppName}
ComponentsListTVStyle=yes
DirExistsWarning=no
AppendDefaultDirName=no
SetupLogging=True
OutputDir=.\готовый модпак
OutputBaseFilename={#MyAppName} {#Patch}
Compression=lzma2/normal
InternalCompressLevel=ultra64

[AtotIK 580]

Ekspoint, ты открыл глаза мне и остальным, у кого некорректно работает эта dll'ка (коих 99,9999%)! Тут оказывается мы криворукие и именно из-за этого нормально не пашут скроллбары на страницах, .т.к. у тебя всё "всё норм".

[Ekspoint 2,122]

Ekspoint, ты открыл глаза мне и остальным, у кого некорректно работает эта dll'ка (коих 99,9999%)! Тут оказывается мы криворукие и именно из-за этого нормально не пашут скроллбары на страницах, .т.к. у тебя всё "всё норм".

аааа это,просто не понял 

да есть проблема 

[Ekspoint 2,122]

почему после выбора этого компонента идет озвучка и на следующие компоненты хоть на них и не прописана озвучка?

[Setup]
RawDataResource=SndA:звуки модов\тихая.WAV |SndB:звуки модов\средняя.WAV |SndC:звуки модов\громкая.WAV |SndD:звуки модов\тихая 10 сек.WAV |SndE:звуки модов\громкая 10  сек.WAV
[Code]
#define A = (Defined UNICODE) ? "W" : "A"
Type
HINST = THandle;
HMODULE = HINST;
Pointer = Longint;
HRSRC = THandle;
HGLOBAL = THandle;
Const
SND_ASYNC           = $0001;
SND_NODEFAULT       = $0002;
SND_MEMORY          = $0004;
RT_RCDATA           = 10;
Function sndPlaySound(lpszSoundName: Pointer; uFlags: UINT): BOOL; external 'sndPlaySound{#A}@Winmm.dll stdcall';
Function LoadResource(hModule: HINST; hResInfo: HRSRC): HGLOBAL; external '[email protected] stdcall';
Function FindResource(hModule: HMODULE; lpName: String; lpType: Longint): HRSRC; external 'FindResource{#A}@kernel32.dll stdcall';
Function LockResource(hResData: HGLOBAL): Pointer; external '[email protected] stdcall';
Var
pSoundMemory_A, pSoundMemory_B, pSoundMemory_C, pSoundMemory_D, pSoundMemory_E: Pointer;
IndexLast: Integer;
   
Function GetResourceSoundAddr(const ResourceName: String): Pointer;
var
hResourceSound: HRSRC;
begin
hResourceSound := FindResource(HInstance, ResourceName, RT_RCDATA);
Result := LockResource(LoadResource(HInstance, hResourceSound));
end;
Procedure ComponentsOnClickCheck(Sender: TObject);
begin
if IsComponentSelected('KMP\22\2\1') then
begin
  sndPlaySound(pSoundMemory_A, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
end;
//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//
begin
if IsComponentSelected('KMP\22\2\2') then
begin
  sndPlaySound(pSoundMemory_B, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
end;
end;
//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//
begin
if IsComponentSelected('KMP\22\2\3') then
begin
  sndPlaySound(pSoundMemory_C, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
end;
end;
//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//
begin
if IsComponentSelected('KMP\22\2\4') then
begin
  sndPlaySound(pSoundMemory_D, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
end;
end;
//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//
begin
if IsComponentSelected('KMP\22\2\5') then
begin
  sndPlaySound(pSoundMemory_E, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
end;
end;
//"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""//
end;
procedure InitializeWizard8();
begin
IndexLast := -1;
pSoundMemory_A := GetResourceSoundAddr('_IS_SNDA');
pSoundMemory_B := GetResourceSoundAddr('_IS_SNDB');
pSoundMemory_C := GetResourceSoundAddr('_IS_SNDC');
pSoundMemory_D := GetResourceSoundAddr('_IS_SNDD');
pSoundMemory_E := GetResourceSoundAddr('_IS_SNDE');

   
WizardForm.ComponentsList.OnClickCheck := @ComponentsOnClickCheck;
end;

[AtotIK 580]

Матерь божья, подключите BASS и не парьтесь. Хотя с вашим поголовным желанием вставлять никому не нужную музыку в инсталлятор могут быть из-за этого проблемы.

[Ekspoint 2,122]

А как увеличить размер кнопки?

 

[Kotyarko_O 1,906]

А как увеличить размер кнопки?

В месседжбоксе - никак.

Разве что создавать отдельную форму, внешне похожую на месседжбокс. Но в это смогут не все, да и геммора может доставить (в основном позиционирование, а из этого выплывает дополнительная проблема со всеми любимым масштабированием). А вот вопрос: зачем?

Edited November 24, 2014 by Kotyarko_O

[Ekspoint 2,122]

В месседжбоксе - никак.

Разве что создавать отдельную форму, внешне похожую на месседжбокс. Но в это смогут не все, да и геммора может доставить (в основном позиционирование, а из этого выплывает дополнительная проблема со всеми любимым масштабированием). А вот вопрос: зачем?

чтоб были такие же как и другие

[Kotyarko_O 1,906]

чтоб были такие же как и другие

И только ради этого рисовать отдельную форму?) Скажу сразу: оно того не стоит.

Ну, хотя.. если не лень - можно и извратиться)