[SCOOTERTECHNO]

SCOOTERTECHNO, Поставь мою сборку и проблем не будет. »

Лександер, респект за сборку! Отличная работа! Компиляция пошла нормально. Ошибка компиляции системных требований исчезла!

А как можно реализовать в скрипт вот это:

[Gnom_aka_Lexander]

SCOOTERTECHNO, Если действительно очень нужно, могу сделать и это, но оно очнь нужно? эти данные пишутся в реестр, и их можно заложить зарание.

[SCOOTERTECHNO]

SCOOTERTECHNO, Если действительно очень нужно, могу сделать и это, но оно очнь нужно? эти данные пишутся в реестр, и их можно заложить зарание. »

Лександер, Сделай пожалуйста, если не трудно, меня еще интересует что нужно написать в скрипт чтобы на инсталяторе setup.exe была родная иконка.

Я наверно уже всех вас тут замучал своими проблемами

[R.i.m.s.k.y.]

тут половина форума перепаковывает сталкера

[SCOOTERTECHNO]

А пароль потом сделаю, через пару часов, сейчас некогда. »

Лександер, хорошо, спасибо тебе! Я сделал репак сейчас буду тестировать.

[Gnom_aka_Lexander]

R.i.m.s.k.y., Человеку хочется оригинальный инсталлятор :0 мож сделаеш страницу ввода пароля и имени юзера?

[R.i.m.s.k.y.]

Лександер,
Я внимательно читаю ваши посты, если знаю - отвечаю, но этого я не знаю.

[Gnom_aka_Lexander]

R.i.m.s.k.y., А запись в реестр из кода - не знаеш, а то у меня с нерусскими языками туго... страницу сделал, там аналогично с моим примером сложной работы с *.ini-файлами, только я использую команду на создание *.ini-файла, а тут создание записи в реестр.

[R.i.m.s.k.y.]

Лександер,
Знаю, позже, пиши конкретней

[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}