[Gnom_aka_Lexander]

shidow, покажи весь скрипт, можно без секции кода, если он секретный

[shidow]

Скрипт

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

[Setup]
AppName={#MyAppName}
AppVerName={#MyAppVersion}
AppVersion={#MyAppVersion}
VersionInfoVersion={#vers1}
VersionInfoTextVersion={#vers1}
AppPublisher={#MyAppPublisher}
AppCopyright=shidow
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
OutputBaseFilename=setup
SolidCompression=yes
SetupIconFile=D:\RePack\Games\icon.ico
ShowTasksTreeLines=yes
OutputDir=D:\RePack\Games
DisableReadyPage=True


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

[CustomMessages]
rus.Welcome=Приветствие
rus.components1=Компоненты
rus.Catalogue=Каталог
rus.StartMenu=Меню «Пуск»
rus.Task=Задачи
rus.Installing=Установка
rus.Uninstalling=Удаление
rus.Finish=Завершение

rus.SelectDir=Выбор папки установки
rus.SelectComponents=Выбор компонентов
rus.SelectProgramGroup=Выберите папку в меню «Пуск»
rus.SelectTasks=Выберите дополнительные задачи
rus.Installing1=Установка...

rus.Welcome1=Вас приветствует Мастер установки {#MyAppName}
rus.Welcome2=Программа установит игру {#MyAppName} на Ваш компьютер.%n%nРекомендуется закрыть антивирусные пакеты, а также все прочие приложения перед тем, как продолжить.%n%nНажмите «Далее», чтобы продолжить, или «Отмена», чтобы выйти из%nпрограммы установки.

rus.UninstDescript=Пожалуйста, подождите, пока игра устновится на Ваш компьютер.

rus.FinishedHeading=Установка {#MyAppName} успешно завершена.
rus.FinishedLabel=Игра {#MyAppName} была успешно установлена на Ваш компьютер.%n%nДля ее запуска выберите соответствующий ярлык в меню «Пуск» или на%nРабочем столе.%n%nНажмите «Завершить», чтобы выйти из программы установки.

rus.Task_lbl1=Создать значки на &Рабочем столе
rus.Task_lbl2=Установить &EA Download Manager
rus.Task_lbl3=Обновить &DirectX

rus.Icons1=Начать игру
rus.Icons2=Удалить игру
rus.Icons3=Руководство пользователя

rus.fin3=Установка игры {#MyAppName} не завершена.
rus.fin4=Во время установки игры {#MyAppName} произошла ошибка, пожалуйста отключите сторонние программы и повторите%nпопытку установки.%n%nНажмите «Завершить», чтобы выйти из программы установки.

rus.Error=Ошибка

rus.ru1=В пути установки присутствуют русские буквы, что недопустимо.
rus.ru2=Пожалуйста, повторите ввод.

[Icons]
Name: "{group}\{cm:Icons1}"; Filename: "{app}\{#MyAppExeName}"; Workingdir:"{app}"; Check: NoIcons
Name: "{group}\{cm:Icons2}"; Filename: "{uninstallexe}"; Workingdir:"{app}"; Check: NoIcons
Name: "{userdesktop}\{#MyAppName}"; IconFilename: "D:\RePack\Games\icon.ico"; Filename: "{app}\{#MyAppExeName}"; Check: Task1;

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

[Files]
Source: D:\Games\1\bin\start.exe; DestDir: {app}; Flags: ignoreversion
Source: D:\Games\1\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: "Files\botva2.dll"; Flags: dontcopy
Source: "Files\InnoCallback.dll"; Flags: dontcopy
Source: "fon.jpg"; Flags: dontcopy
Source: "Logo.png"; Flags: dontcopy

//Source: {win}\help\*; DestDir: {app}\Files; Flags: external recursesubdirs
//Source: Files\*; Flags: dontcopy


[Run]
Filename: "{app}\Redistributable\eadm-installer.exe"; WorkingDir: "{app}\Redistributable"; Flags: postinstall; Check: Task2;
Filename: "{app}\Redistributable\DirectX\DXSETUP.exe"; Parameters:/silent; WorkingDir: "{app}\Redistributable\DirectX\"; Flags: postinstall; Check: Task3;

[Gnom_aka_Lexander]

shidow, Теперь смотри- ты запускаеш содержиме папки Redistributable из папки с устанавливаемой программой, но нигде не кладеш эту папку туда, у тебя получается, что нет файлов для запуска.

Код:

[Run]
Filename: "{app}\Redistributable\eadm-installer.exe"; WorkingDir: "{app}\Redistributable"; Flags: postinstall; Check: Task2;
Filename: "{app}\Redistributable\DirectX\DXSETUP.exe"; Parameters:/silent; WorkingDir: "{app}\Redistributable\DirectX\"; Flags: postinstall; Check: Task3;

{app} - это куда устанавливается программа. А где у тебя лежит папка Redistributable?
если рядом с инсталлятором, то замени {app} на {src}

[insombia]

Лександер вставляю код и при создании установки ошибки кидает что делать не подскажеш?

[Gnom_aka_Lexander]

insombia, Вставлять код с умом и описывать ошибки. Я, конечно, телепат, но не до такой степени.

[rafps3]

[attach]attachmentid[/attach]
помогите пожалуйста вот скрипт скомпилировал создал образ установил но она не доустановиласт то есть не завершена установка доп оборудования не установилась и не появились ярлыки

[Serega]

Но она доступна только на Юникод-версии компилятора. Вопрос: как-бы ее приделать к АНСИ-компилятору? »

Действительно, стандартная функция вылетает с ошибкой...
В принципе этот момент можно обойти написав свою функцию. Накидал две функции ANSI<->UTF8:

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

Код:

function MultiByteToWideChar(CodePage: UINT; dwFlags: DWORD;
  lpMultiByteStr: PAnsiChar; cbMultiByte: Integer;
  lpWideCharStr: PAnsiChar; cchWideChar: Integer): Longint; external 'MultiByteToWideChar@kernel32.dll stdcall';
function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD;
  lpWideCharStr: PAnsiChar; cchWideChar: Integer; lpMultiByteStr: PAnsiChar;
  cbMultiByte: Integer; lpDefaultChar: Integer; lpUsedDefaultChar: Integer): Longint;
    external 'WideCharToMultiByte@kernel32.dll stdcall';

function AnsiToUtf8(aStr: string): string;
// функция преобразовывает ANSI строку в UTF-8
var
  wStr: string;
begin
  try
    SetLength(wStr, MultiByteToWideChar(0, 0, aStr, -1, '', 0)*2);
    MultiByteToWideChar(0, 0, aStr, -1, wStr, Length(wStr));
    SetLength(Result, WideCharToMultiByte(65001, 0, wStr, -1, '', 0, 0, 0)-1);
    WideCharToMultiByte(65001, 0, wStr, -1, Result, Length(Result), 0, 0);
    Result := #$EF#$BB#$BF + Result;
  finally
    SetLength(wStr, 0);
  end;
end;

function Utf8ToAnsi(wStr: string): string;
// функция преобразовывает UTF-8 строку в ANSI
var
  aStr: string;
begin
  try
    while (wStr <> '') and ((wStr[1] = #$EF) or (wStr[1] = #$BB) or (wStr[1] <> #$BF)) do
      Delete(wStr, 1, 1);
    SetLength(aStr, MultiByteToWideChar(65001, 0, wStr, -1, '', 0)*2);
    MultiByteToWideChar(65001, 0, wStr, -1, aStr, Length(aStr));
    SetLength(Result, WideCharToMultiByte(0, 0, aStr, -1, '', 0, 0, 0)-1);
    WideCharToMultiByte(0, 0, aStr, -1, Result, Length(Result), 0, 0);
  finally
    SetLength(aStr, 0);
  end;
end;

[0.07]

у меня есть скрипт для распаковки freearc архивов.
что туда добавить, чтобы он распаковывал и precomp архивы?

[shidow]

Проблема пропало только на половину. Устанавливается только одно доп ПО и в независимости поставить или нет галку в инстале она устанавливается((

[insombia]

как вставить кнопки в инсталлятор красивые? я со скрипта Need for Speed™ Undercover.iss v 2.2 вставлял мне ошибки кидает