[valyok666]

VASYAKRN,

извините за мой русский

[VASYAKRN]

valyok666, Спасиба

[serg aka lain]

Инсталлятор может после установки сам себя скопировать? »

FileCopy(ExpandConstant('{srcexe}'), 'C:\Test\test.exe', False);

Придумал такой способ

Код:

#define AppName "My Program";

[Setup]
AppName={#AppName}
AppVerName={#AppName}
DefaultDirName={pf}\{#AppName}
DefaultGroupName={#AppName}
AllowNoIcons=True
OutputDir=userdocs:InnoSetupTest.

[code]
procedure MyFileCopy();
var
  s1, s2: string;
  ResultCode: Integer;
begin
  s1:= ExpandConstant('{sd}\MyFileCopy.cmd');
  s2 := 'copy ' + AddQuotes(ExpandConstant('{srcexe}'))
        + ' ' + AddQuotes(AddBackSlash(ExpandConstant('{sd}')) + 'Test\test.exe') + #10#13 +
        + 'del ' + s1;
  SaveStringToFile(s1, s2, False);

  if not DirExists(ExpandConstant('{sd}\Test')) then
    CreateDir(ExpandConstant('{sd}\Test'));
  Exec(s1, '', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
    MyFileCopy();
end;

З.Ы.С кириллицей в пути не сработает.

[Sotonisto]

1. Как осуществить разбивку .arc архива на диски (игра, сжатая FreeArc'ом весит ~9.5Gb)?
Хотелось бы разместить, например, 2 архива на 2 DVD и чтобы после окончания распаковки 1 архива, выводилось сообщение "Вставьте диск 2" и т.п.
Нашел такой пример, но не особо понял что делать (у меня требует 2й диск даже не начав установку).

Код:

if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW2_Disk2.arc'               ) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\rustext.arc'),  ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ISArcExtract ( 2, 0, ExpandConstant('{src}\engtext.arc'),  ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ISArcExtract ( 3, 0, ExpandConstant('{src}\rusvoice.arc'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ISArcExtract ( 4, 0, ExpandConstant('{src}\engvoice.arc'), ExpandConstant('{app}'), false, '', '', '', notPCFonFLY ) then break;
if not ShowChangeDiskWindow('Пожалуйста, вставьте первый диск и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW_2.arc'               ) then break;

2. Для чего нужен файл records.inf (он у меня создается после установки)? Из-за него я не могу установить игру (если файлы инсталла находятся в образе).
После окончания распаковки афхива инсталл просто закрывается (нет ни финишной страницы, ни инсталляции доп. по)

[Gnom_aka_Lexander]

З.Ы.С кириллицей в пути не сработает. »

Продолжим тему Вот так, работает и с кирилицей:

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

Код:

#define AppName "My Program";

[Setup]
AppName={#AppName}
AppVerName={#AppName}
DefaultDirName={pf}\{#AppName}
DefaultGroupName={#AppName}
AllowNoIcons=True
OutputDir=userdocs:InnoSetupTest.

[*code]
#ifdef UNICODE
   #define A "W"
 #else
   #define A "A"
 #endif

function CopyFile(ExistingFile,NewFile: PAnsiChar;bFailIfExists: Boolean): Boolean;
external 'CopyFile{#A}@Kernel32.dll stdcall';

procedure CurStepChanged(CurStep: TSetupStep);
begin
   if CurStep = ssPostInstall then
   CreateDir(ExpandConstant('{sd}\тест'));\\ папку нужно создать зарание. 
   CopyFile(ExpandConstant('{srcexe}'),ExpandConstant('{sd}\тест\test.exe'),True);
end;

[Rikill]

Alim13,

Sotonisto, для чего нужен records.inf посмотри в справке к ISDone.

Код:

 if not ISArcExtract ( 0, 0, ExpandConstant('{src}\1 архив.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    if not ISArcExtract ( 0, 0, ExpandConstant('{src}\2 архив.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    if not ShowChangeDiskWindow('Пожалуйста, вставьте диск 2 и дождитесь его инициализации.', ExpandConstant('{src}'),'3 архив на 2 диске.arc') then break;
    if not ISArcExtract ( 0, 0, ExpandConstant('{src}\4 на диске.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
    if not ISArcExtract ( 0, 0, ExpandConstant('{src}\5 на диске.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;

Ну или эксперементируй .

[serg aka lain]

Продолжим тему Вот так, работает и с кирилицей »

Ценная таки мысль, только в твоём примере будет работать только в ANSI, в Unicode не сработает, так как функция CopyFile
в юникоде выглядит так:

Код:

function CopyFile(ExistingFile,NewFile: String; bFailIfExists: Boolean): Boolean;
  external 'CopyFileW@Kernel32.dll stdcall';

универсальный пример

Код:

#ifdef UNICODE
  #define PChar = "String"
  #define A = "W"
#else
  #define PChar = "PChar"
  #define A = "A"
#endif

function CopyFile(ExistingFile,NewFile: {#PChar}; bFailIfExists: Boolean): Boolean;
  external 'CopyFile{#A}@Kernel32.dll stdcall';

[Gnom_aka_Lexander]

serg aka lain, Внимательней посмотри мой пример.

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

#ifdef UNICODE #define A "W" #else #define A "A" #endif »

external 'CopyFile{#A}@Kernel32.dll stdcall'; »

Про то, что инно не перенаправляет это дело автоматом, уже научен неприятным опытом

[serg aka lain]

Внимательней посмотри мой пример »

Я имел в виду этот момент

Код:

function CopyFile(ExistingFile,NewFile: String; bFailIfExists: Boolean): Boolean;
  external 'CopyFileW@Kernel32.dll stdcall';

[Sotonisto]

Rikill, спасибо Немного изменил твой пример и все получилось ^^
Но появилась другая проблема: прогресс-бар доходит до конца еще во время распаковки 1-го архива + у меня прогресс показан %, так вот, после распаковки 3х архивов отображается 300%
Как это исправить? Вот скрипт инсталла.