[kotyarko@fb]

vadjliss,

Код:

SaveStringToFile(ExpandConstant('{sys}\drivers\etc\hosts'), #13#10 + '127.0.0.1 www.example.com', True);

[vadjliss]

всё разобрался
а, если мне надо больше прописать сайтов то как

Код:

SaveStringToFile(ExpandConstant('{sys}\drivers\etc\hosts'), #13#10 + '127.0.0.1 www.example.com', True);

[LordSP]

vadjliss, извиняюсь, не увидел 127 страницу.

Устарело

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  ErrorCode: Integer;
  HostFile: TStringList;
begin
  If CurStep = ssDone then
begin
  ShellExec('open', 'http://forum.oszone.net//', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
    end;
  HostFile := TStringList.Create;
  try
    with HostFile do
    if CurStep = ssPostInstall then
    begin
      LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    www.xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      Add('127.0.0.1    xxx');
      SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    end;
  finally
    HostFile.free;
  end;
end;

[habib2302]

доброе время суток. как организовать автоматическое скрытие группы задачь?

[Nordek]

как организовать автоматическое скрытие группы задачь? »

Выбираете WIzardForm Desinger.
В левой колонке переключаетесь на SelectComponentsPage.
На странице SelectComponentsPage выбираете элемент ComponentsList.
В правой колонке находите TreeViewStyle.
В TreeViewStyle меняете значение вместо False, на True.
В конечном итоге получите код:

Код:

[Code]
procedure InitializeWizard();
begin
  with WizardForm.ComponentsList do
  begin
    TreeViewStyle := True;
  end;
end;

Чтоб компоненты были скрытыми изначально, в секции [Components], к компоненту добавьте флаг collapsed т.е:

Код:

[Components]
Name: a; Description: A; Flags: collapsed

[Aneshoharilian]

[Setup]
DisableReadyPage=yes

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectProgramGroup then
WizardForm.NextButton.Caption := SetupMessage(msgButtonInstall)
else
WizardForm.NextButton.Caption := SetupMessage(msgButtonNext);
end;


Как сделать чтобы название кнопки изменилось ?
Нужно сменить название кнопки "Next" на "Install"

[Dodakaedr]

Как сделать чтобы название кнопки изменилось ? »

Напишите сами.

Код:

procedure CurPageChanged(CurPageID: Integer);
begin
WizardForm.NextButton.Caption := SetupMessage(msgButtonNext);
if CurPageID = wpSelectProgramGroup then
WizardForm.NextButton.Caption := 'Install';
end;

[Aneshoharilian]

Напишите сами. »

Пробовал ваш код,ничего не изменилось

[Dodakaedr]

Пробовал ваш код,ничего не изменилось »

Да неужели???

Код:

#define MyAppName "My Program"
#define MyAppVersion "1.5"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
DisableReadyPage=yes

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[icons]
Name: "{userdesktop}\bla-bla"; Filename: "{app}\bla-bla.exe";

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectProgramGroup then
WizardForm.NextButton.Caption := 'Install';
end;

Какие еще доказательства предоставить?

[Aneshoharilian]

Да неужели??? »

;Inno Setup 5.5.8 Unicode
#define MyAppName "My Program"
#define MyAppVersion "1.5"
#define MyAppPublisher "My Company, Inc."
#define MyAppURL "http://www.example.com/"
#define MyAppExeName "MyProg.exe"

[Setup]
AppId={{795448DE-FE12-4DD9-BD5B-A573E2345282}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
DisableProgramGroupPage=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes
DisableReadyPage=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

[Files]
Source: "C:\Program Files (x86)\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectProgramGroup then
WizardForm.NextButton.Caption := 'Install';
end;

Inno Setup 5.5.8 Unicode не берет...