YURSHAT
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
[Registry]
Root: HKLM; SubKey: SOFTWARE\EA Games; Check: CreateRegistry; Flags: uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\EA Games\Need for Speed Undercover; ValueType: string; ValueName: DisplayName; ValueData: Need for Speed™ Undercover; Check: CreateRegistry; Flags: uninsdeletevalue uninsdeletekeyifempty
Root: HKLM; SubKey: SOFTWARE\EA Games\Need for Speed Undercover; ValueType: string; ValueName: CD Drive; ValueData: {drive:{src}} ; Check: CreateRegistry; Flags: uninsdeletevalue uninsdeletekeyifempty
[Code]
var
Registry : TCheckBox;
RegistryLabel: TLabel;
function CreateRegistry: Boolean;
begin
Result:= Registry.Checked;
end;
procedure RegistryLabelOnClick(Sender: TObject);
begin
Registry.Checked:= not Registry.Checked;
end;
procedure InitializeWizard();
begin
with WizardForm do
begin
Registry:= TCheckBox.Create(WizardForm);
with Registry do
begin
Parent:= WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(130), ScaleX(14), ScaleY(14));
TabOrder:= 0;
Checked:= False;
end;
RegistryLabel:= TLabel.Create(WizardForm);
with RegistryLabel do
begin
Caption:= 'Добавить данные в реестр';
SetBounds(ScaleX(20), ScaleY(130), ScaleX(150), ScaleY(14));
Transparent := True;
Parent:= WizardForm.SelectDirPage;
OnClick:= @RegistryLabelOnClick;
end;
end;
end; |
Всего записей: 855 | Зарегистр. 07-11-2009 | Отправлено: 01:42 22-01-2010 | Исправлено: YURSHAT, 03:45 22-01-2010 |
|
