[Photon9]

Хм, севодня копался с пересборкой одной игрушки, по ходу возникло два вопроса:

1. В свойствах ярлыка есть значение Рабочая папка, каким образом в скрипте прописать его?
2. Как прикрутить через скрипт установки программы, установку дополнительных компонентов, например Games for Windows Live, C++, DX и т.д. , желательно с возможностью выбора ставить или нет.

[Habetdin]

Photon9,

Рабочая папка »

Код:

[Icons]
Name: {group}\FREE Music Downloader Studio; Filename: {app}\FMD Studio.exe; WorkingDir: {app}

---

установку дополнительных компонентов »

Пример

[TERRAN]

Здравствуйте!)
Не получается у меня добавить несколько архивов FreeArc (arc+srep+precomp+7.z) в скрипт Need for Speed™ Undercover [2.4a] +ISDone, первый без проблем распаковывается, а следующие вообще не подхватывает. Можно ли, что-нибудь сделать или нет?

[ChVL]

Есть ли в Inno идентификатор установленной системы (подобно IsWin64)?
Надо разделить запуск файлов для Win7 и не для Win7:

[Run]
Filename: {app}\file_WinXP.exe; Check: "not IsWin7";
Filename: {app}\file_Win7.exe; Check: "IsWin7";

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

Есть ли в Inno идентификатор установленной системы (подобно IsWin64)? Надо разделить запуск файлов для Win7 и не для Win7: »

Код:

[_Code]
Function Win7():boolean;
var Version: TWindowsVersion;
begin
  GetWindowsVersionEx (Version);
  if (Version.Major = 6) and (Version.Minor = 1) then Result := true else Result := False;
end;

Вин7 - 6,1
Виста - 6,0
ХР - 5,1

[Habetdin]

ChVL,

[Run] Filename: {app}\file_WinXP.exe; Check: "not IsWin7"; Filename: {app}\file_Win7.exe; Check: "IsWin7"; »

Код:

[Run]
; "ниже" Win7
Filename: {app}\file_WinXP.exe; OnlyBelowVersion: 0,6.1;
; Win7 и "выше"
Filename: {app}\file_Win7.exe; MinVersion: 0,6.1;

R.i.m.s.k.y., зачем через [code]?

[Imitri7]

serg aka lain,

PHP код:

procedure InitializeWizard();

begin

  MyCheck := TCheckBox.Create(WizardForm);

  with MyCheck do

  begin

    Left := ScaleX(10);

    Top := ScaleY(330);

    Width := ScaleX(150);

    Caption := 'Компактный размер';

    OnClick := @GetWizardForm;

    Parent := WizardForm;

  end;

end; 

как здесь цвет " Caption := 'Компактный размер';" прописать?
если тупо добавить Font.Color .то не работает, а если просто Color то цвет у области этой надписи меняется

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

R.i.m.s.k.y., зачем через [code] »

Прописывал - не сработало почему то. Пришлось самому делать. И к тому же MinVersion и OnlyBelowVersion не во всех секциях можно прописать, а такая функция работает везде.

[Vamp1re]

Помогите как вместо распаковки архивов ARC поставить на MZ.Помогите!!! оОчень надо!!!

2. Как прикрутить через скрипт установки программы, установку дополнительных компонентов, например Games for Windows Live, C++, DX и т.д. , желательно с возможностью выбора ставить или нет. »

PHP код:

[Run]

Filename: "{src}\[b]НАЗВАНИЕ ПАПКИ[/b]\[b]НАЗВАНИЕ ФАЙЛА.exe[/b]"; WorkingDir: "{src}\[b]ПАПКА[/b]"; Parameters: "/silent"; Check: [b]ПАПКА[/b]; Flags: waituntilterminated; BeforeInstall: [b]НАЗВАНИЕ ФАЙЛА[/b]Progress; 

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

Помогите как вместо распаковки архивов ARC поставить на MZ.Помогите!!! оОчень надо!!!

[nik1967]

Imitri7,
Так просто изменить цвет лебела, я думаю, не получиться. Только созданием нового лебела:

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

Код:

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

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl
 
[Files]
Source: {sys}\*.dll; DestDir: {app}; Flags: external deleteafterinstall;
 
