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

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code_]
var
Label1 : TLabel;
DesktopIcon : TNewCheckBox;
StartIcon : TNewCheckBox;

procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageID of
wpSelectDir:
begin
WizardForm.NextButton.Caption:= 'Установить'
end;
end;
end;

procedure InitializeWizard();
begin
WizardForm.DiskSpaceLabel.Hide;

{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Дополнительные значки:';
Transparent := False;
Left := ScaleX(5);
Top := ScaleY(110);
Width := ScaleX(130);
Height := ScaleY(13);
end;

{ DesktopIcon }
DesktopIcon := TNewCheckBox.Create(WizardForm);
with DesktopIcon do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(130);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := 'Создать значек на рабочем столе';
Checked := True
end;

{ StartIcon }
StartIcon := TNewCheckBox.Create(WizardForm);
with StartIcon do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(155);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := 'Создать значек в меню Пуск';
Checked := True
end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
if (PageID = 1) or (PageID = 8) or (PageID = 10) or (PageID = 14) then
Result:= True;
end;

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