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

[Metrix647]

А как узнать из-за чего идут дергания  в бою? Как выявить этот мод? По отдельности если поставить моды, все нормально без дерганий.

[Kotyarko_O]

Парни подскажите где ошибка ,если вылазит такое окно?

Оно вылазит даже если ставлю галку Очистить папку рес модс перед выбором компонентов!

Почему ошибка? Это не ошибка, это стандартное предупреждение.

Убирается присваиванием флага: disablenouninstallwarning ВСЕМ компонентам.

А как узнать из-за чего идут дергания  в бою? Как выявить этот мод? По отдельности если поставить моды, все нормально без дерганий.

 У деллюксовского прицела, вроде, такая проблема есть.

[Metrix647]

Почему ошибка? Это не ошибка, это стандартное предупреждение.

Убирается присваиванием флага: disablenouninstallwarning ВСЕМ компонентам.

 У деллюксовского прицела, вроде, такая проблема есть.

А можно твоим конфигом xvm пользоваться? могу в модпак его запилить, не против?

[MEDNIKs]

 

 

Почему ошибка? Это не ошибка, это стандартное предупреждение. Убирается присваиванием флага: disablenouninstallwarning ВСЕМ компонентам.

Если я присвою этот флаг то предупреждение о том ,что компонент не удалится, я получать не буду,я так понимаю?А заменятся другим он будет?

И ещё такой вопрос!Ставлю галку на очистку старых модов ,при этом моды не выбираю а пака 0.9.2 очищается частично!Т.е если провести несколько раз такую операцию то папка станет пустой,но не с первого раза!

[Kotyarko_O]

А можно твоим конфигом xvm пользоваться? могу в модпак его запилить, не против?

 Не против ;)

 

 

Если я присвою этот флаг то предупреждение о том ,что компонент не удалится, я получать не буду,я так понимаю?

Да.

 

 

А заменятся другим он будет?

Если на странице бекапа ты выбрал очистку модов (или бекап), то да. Если одноимённый файл - да, во всех остальных случаях - нет.

[MEDNIKs]

Это производит очисту папки ?

function DeleteMods(): Boolean;

begin
If NewCheckBox1.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;

 

 

Если на странице бекапа ты выбрал очистку модов (или бекап), то да. Если одноимённый файл - да, во всех остальных случаях - нет.

спасибо!

[Kotyarko_O]

 

 

Это производит очисту папки ?

Да, но просто списав этот код в скрипт - ничего не будет.

[Vupu]

Всем привет xvm еще не вышла под 9.2?

[Metrix647]

Kotyarko_O! Поделись пожалуйста пунктом кода для авто установки шрифтов!

[MEDNIKs]

 

 

Да, но просто списав этот код в скрипт - ничего не будет.

Вот то,что ты мне давал

function DeleteMods(): Boolean;

