[SatHan]

А можно по подробнее я не понимаю че за название Лейбла? куда их пихать? »

Что тебе не понятно то?
Пример

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

WizardForm - Форма - Обязательный параметр
Лейблы
WelcomeLabel1 - Первый лейбл - то что начинается с "Вас приветствует мастер"
WelcomeLabel2 - Второй лейбл - то что начинается с "Программа установит"

Добавляешь WelcomeLabel1 либо WelcomeLabel2 после WizardForm через точку, получается

Код:

  WizardForm.WelcomeLabel1.Left := ScaleX(10);
  WizardForm.WelcomeLabel1.Font.Color := clLime;

  WizardForm.WelcomeLabel2.Left := ScaleX(10);
  WizardForm.WelcomeLabel2.Font.Color := clRed;

всё это помещаешь в процедуру, например InitializeWizard

Код:

procedure InitializeWizard();
begin

end;

и между
begin и end; вставляешь получившиеся строки

Код:

  WizardForm.WelcomeLabel1.Left := ScaleX(10);
  WizardForm.WelcomeLabel1.Font.Color := clLime;

  WizardForm.WelcomeLabel2.Left := ScaleX(10);
  WizardForm.WelcomeLabel2.Font.Color := clRed;

Окончательный итог

Код:

procedure InitializeWizard();
begin
  WizardForm.WelcomeLabel1.Left := ScaleX(10);
  WizardForm.WelcomeLabel1.Font.Color := clLime;

  WizardForm.WelcomeLabel2.Left := ScaleX(10);
  WizardForm.WelcomeLabel2.Font.Color := clRed;
end;

[spice]

он у меня есть у меня ultra версия, в редакторе форм все на английском я не понимаю как с ним работать.

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

В следующий раз для вставки сюда своего кода, открывай свой скрипт в блокноте (например Notepad++) и копипасть от туда сюда, а то ведь не дело видеть иероглифы подобны этим [Ia ana eiiiiiaiou oaiaeaoai?y?o ieieiaeuiui o?aaiaaieyi ea?u.']. »

попробуй перед копированием переключись в инно на русский

[SatHan]

попробуй перед копированием переключись в инно на русский »

у меня и так всё на русском. что стандартный, что расширенный (v 5.5.1), копирует одинаково плохо.
может быть "Cкопировать как UBB код"?

[Gnom_aka_Lexander]

SatHan, нет. перед копированием переключи раскладку клавиатуры на русский.

[MogilShik2007]

Всем прив, подскажите скрипт, для удаления сохранений игры, чтобы запрос появлялся перед финишным окном, а не после)))

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

MogilShik2007

Код:

procedure RD(Dir:string);
begin
  Exec('cmd.exe', ' /c rd /S /Q  ' + '"'+Dir+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

procedure RF(file:string);
begin
  Exec('cmd.exe', ' /c del /F /Q  ' + '"'+file+'"',ExpandConstant('{sys}'), SW_Hide,ewWaitUntilTerminated,res);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep=usUninstall then begin
    if MsgBox('Удалить сохранения?',mbconfirmation, mb_yesno) = IDYES then RD(папка с сохранениями);
  end;
end;

________________

он у меня есть у меня ultra версия, в редакторе форм все на английском я не понимаю как с ним работать. »

а) учи собачий
б) ставь InnoUltra от Gnom_aka_Lexander, в нем русифицированный расширенный редактор

[spice]

он у меня и стоит! все я разобрался че там да как!

[Ivan_009]

Snoopak96, Не работает прогрессбар хоть убей вот код посмотри...

[Snoopak96]

Ivan_009,
И не будет, т.к. это PostInstall, а после установки что сделал?:

Код:

ISDoneError:=false;
until true;
ISDoneStop;
end;
ImgPBVisibility(ISDoneProgressBar1, False); <-- сам же и скрыл его после основной установки.
#ifdef SecondProgressBar
ImgPBVisibility(ISDoneProgressBar2, False);
#endif
ImgApplyChanges(WizardForm.Handle);
end;
if (CurStep=ssPostInstall) and ISDoneError then begin
WelcomeLabel.Hide;
pr2.Hide;
WizardForm.Caption:= ExpandConstant('{cm:StatusRollback}');
pr1.Caption:= ExpandConstant('{cm:StatusRollback}');
Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
end;
end;

В общем выделенную строку убирай.