[ilya_klimovich]

мне кто нить отпишет как вырезать ненужные локализации???

[neorom]

Цитата Johny777:
на основе последнего примера »
Не хочу надокучать, но даний код скрипта не роботаэт правельно. Фото а хотелось би
Скрипт

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

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirname={pf}\My Program
Compression=none


[Files]
Source: {app}\*.*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyname; BeforeInstall: BetterInfo()

[code]
var
fLabel: TNewStaticText;
AppPath: String;

procedure BetterInfo();
var
Buff: String;
begin
Buff := ExpandConstant(CurrentFilename);
StringChange(Buff, AppPath, '');
fLabel.Caption := Buff;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
case CurStep of
ssInstall:
begin
AppPath := WizardDirValue(); // WizardForm.DirEdit.Text;
fLabel := TNewStaticText.Create(WizardForm)
with fLabel do
begin
Parent := WizardForm.FilenameLabel.Parent;
SetBounds(WizardForm.FilenameLabel.Left, ScaleY(20), WizardForm.ProgressGauge.Width, ScaleY(16));
end;
WizardForm.FilenameLabel.Hide;
end;
ssPostInstall: fLabel.Hide;
end;
end;

[nik1967]

мне кто нить отпишет как вырезать ненужные локализации??? »

А каким боком это относится к теме форума Скрипты Inno Setup. Помощь и советы?

[ilya_klimovich]

а что тяжело помочь?

[insombia]

ilya_klimovich какая игра?

[audiofeel]

ilya_klimovich,

мне кто нить отпишет как вырезать ненужные локализации??? »

А для чего тебе это нужно? если размер то лично мне на него плевать, а если поделка получается больше 8 гигов я вообще ее не сжимаю, относись с уважением к пользователю твоего "продукта", он ждет по два часа когда распакуется "MAX PAYNE". мне кажется НА ПЕРВОМ МЕСТЕ ПОЛЬЗОВАТЕЛЬ,а уж потом ваши "амбиции, да и многие офф патчи не поставишь без определенных файлов и тд, не гонись ты за этим. так дело пойдет у вас (понравится) вы начнете вырезать не интересные уровни из игр

[ilya_klimovich]

insombia
NFS Most Wanted

audiofeel
может вы и правы, но все таки?) извиняюсь за настойчивость)

[insombia]

ilya_klimovich там папки ru en и т д
p.s. прекращаем оффтоп

[Nightwishh]

Ребят, посмотрите правильно ли я накотал

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpInstalling then
  begin
    WizardForm.OuterNotebook.Hide;
    WizardForm.ProgressGauge.Show;
    SplashImage.Show;
  end else
  begin
    WizardForm.ProgressGauge.Hide;
    SplashImage.Hide;
    Wizardform.OuterNotebook.Show;
  end;
end;

Смысл это процедуры таков. При переходе на страницу установки, скрывалась "OuterNotebook", слайд шоу (SplashImage) и прогресс бар показывались, а после установки это исчезало (сплеш и прогрессбар) и дальше всё как обычно (переход на финиш паге)! Спасибо!

[saurn]

Nightwishh, про Parent прогресс-бара забыли, а то он сныкается вместе с внешним Notebook.

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpInstalling:
    begin
      WizardForm.ProgressGauge.Parent := WizardForm;
      WizardForm.OuterNotebook.Hide;
      WizardForm.Bevel.Hide;
      SplashImage.Show;
    end;
    wpFinished:
    begin
      WizardForm.ProgressGauge.Hide;
      SplashImage.Hide;
      SplashImage.Free;
      WizardForm.OuterNotebook.Show;
      WizardForm.Bevel.Show;
    end;
  end;
end;