Inno Setup - создание инсталляционных пакетов (Часть 15) - [276] :: Программы

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl

[Files]
Source: C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons};

[Icons]
Name: {commondesktop}\My Program; Filename: {app}\MyProg.exe; Components: desktopicon

[Components]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; Types: full; Flags: fixed

[Code]
var
dopl: TLabel;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = 7) then
Result:= True;
end;

procedure InitializeWizard();
begin
WizardForm.TypesCombo.Hide;
WizardForm.TasksList.Hide;

dopl := TLabel.Create(WizardForm);
with dopl do
begin
Parent := WizardForm.SelectTasksPage;
Caption := 'Дополнительные значки:';
Left := ScaleX(0);
Top := ScaleY(40);
Width := ScaleX(150);
Height := ScaleY(13);
end;
with WizardForm.ComponentsList do
begin
BorderStyle := bsNone;
Color := clMenu;
WantTabs := True;
Parent := WizardForm.SelectTasksPage;
Left := ScaleX(5);
Top := ScaleY(60);
end;
end;

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению