[david141]

Привет.
Как сюда всунуть StatusMsg над прогресс баром?

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssPostInstall then
ExecAndWait(ExpandConstant('{tmp}\unpacker.exe'), '', '', SW_SHOW, True);
end;

[serg aka lain]

Как сюда всунуть StatusMsg над прогресс баром? »

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    WizardForm.StatusLabel.Caption := 'Распаковка ...';
    ExecAndWait(ExpandConstant('{tmp}\unpacker.exe'), '', '', SW_SHOW, True);
  end;
end;

[Photon9]

Такое дело возникла необходимость пересобрать игрушку (Fallout New Vegas Steam версия) вобщем разобрал, создал скрипт, пересобрал но в процессе сборки видимо где-то что-то упустил и при установке лаунчер не находит инишник с конфигом, как выяснилось проблема в реестре, при записи ветки с путём к установленой игре путь должен заканчиватся / но его нет, провожу слияние реестра слеш появляется но вот через скрипт добавить никак не получается.

[kotkovets]

при записи ветки с путём к установленой игре путь должен заканчиватся / »

Код:

Root: HKLM; Subkey: SOFTWARE\Bethesda Softworks\FalloutNV; ValueType: string; ValueName: Installed Path; ValueData: {app}\;

[david141]

serg aka lain,

Спасибо работает прекрасно.

У меня ещё вопросик. Как можно дать пользователю выбрать только один компонент из списка
то есть выбрал один компонент значит, на другие поставить галку не возможно.

[Photon9]

kotkovets, спасибо, собрал и всё работает

[nik1967]

david141,
Пример из 3 чекбоксов

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.7
DefaultDirName={pf}\My Program
OutputDir=.

[_Code]
var
Check: array [0..2] of TCheckBox;

procedure Check0(Sender: TObject);
begin
if Check[0].Checked then
begin
Check[1].Checked := False;
Check[2].Checked := False;
end;

if (Check[0].Checked = False) and (Check[1].Checked = False)
and (Check[2].Checked = False) then Check[0].Checked := True;
end;

procedure Check1(Sender: TObject);
begin
if Check[1].Checked then
begin
Check[0].Checked := False;
Check[2].Checked := False;
end;

if (Check[0].Checked = False) and (Check[1].Checked = False)
and (Check[2].Checked = False) then Check[1].Checked := True;
end;

procedure Check2(Sender: TObject);
begin
if Check[2].Checked then
begin
Check[0].Checked := False;
Check[1].Checked := False;
end;

if (Check[0].Checked = False) and (Check[1].Checked = False)
and (Check[2].Checked = False) then Check[2].Checked := True;
end;

procedure InitializeWizard();
begin
Check[0] := TCheckBox.Create(WizardForm);
with Check[0] do
begin
Parent := WizardForm.SelectDirPage;
Checked := True;
Top := ScaleY(100);
OnClick := @Check0;
Caption := 'Чекбокс №1';
end;

Check[1] := TCheckBox.Create(WizardForm);
with Check[1] do
begin
Parent := WizardForm.SelectDirPage;
Top := ScaleY(120);
OnClick := @Check1;
Caption := 'Чекбокс №2';
end;

Check[2] := TCheckBox.Create(WizardForm);
with Check[2] do
begin
Parent := WizardForm.SelectDirPage;
Top := ScaleY(140);
OnClick := @Check2;
Caption := 'Чекбокс №3';
end;
end;

[Shmel]

Плиз помогите. Скачал NFC Undecover скрипт, но после компиляции, при запуске пишет, что ошибка в выборе файла в ISArcExtract. Что делать?

[STRAYKER]

serg aka lain,

Здраствуйте
У меня просьба Как сделат ькартинку только на первой странице инсталятора но на весь екран ???

[serg aka lain]

Как сделат ькартинку только на первой странице инсталятора но на весь екран ??? »

Если имеется в виду в первом окне, то

так

Код:

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program

[code]
var
  MyPanel: TPanel;

procedure InitializeWizard();
begin
  MyPanel := TPanel.Create(WizardForm);
  with MyPanel do
  begin
    Align := alClient;
    Parent := WizardForm;
  end;

  with WizardForm.WizardBitmapImage do
  begin
    Align := alClient;
    Parent := MyPanel;
  end;

  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel1.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel1.WordWrap; 
    Left := WizardForm.WelcomeLabel1.Left; 
    Top := WizardForm.WelcomeLabel1.Top; 
    Width := WizardForm.WelcomeLabel1.Width; 
    Height := WizardForm.WelcomeLabel1.Height; 
    Caption := WizardForm.WelcomeLabel1.Caption; 
    Font.Size := WizardForm.WelcomeLabel1.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel1.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end; 
 
  with TLabel.Create(WizardForm) do 
  begin 
    AutoSize := WizardForm.WelcomeLabel2.AutoSize; 
    WordWrap := WizardForm.WelcomeLabel2.WordWrap; 
    Left := WizardForm.WelcomeLabel2.Left; 
    Top := WizardForm.WelcomeLabel2.Top; 
    Width := WizardForm.WelcomeLabel2.Width; 
    Height := WizardForm.WelcomeLabel2.Height; 
    Caption := WizardForm.WelcomeLabel2.Caption; 
    Font.Size := WizardForm.WelcomeLabel2.Font.Size; 
    Font.Style := WizardForm.WelcomeLabel2.Font.Style; 
    Font.Color := clWhite; 
    TransParent := True; 
    Parent := MyPanel;
  end;

  WizardForm.NextButton.BringToFront;
  WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  MyPanel.Hide;
  if CurPageID = wpWelcome then
    MyPanel.Show;
end;