[Олег_Чернявский@vk]

Помогите ! ! ! Зашёл в тупик не могу добавить шрифты в инстолятор

читать дальше »

#define GameID "{5F05CE9B-7768-490E-9A71-C6R92B4EX123}" ;Ид инстолятора
#define MyAppName "DRZLoy Mod Pack 0.8.10" ;Название инстоллятора
#define MyInfoVer "1.0" ;Версия инсталлятора
#define MyAppVer "8.0.10" ;Версия игры
#define MyAppPublisher "DRZLoy" ;Имя компании или человека кто делал
#define MyAppURL "http://drzloywot.blogspot.com/" ;Ссылка для лого

;#include "Components.iss" ;Компаненты, они же моды
#include "Messages.iss" ;Сообщение, надписи на кнопках и т.д.

[Types]
Name: custom; Description: Full installation; Flags: iscustom

[Components]
Name: KMP; Description: DRZLoy Mod Pack; Types: custom; Flags: fixed
Name: KMP\X; Description: 1. XVM.;
Name: KMP\X\P; Description: а. Полная версия XVM; Flags: checkablealone ;
Name: KMP\X\L; Description: б. Без оленимера, версия XVM ; Flags: checkablealone ;
Name: KMP\Z; Description: 2. Модификация звуком.;
Name: KMP\Z\L; Description: a. Озвучка лампочки.;
Name: KMP\Z\G; Description: b. Озвучка перезарядки .;
Name: KMP\H; Description: 3. Модификация моделей танков .;
Name: KMP\H\T; Description: a. Серые трупы танков .; Flags: checkablealone ;
Name: KMP\P; Description: 4.Яркие платформы .;
Name: KMP\4; Description: 5.Часы .;
Name: KMP\I; Description: 6.Иконки в Ушах .;
Name: KMP\D; Description: 7.Отключение дерганья в динамической камере.;
Name: KMP\ZO; Description: 8.Многопозиционный снайперский режим.;
Name: KMP\N; Description: 9.Настраиваемое боевое меню.;
Name: KMP\K; Description: 10.Кто и чем по вам стреляли .;
Name: KMP\S; Description: 11.Блокировка выстрела по союзнику и трупам.;
Name: KMP\ZAS; Description: 12.Уведомление союзников о засвете.;
Name: KMP\PD; Description: 13.Боевой интефейс от Zayaz.;
Name: KMP\T; Description: 14.Расширенные подсказки к умениям и навыкам танкового экипажа.;


[Setup]
AppId={{#GameID}
AppName={#MyAppName}
AppVersion={#MyAppVer}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}

//====={ Ссылки }=====\\
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}

//====={ Папка устанвки }=====\\
;DefaultDirName={pf}\{#MyAppName}
DefaultDirName={code:MyDirName}
DefaultGroupName={#MyAppName}

//====={ Картинки }=====\\
SetupIconFile=Files\wot_ico.ico
WizardSmallImageFile=Files\img2.bmp
WizardImageFile=Files\img1.bmp

//====={ Отключение строниц }=====\\
DisableProgramGroupPage=yes

//====={ Лицензия и Фак }=====\\
LicenseFile=licensia.txt
InfoBeforeFile=faq.rtf

//====={ Папка создания и название сетапа }=====\\
OutputDir=.\Output
OutputBaseFilename=Setup

//====={ Сжатие сетапа }=====\\
InternalCompressLevel=ultra64
Compression=lzma2/ultra64
SolidCompression=true

//====={ Основные файлы сетапа }=====\\
[Files]
Source: Files\logo.bmp; Flags: dontcopy noencryption noencryption
//===БОльшая чать файлов==\\
Source: "MODS\MODI\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs;
//=== XVM===\\
Source: "MODS\XVM\PR\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\X\P;
Source: "MODS\XVM\L\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\X\L;

///===Модификации Звуков===\\\
Source: "{app}\res\audio\*"; DestDir: "{app}\res_mods\0.8.10\audio\"; Flags: external recursesubdirs skipifsourcedoesntexist; Components: KMP\Z\L;
Source: "MODS\ZVUKI\LAMPO4KA\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\Z\L;
Source: "{app}\res\audio\*"; DestDir: "{app}\res_mods\0.8.10\audio\"; Flags: external recursesubdirs skipifsourcedoesntexist; Components: KMP\Z\G;
Source: "MODS\ZVUKI\GOTOV\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\Z\G;
//===Текст====\\\
Source: "{app}\res\text\*"; DestDir: "{app}\res_mods\0.8.10\text\"; Flags: external recursesubdirs skipifsourcedoesntexist; Components: KMP\T;
Source: "MODS\TEXT\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\T;

// ====Модификации мира===\
Source: "MODS\PLAT\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\P;

//===Шкурки===\\
Source: "MODS\HKURKI\TRUP\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\H\T;
//===Всякая херь===\
Source: "MODS\4ASI\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\4;
Source: "MODS\IKON\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\I;
Source: "MODS\DIMCAM\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\D;
Source: "MODS\ZOM\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\ZO;
Source: "MODS\NASTRAMEN\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\N;
Source: "MODS\KTO\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\K;
Source: "MODS\SAFE\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\S;
Source: "MODS\ZASVET\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\ZAS;
Source: "MODS\PDEMAG\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs; Components: KMP\PD;



//====={ Выбор языка }=====\\
[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl"
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"

[code]
function MyDirName(S:String): String;
var
InsPath: String;
er: boolean;
myFile:String;
begin
Result:=ExpandConstant('C:\Games\World_of_Tanks\'); //если ключа нет то будем ставить сюда
er := RegQueryStringValue(HKLM, 'SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{1EAC1D02-C6AC-4FA6-9A44-96258C37C812RU}_is1', 'InstallLocation', InsPath);
if er and (InsPath<>'') then //если ключ существует и там что-то записано
begin
Result := InsPath;
end;
end;

procedure LogoOnClick(Sender: TObject);
var ResCode: Integer;
begin
ShellExec('', '{#MyAppURL}', '' , '', SW_SHOW, ewNoWait, ResCode)
end;

procedure RedesignWizardForm;
var
i: integer;
BtnPanel: TPanel;
BtnImage: TBitmapImage;

begin
ExtractTemporaryFile('logo.bmp')
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=0
Top:=315
Width:=179
Height:=46
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;

with WizardForm do
begin
Caption := ExpandConstant('{cm:Main}');
end;

with WizardForm.WizardBitmapImage do
begin
Width := ScaleX(502);
end;

with WizardForm.WelcomeLabel2 do
begin
Visible := False;
end;

with WizardForm.WelcomeLabel1 do
begin
Visible := False;
end;

with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(0);
Width := ScaleX(502);
Height := ScaleY(70);
end;

with WizardForm.PageDescriptionLabel do
begin
Visible := False;
end;

with WizardForm.PageNameLabel do
begin
Visible := False;
end;

with WizardForm.WizardBitmapImage2 do
begin
Width := ScaleX(502);
end;

with WizardForm.FinishedLabel do
begin
Visible := False;
end;

with WizardForm.FinishedHeadingLabel do
begin
Visible := False;
end;
end;

procedure InitializeWizard();
begin
RedesignWizardForm;
end;

Название шрифтов: ANDLSO.TTF, ASROCK7SEGMENT.TTF, CONSTAN.TTF, CONSTANB.TTF, CONSTANI.TTF, CONSTANZ.TTF, CUPRUM.TTF, NeogreyMedium.otf ,NeogreyRegular.otf, XVMSymbol_4.0.ttf
Путь к шрифтам: MODS\FONTS\