[Browser Menu Bar]
Submenu, 148470, Browser File Menu="Show popup menu,,,, "Open document""
Submenu, 148480, Browser Edit Menu="Show popup menu,,,, "Menu Edit""
например сюда нужно вставить нужную строку
Submenu, 67390, Browser View Menu="Show popup menu,,,, "Menu View""
Feature MDI, Submenu, 67396, Browser Window Menu="Show popup menu,,,, "Menu Window""

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[CustomMessages]
rus.Welcome=Приветствие
rus.Welcome1=Вас приветствует Мастер установки игры%n"{#GameName}"
rus.Welcome2=Программа установит игру "{#GameVerName}" на Ваш компьютер.%n%nРекомендуется закрыть антивирусные пакеты, а также все прочие приложения перед тем, как продолжить.

[Files]
Source: Files\*; DestDir: {tmp}; Flags: dontcopy sortfilesbyextension nocompression
[Code]
type
TLabelEx = record Massive: array [0..3] of TLabel; TextLabel: TLabel; end;
var
WelcomeLabel1, WelcomeLabel2: TLabelEx;

//Labels
function LabelCreateEx(ALeft, ATop, AWidth, AHeight: Integer; FontName: String; FontSize: Integer; FontStyle: TFontStyles; FontColor, ShadowColor: TColor; AAutoSize, ATransparent, AWordWrap: Boolean; AAlignment: TAlignment; AParent: TWinControl; Text: String): TLabelEx;
var i: integer; tmp: TLabelEx;
begin
for i:= 0 to 3 do begin
tmp.Massive[i]:= TLabel.Create(WizardForm);
with tmp.Massive[i] do begin
SetBounds(ALeft, ATop, AWidth, AHeight);
case i of
0: Left:=Left-1;
1: Left:=Left+1;
2: Top:= Top-1;
3: Top:= Top+1;
end;
AutoSize:= AAutoSize;
Alignment:= AAlignment;
Transparent:= ATransparent;
WordWrap:= AWordWrap;
Font.Name:= FontName;
Font.Size:= FontSize;
Font.Style:= FontStyle;
Font.Color:= ShadowColor;
Caption:= Text;
Cursor:= crHand;
Parent:= AParent;
end;
end;

tmp.TextLabel:= TLabel.Create(WizardForm);
with tmp.TextLabel do begin
SetBounds(ALeft, ATop, AWidth, Aheight);
AutoSize:= AAutoSize;
Alignment:= AAlignment;
Transparent:= ATransparent;
WordWrap:= AWordWrap;
Font.Name:= FontName;
Font.Size:= FontSize;
Font.Style:= FontStyle;
Font.Color:= FontColor;
Caption:= Text;
Cursor:= crHand;
Parent:= AParent;
end;
Result:= tmp;
end;

procedure HideLabelEx(Line: TLabelEx);
var i: integer; begin for i:=0 to 3 do begin
Line.Massive[i].Hide; end; Line.TextLabel.Hide; end;

procedure ShowLabelEx(Line: TLabelEx);
var i: integer; begin for i:=0 to 3 do begin
Line.Massive[i].Show; end; Line.TextLabel.Show; end;

procedure SetLabelExCaption(var Line: TLabelEx; Text: String);
var i: Integer; begin for i:=0 to 3 do begin
Line.Massive[i].Caption:=Text end; Line.TextLabel.Caption:= Text; end;

procedure SetLabelExColor(var Line: TLabelEx; BackColor, TextColor: TColor);
var i: Integer; begin for i:=0 to 3 do begin
Line.Massive[i].Font.Color:= BackColor; end; Line.TextLabel.Font.Color:= TextColor; end;

procedure SetLabelExEvent(var Line: TlabelEx; ClickEvent: TNotifyEvent; MouseDown, MouseUp: TMouseEvent; MouseMove: TMouseMoveEvent);
begin
If ClickEvent <> nil then Line.TextLabel.OnClick:= ClickEvent;
If MouseDown <> nil then Line.TextLabel.OnMouseDown:= MouseDown;
If MouseUp <> nil then Line.TextLabel.OnMouseUp:= MouseUp;
If MouseMove <> nil then Line.TextLabel.OnMouseMove:= MouseMove;
end;
//Labels

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
if not FileExists(ExpandConstant('{tmp}\innocallback.dll')) then ExtractTemporaryFile('innocallback.dll');
Result:=True;
end;

procedure InitializeWizard;
begin
with WizardForm do begin
InnerNotebook.Hide;
OuterNotebook.Hide;
end;

WelcomeLabel1:= LabelCreateEx(ScaleX(0), ScaleY(40), ScaleX(WizardForm.ClientWidth), ScaleY(65), 'Arial', 12, [fsBold], clWhite, clBlack, False, True, True, taCenter, WizardForm, ExpandConstant('{cm:Welcome1}'));
WelcomeLabel2:= LabelCreateEx(ScaleX(40), ScaleY(120), ScaleX(350), ScaleY(200), 'Arial', 9, [fsBold], clWhite, clBlack, False, True, True, taLeftJustify, WizardForm, ExpandConstant('{cm:Welcome2}'));
end;

procedure CurPageChanged(CurPageID: Integer);
begin
HideLabelEx(WelcomeLabel1);
HideLabelEx(WelcomeLabel2);
case CurPageID of
wpWelcome:
begin
ShowLabelEx(WelcomeLabel1);
ShowLabelEx(WelcomeLabel2);
end;
end;
end;

procedure DeinitializeSetup;
begin
gdipShutdown;
end;

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: get_hw_caps.dll; Flags: dontcopy

[Code]
function GetHardDriveFreeSpace(hdd: integer): Integer;
external 'hwc_GetHardDriveFreeSpace@files:get_hw_caps.dll stdcall';
function GetHardDriveName(hdd: integer): PChar;
external 'hwc_GetHardDriveName@files:get_hw_caps.dll stdcall';
function GetHardDriveTotalSpace(hdd: integer): Integer;
external 'hwc_GetHardDriveTotalSpace@files:get_hw_caps.dll stdcall';
function GetHardDrivesCount(): Integer; external 'hwc_GetHardDrivesCount@files:get_hw_caps.dll stdcall';

const
TB = 1024 * 1024;
GB = 1024;

function TBorGBorMB(const FileSize: Extended): string;
// функция определения ТБ, ГБ или МБ
begin
if FileSize/TB > 1 then
Result:= Format('%.3f ТБ', [FileSize/TB])
else
if FileSize/GB > 1 then
Result:= Format('%.3f ГБ', [FileSize/GB])
else Result:= Format('%.3f MБ', [FileSize]);
end;

function InitializeSetup(): Boolean;
var
i, count: Integer;
msg: string;
begin
count:= GetHardDrivesCount();
msg:= 'Количество дисков: ' + IntToStr(count) + #13;
for i:= 0 to count - 1 do
msg:= msg + 'Диск ' + GetHardDriveName(i) + ' - Всего: ' +
TBorGBorMB(GetHardDriveTotalSpace(i)) +
' - Свободно: ' + TBorGBorMB(GetHardDriveFreeSpace(i)) + #13;
MsgBox(msg, mbInformation, MB_OK);
end;