ZVSRus1957
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
DefaultGroupName=My Application
OutputDir=.
UsePreviousAppDir=no
UsePreviousGroup=no
[Files]
Source: "compiler:Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion;
Source: "compiler:Examples\MyProg.chm"; DestDir: "{app}"; Flags: ignoreversion;
[Icons]
Name: "{commondesktop}\My Application"; Filename: "{app}\MyProg.exe"; Check: DesktopIconCheck;
Name: "{commondesktop}\Help"; Filename: "{app}\MyProg.chm"; Check: DesktopIconCheck;
Name: "{group}\My Application"; Filename: "{app}\MyProg.exe"; Check: StartMenuIconCheck;
Name: "{group}\Help"; Filename: "{app}\MyProg.chm"; Check: StartMenuIconCheck;
Name: "{group}\Удалить My Application"; Filename: "{uninstallexe}"; Check: StartMenuIconCheck;
[Code_]
var
Label1 : TLabel;
DesktopIcon : TNewCheckBox;
StartMenuIcon : TNewCheckBox;
function DesktopIconCheck: Boolean;
begin
Result:= DesktopIcon.Checked;
end;
function StartMenuIconCheck: Boolean;
begin
Result:= StartMenuIcon.Checked;
end;
procedure InitializeWizard();
begin
{ Label1 }
Label1 := TLabel.Create(WizardForm);
with Label1 do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Дополнительные значки:';
Transparent := True;
Left := ScaleX(5);
Top := ScaleY(120);
Width := ScaleX(130);
Height := ScaleY(13);
end;
{ DesktopIcon }
DesktopIcon := TNewCheckBox.Create(WizardForm);
with DesktopIcon do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(140);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := 'Создать значек на Рабочем столе';
Checked := True
end;
{ StartMenuIcon }
StartMenuIcon := TNewCheckBox.Create(WizardForm);
with StartMenuIcon do
begin
Parent := WizardForm.SelectDirPage;
Left := ScaleX(10);
Top := ScaleY(165);
Width := ScaleX(200);
Height := ScaleY(17);
Caption := 'Создать значек в меню Пуск';
end;
end;
|
|
Всего записей: 43 | Зарегистр. 14-05-2015 | Отправлено: 10:26 16-12-2016 | Исправлено: ZVSRus1957, 11:56 16-12-2016 |
|
