[Gnom_aka_Lexander]

R.i.m.s.k.y., Сейчас

читать дальше »

Код:

var
  ISCustomPage1: TWizardPage;
  key1: TNewEdit;
  key2: TNewEdit;
  key3: TNewEdit;
  key4: TNewEdit;
  user: TNewEdit;

procedure RedesignWizardForm;
begin
  { Creates custom wizard page }
  ISCustomPage1 := CreateCustomPage(wpInstalling, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');

  { key1 }
  key1 := TNewEdit.Create(WizardForm);
  with key1 do
  begin
    Name := 'key1';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(48);
    Top := ScaleY(136);
    Width := ScaleX(65);
    Height := ScaleY(21);
    Text := 'key';
  end;

  { key2 }
  key2 := TNewEdit.Create(WizardForm);
  with key2 do
  begin
    Name := 'key2';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(136);
    Top := ScaleY(136);
    Width := ScaleX(65);
    Height := ScaleY(21);
    Text := 'key';
  end;

  { key3 }
  key3 := TNewEdit.Create(WizardForm);
  with key3 do
  begin
    Name := 'key3';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(224);
    Top := ScaleY(136);
    Width := ScaleX(65);
    Height := ScaleY(21);
    Text := 'key';
  end;

  { key4 }
  key4 := TNewEdit.Create(WizardForm);
  with key4 do
  begin
    Name := 'key4';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(312);
    Top := ScaleY(136);
    Width := ScaleX(65);
    Height := ScaleY(21);
    Text := 'key';
  end;

  { user }
  user := TNewEdit.Create(WizardForm);
  with user do
  begin
    Name := 'user';
    Parent := ISCustomPage1.Surface;
    Left := ScaleX(48);
    Top := ScaleY(56);
    Width := ScaleX(329);
    Height := ScaleY(21);
    Text := 'user';
  end;

  key1.TabOrder := 0;
  key2.TabOrder := 1;
  key3.TabOrder := 2;
  key4.TabOrder := 3;
  user.TabOrder := 4;

end;

Нужно две записи в реестр делать:

Код:

Root: HKLM; Subkey: Software\GSC Game World\STALKER-COP; ValueName: InstallCDKEY; ValueType: string; ValueData: {тут примерно так:key1.Text+-+key2.Text+-+key3.Text+-+key4.Text}
Root: HKLM; Subkey: Software\GSC Game World\STALKER-COP; ValueName: InstallUserName; ValueType: string; ValueData: {тут user.Text}