[_code]
function GetSystemMetrics(nIndex: Integer): Integer;
 external 'GetSystemMetrics@user32.dll stdcall';
 
var
  MyCheck: TCheckBox;
  MyCheckLabel: TLabel;

procedure MyCheckOnClick(Sender: TObject);
begin
  if MyCheck.Checked = False then
     MyCheck.Checked:= True else
     MyCheck.Checked:= False;
end;
 
procedure StandartForm();
begin
  with WizardForm do
  begin
    ClientWidth := ScaleX(497);
    ClientHeight := ScaleY(360);
    Center;
    Bevel.Show;
    Bevel1.Show;
    MainPanel.Show;
    with InnerNotebook do
    begin
      Left := ScaleX(40);
      Top := ScaleY(72);
      Width := ScaleX(417);
    end;
    with StatusLabel do
      Width := ScaleX(417);
    with FileNameLabel do
    begin
      ScaleY(16);
      Width := ScaleX(417);
    end;
    with ProgressGauge do
    begin
      Top := ScaleY(42);
      Width := ScaleX(417);
    end;
    with CancelButton do
    begin
      Left := ScaleX(412);
      Top := ScaleY(327);
    end;      
  end;
  with MyCheck do
    Top := ScaleY(330);
  with MyCheckLabel do begin
    Top := ScaleY(332);
    Left := ScaleX(30);
    Parent:= WizardForm;
  end;
end;
 
procedure MyNewForm();
begin
  with WizardForm do
  begin
    ClientWidth := ScaleX(395);
    ClientHeight := ScaleY(120);
    Left := GetSystemMetrics(16) - ClientWidth - ScaleX(8);
    Top := GetSystemMetrics(17) - ClientHeight - ScaleY(8);    
    Bevel.Hide;
    Bevel1.Hide;
    MainPanel.Hide;
    with InnerNotebook do
    begin
      Left := ScaleX(10);
      Top := ScaleY(10);
      Width := WizardForm.ClientWidth - ScaleX(20);
    end;
    with StatusLabel do
      Width := InnerNotebook.Width;
 
    with FileNameLabel do
    begin
      Top := ScaleY(20);
      Width := InnerNotebook.Width;
    end;
    with ProgressGauge do
    begin
      Top := ScaleY(40);
      Width := InnerNotebook.Width;
    end;
    with CancelButton do
    begin
      Left := WizardForm.ClientWidth div 2 - CancelButton.Width div 2;
      Top := WizardForm.ClientHeight - CancelButton.Height - ScaleY(10);
      BringToFront;
    end;
  end;
  with MyCheck do
    Top := WizardForm.CancelButton.Top;
  with MyCheckLabel do begin
    Top := WizardForm.CancelButton.Top -8;
    Left := ScaleX(20);
    Parent:= WizardForm.InstallingPage;
  end;
end;
 
procedure GetWizardForm(Sender: TObject);
begin
  if MyCheck.Checked then
    MyNewForm()
  else
  StandartForm();
end;
 
procedure InitializeWizard();
begin
  MyCheck := TCheckBox.Create(WizardForm);
  with MyCheck do
  begin
    Left := ScaleX(10);
    Top := ScaleY(330);
    Width := ScaleX(15);
    OnClick := @GetWizardForm;
    Parent := WizardForm;
  end;
  MyCheckLabel := TLabel.Create(WizardForm);
  with MyCheckLabel do begin
    AutoSize:=False;
    Left := ScaleX(30);
    Top := ScaleY(332);
    Width := ScaleX(150);
    Transparent:=True;
    //Font.Name:= 'Tahoma'
    //Font.Size:= 8;
    Font.Color:=clRed;
    Caption := 'Компактный размер';
    Parent := Wizardform;
    OnClick:= @MyCheckOnClick;
  end;
end;
 
procedure CurPageChanged(CurPageID: Integer);
begin
  MyCheck.Hide;
  MyCheckLabel.Hide;
  if CurPageID = wpInstalling then begin
    MyCheck.Show;
    MyCheckLabel.Show;
  end;
end;
 
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
   MyCheck.Checked := False;
end;