[Dodakaedr]

Кто ни будь знает как поменять "/VERYSILENT" на "/V"? »

"/VERYSILENT" не меняется, только если переделать исходник программы.

[Serega]

как поменять "/VERYSILENT" на "/V"? »

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Languages]
Name: ru; MessagesFile: compiler:Languages\Russian.isl

[Code]
function InitializeSetup(): Boolean;
var
  i, ResultCode: Integer;
begin
  // проверяем с 1, потому что ParamStr(0) всегда будет имя исполняемого файла 
  for i := 1 to ParamCount do
    if LowerCase(ParamStr(i)) = '/v' then
      begin
        Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
        Exit;
      end;
  Result := True;
end;

[saurn]

никак не получается, выходят 3 таких. »

Секцию Languages замените на эту:

Код:

[Languages]
Name: en; MessagesFile: "compiler:Default.isl"
Name: ru; MessagesFile: "compiler:Languages\Russian.isl"

[Dinvin4ester]

saurn,
Заменил, осталось все по прежнему.

[vint56]

Dinvin4ester, ясли ты используеш InnoUltra то там по умолчанию русский Default.isl
[Languages]
Name: russian; MessagesFile: compiler:Languages\Russian.isl
Name: english; MessagesFile: compiler:Languages\English.isl

[CustomMessages]
russian.WelcomeLabel1=Вас приветствует мастер установки игры {#GameName}.
russian.WelcomeLabel2=Программа установит игру {#GameName} на Ваш компьютер. %nРекомендуется закрыть антивирусные пакеты и все прочие приложения перед тем, как продолжить. %nНажмите «Далее», что бы продолжить установку, или «Отмена», чтобы выйти из программы установки.

english.WelcomeLabel1 = Welcome to Setup Game {#GameName}.
english.WelcomeLabel2 = The program will install the game {#GameName} on your computer. %nIt is recommended to close the anti-virus packages and all other applications before continuing.гивфеу

[Dinvin4ester]

vint56,
Благодарю. Все получилось.

[Nordek]

никак не получается, выходят 3 таких. »

Не увидел. Всё нормально.

Все получилось. »

Ув. пользователи! Предупреждайте заранее: чем вы пользуетесь, чтоб не угадывать.

Уже писал:

Inno Ultra установлена не у всех. »

А устанавливать, проверять, затем вычищать мусор за Inno Ultra - очень неудобно.

[Irenis]

Добрый день! Помогите пожалуйста извлечь скрипт из установщика. Пробовала программой innounpacker, но написало, что у меня старая версия, обновите программу. Вроде удалила старую версию, но новую поставить не получается, запускаю exe, а ничего не происходит.
Залила на какой то файлообменник, вот ссылка: http://www.fayloobmennik.net/4160636 Спасибо.

[vint56]

Irenis, я распаковал InnoExtractor 4.8.1.160
http://rghost.ru/58349915

[Dodakaedr]

Serega, Как сделать чтобы ваш код дружил и с другими ключами? При установке или распаковке папки по умолчанию разные. В частности используются ключи /P и /D. При наличии ключа /P происходит распаковка, а при - /D указывается путь к конечной папке установки или распаковки. Попробовал так, не работает.

Код:

function InitializeSetup2(): Boolean;
var
  i, ResultCode: Integer;
begin
  // проверяем с 1, потому что ParamStr(0) всегда будет имя исполняемого файла
  for i := 1 to ParamCount do
    if LowerCase(ParamStr(i)) = '/v' then
      begin
        Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
        Exit;
      end;

    if LowerCase(ParamStr(i)) = '/v /p' then
      begin
        Exec(ExtractFileName(ExpandConstant('{srcexe}')), '/verysilent /p', ExtractFileDir(ExpandConstant('{srcexe}')), SW_SHOWNORMAL, ewNoWait, ResultCode);
        Exit;
      end;

  Result := True;
end;