[Gnom_aka_Lexander]

Помогите пожал уста вставить 2 слова НАд двумя строчками которые получаются в этом скрипте. »

Держи.

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

Код:

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

[_code]
var
  NickPage: TWizardPage;
  key:  array[0..3]of TNewEdit;
  user: TNewEdit;

procedure InitializeWizard();
var
  i1,i2:Integer;
begin
  NickPage := CreateCustomPage(wpWelcome, 'Информация о пользователе', 'Пожалуйста, введите данные о себе.');

  { key }
  for i1:=0 to 3 do begin
    key[i1] := TNewEdit.Create(WizardForm);
    with key[i1] do begin
      Parent := NickPage.Surface;
      SetBounds(ScaleX(48+88*i1),ScaleY(136),ScaleX(65),ScaleY(21));
      MaxLength := 4; // количество знаков
    end;
  end;

  { user }
  user := TNewEdit.Create(WizardForm);
  with user do begin
    Parent := NickPage.Surface;
    SetBounds(ScaleX(48),ScaleY(56),ScaleX(329),ScaleY(21));
  end;

  for i2:=0 to 1 do
  begin
    with TLabel.Create(WizardForm) do begin
    Parent := NickPage.Surface;
    Transparent := True;
    SetBounds(ScaleX(48),ScaleY(20+80*i2),ScaleX(329),ScaleY(30));
      case i2 of
        0:Caption := 'Введите желаемый ник'+#13#10+'!!!ТОЛЬКО ЦИФРАМИ или ЛАТИНСКИМИ БУКВАМИ!!';
        1:Caption := 'Введите любой пароль'+#13#10+'!!!ТОЛЬКО ЦИФРАМИ или ЛАТИНСКИМИ БУКВАМИ!!!';
      end;
    Alignment := taCenter;
    end;
  end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
Var
  S1, S2: String;
begin
  result:=true;
  if CurPageID = wpReady then begin//запись после страницы готовности.
    S1 := ExpandConstant(key[0].Text+'-'+key[1].Text+'-'+key[2].Text+'-'+key[3].Text);

    RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallCDKEY', S1);
    RegWriteStringValue(HKLM, 'SOFTWARE\Wow6432Node\GSC Game World\STALKER-COP', 'InstallCDKEY', S1);

    S2 := user.Text;

    RegWriteStringValue(HKLM, 'Software\GSC Game World\STALKER-COP', 'InstallUserName',S2);
    RegWriteStringValue(HKLM, 'SOFTWARE\Wow6432Node\GSC Game World\STALKER-COP', 'InstallUserName',S2);
  end;
end;