ZVSRus
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputDir=.
[Registry]
Root: HKCU; SubKey: SOFTWARE\Disc Soft\DAEMON Tools Pro; ValueType: dword; ValueName: AllowAnonymousReport; ValueData: $00000000; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: Software\Disc Soft\DAEMON Tools Pro; ValueType: dword; ValueName: AllowAnonymousReport; ValueData: $00000001; Check: AllowAnonymous; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: SOFTWARE\Disc Soft\DAEMON Tools Pro\Config; ValueType: dword; ValueName: CheckForUpdate; ValueData: $00000000; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKCU; SubKey: SOFTWARE\Disc Soft\DAEMON Tools Pro\Config; ValueType: dword; ValueName: CheckForUpdate; ValueData: $00000001; Check: CheckUpdate; Flags: uninsdeletevalue uninsdeletekeyifempty
// Root: HKCU; SubKey: Software\Disc Soft\DAEMON Tools Pro; ValueType: string; ValueName: InstallKey; ValueData: F263B126-A2BE-42FB-86E1-8F9B2106A09C; Flags: uninsdeletevalue uninsdeletekeyifempty
[Code__]
var
AllowAnonymousReport: TNewCheckBox;
CheckForUpdate: TNewCheckBox;
function AllowAnonymous: Boolean;
begin
Result := AllowAnonymousReport.Checked;
end;
function CheckUpdate: Boolean;
begin
Result := CheckForUpdate.Checked;
end;
procedure InitializeWizard();
begin
AllowAnonymousReport := TNewCheckBox.Create(WizardForm);
with AllowAnonymousReport do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0),ScaleY(120),ScaleX(200),ScaleY(17));
Caption := 'Отправлять анонимную статистику';
end;
CheckForUpdate := TNewCheckBox.Create(WizardForm);
with CheckForUpdate do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0),ScaleY(145),ScaleX(200),ScaleY(17));
Caption := 'Проверять обновления';
end;
end;
|
|
Всего записей: 102 | Зарегистр. 13-11-2007 | Отправлено: 11:25 26-11-2021 | Исправлено: ZVSRus, 16:59 26-11-2021 |
|