begin
If NewCheckBox1.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 BackUpMods(): Boolean;
begin
If NewCheckBox2.Checked then
begin
MoveDir(ExpandConstant('{app}\res_mods\{#Patch}\'),ExpandConstant('{app}\backup\{#Patch}'));
MoveDir(ExpandConstant('{app}\res_mods\xvm\'),ExpandConstant('{app}\backup\xvm'));
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
DeleteMods();
BackUpMods();
end;
end;

procedure BackUpSelectWithDelete(Sender: TObject);
begin
NewCheckBox1.Checked := True;

end;

Здесь ещё ,что то должно быть?

[Kotyarko_O]

 

 

Здесь ещё ,что то должно быть?

Да. Возьми пример отсюда

[Metrix647]

Ребята помогите с установкой шрифтов! У кого есть готовый код поедлитесь пожалуйста что то у меня не получается, не устанавливаются шрифты(((

#define Patch "0.9.2"
#define Font "calibri.ttf"
#define FontName "Calibri"
#define Font "EnigmaU.ttf"
#define FontName "Enigmatic Unicode"
#define Font "Micra Normal.ttf"
#define FontName "Micra"
#define Font "Micrac.OTF"
#define FontName "MicraC"
#define Font "Micracb.OTF"
#define FontName "MicraC"
#define Font "Millennia.ttf"
#define FontName "Millennia"
#define Font "webdings.ttf"
#define FontName "Webdings"
#define Font "wingding.ttf"
#define FontName "Wingding"
#define Font "XVMSymbol_4.0.ttf"
#define FontName "XVMSymbol"
#define Font "XVMSymbol_7.1.ttf"
#define FontName "XVMSymbol"
#define Font "ZurichCondMono.ttf"
#define FontName "ZurichCondMono"

///Шрифты

var
IsCustomFontInstalled: boolean;
FontName: string;

function AddFontResource(FileName: PAnsiChar): Integer; external '[email protected] stdcall';
function RemoveFontResource(FileName: PAnsiChar): BOOL; external '[email protected] stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('{#Font}');
IsCustomFontInstalled:=AddFontResource(ExpandConstant('{tmp}')+'\{#Font}')>0;
if IsCustomFontInstalled then SendMessage(HWND_BROADCAST,$1D,0,0);
if FontExists('{#FontName}') then FontName:='{#FontName}' else FontName:='Arial';
Result:= True;
end;

Procedure InitializeWizard();
begin
  WizardForm.Font.Name:= FontName;
end;

procedure DeInitializeSetup();
begin
WizardForm.Free;
if IsCustomFontInstalled then
if RemoveFontResource(PAnsiChar(ExpandConstant('{tmp} ')+'\{#Font}')) then SendMessage(HWND_BROADCAST,$1D,0,0);
end;

 

в частности ругается на

Procedure InitializeWizard();
begin
  WizardForm.Font.Name:= FontName;
end;

Edited August 2, 2014 by Metrix647

[Kotyarko_O]

 

 

Ребята помогите с установкой шрифтов!

Это не установка шрифтов, это неудачная попытка изменить шрифт в инсталляторе.

[AtotIK]

Мде, вот почему я принципиально не использую сторонние шрифты в конфигах.

[Metrix647]

Это не установка шрифтов, это неудачная попытка изменить шрифт в инсталляторе.

Ахахахах, это меня убило   брал с 3 или с 4 страницы!

Если есть возможность киньте файлик в кодом! Пожалуйста!

[Kotyarko_O]

Ахахахах, это меня убило   брал с 3 или с 4 страницы!

Если есть возможность киньте файлик в кодом! Пожалуйста!

http://www.koreanrandom.com/forum/topic/9050-инсталлятор-для-модпаков/?p=189418

[ODINOKIY VOLK]

[Files]

Source: XVMSymbol.ttf; DestDir: "{fonts}"; FontInstall: "XVMSymbol"; Flags: onlyifdoesntexist uninsneveruninstall;

Source: PartnerCondensedMono.ttf; DestDir: "{fonts}"; FontInstall: "PartnerCondensed"; Flags: onlyifdoesntexist uninsneveruninstall;

прмшлось менять флаг на этот Flags: external recursesubdirs skipifsourcedoesntexist; подругому не хотел запускатся !

[Kotyarko_O]

 

 

прмшлось менять флаг на этот Flags: external recursesubdirs skipifsourcedoesntexist; подругому не хотел запускатся !

Установку шрифтов не рекомендуется через эти флаги ставить. А не захотел запускаться, потому что ты где-то накосячил.

[ODINOKIY VOLK]

Установку шрифтов не рекомендуется через эти флаги ставить. А не захотел запускаться, потому что ты где-то накосячил.

вот и я хотьлбы догодатся где , вкрутил его в файлы как он и прописан был .

И ругается он именно на флаг .

Edited August 3, 2014 by ODINOKIY VOLK

[Kotyarko_O]

вот и я хотьлбы догодатся где , вкрутил его в файлы как он и прописан был .

чивойсь?

 

И ругается он именно на флаг .

Скрин в студию.

Edited August 3, 2014 by Kotyarko_O