[Vista-w]

Sotonisto, Чуваккккк)))))) Спасибо тебе огромное))))
Очень благодарен))))))))
Только в этот скрипт можно как то вшить распаковку 7z архивов?

[Serega]

чтобы без ключа /z запустилась x.exe без каких либо ключей »

Тогда сделать надо так:

Пример

Код:

[Files]
Source: C:\Documents and Settings\Administrator\Desktop\x.exe; DestDir: {tmp}; Flags: ignoreversion

[Run]
Filename: {tmp}\x.exe; Parameters: {code:KeyStr}; WorkingDir: {tmp}; Flags: runhidden

[Code]
var
  paramZ: Boolean;

function KeyStr(const s: string): string;
begin
  case paramZ of
    True : Result := '/z';
    False: Result := '';
  end;
end;

function GetKeyParamStr(const key: string): Boolean;
{ функция вернёт True, если ключ key присутствует в командной строке }
var
  i: Integer;
  s, t: string;
begin
  try
    Result := False;
    t := Lowercase(key);
    for i := 2 to ParamCount do
      begin
        s := Lowercase(ParamStr(i));
        if Pos(t, s) > 0 then
          begin
            StringChangeEx(s, '/', '', True);
            StringChangeEx(s, '\', '', True);
            StringChangeEx(s, '-', '', True);
            Result := t = s;
          end;
        if Result then Break;
      end;
  finally
    SetLength(s, 0);
    SetLength(t, 0);
  end;
end;

function InitializeSetup(): Boolean;
begin
  Result := True;
  paramZ := GetKeyParamStr('z');
end;

а про флаги секции [Run] почитайте в Справке

[vahe-91]

Serega,
Спасибо

[Sotonisto]

Только в этот скрипт можно как то вшить распаковку 7z архивов? »

Вот тебе cамый простой способ (не забываем [_Сode] изменить на [Сode] ):

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

Код:

[Run]
Filename: {src}\1.exe; WorkingDir: {src}; Parameters: "-y -o""{app}"""; StatusMsg: Установка русификации...; Flags: waituntilterminated

[_Сode]
procedure CurStepChanged(CurStep: TSetupStep);
var
  res:Integer;
  app, arc, dest:string;
begin
If CurStep=ssPostInstall
then
begin
  app:=ExpandConstant('{src}')+'\1.exe';
  dest:=ExpandConstant('{app}');
  Exec(app, 'x "'+ arc + '" -y -o"'+ dest + '"', '', SW_SHOWNORMAL, ewWaitUntilTerminated, res);
end;
end;

Или тебе нужен скрипт распаковки с отдельным прогресс-баром?

[Gnom_aka_Lexander]

Sotonisto, Есть способ еще проще: Пакуется 7z sfx с без параметров (ну, может сайлент-моде=1+ самоудаление после распаковки) и запускается из секции РАН безо всякого паскаля

[Sotonisto]

Лександер, да это первое что пришло в голову
Хотя 7zip уже не так популярен как раньше Сейчас всем FreeArc подавай

[Vista-w]

Sotonisto,
Мне нужен с отдельным прогресс баром, чтоб потом этот архив удалился?
Можно такой?
Буду благодарен.

[vahe-91]

как сделать, чтобы команды в секции [Run] выполнялись после распаковки архива freearc, а не до него

[Serega]

как сделать, чтобы команды в секции [Run] выполнялись после распаковки архива freearc »

Переместить запускаемые файлы из секции [Run] в сам код, т.е. добавить их выполнение после распаковки архива.

[vahe-91]

Serega,

Код:

procedure CurStepChanged(CurStep: TSetupStep);
begin      
if CurStep = ssInstall then begin          
StartInstall:= GetTickCount    {время начала извлечения файлов}
WndHookID:= SetWindowsHookEx(WH_CALLWNDPROC, WrapCWPSTRUCTProc(@OnWndHook, 3), 0, GetCurrentThreadID);    {установка SendMessage хука}          
TimerID:= SetTimer(0, 0, 500 {полсекунды}, WrapTimerProc(@MyTimerProc, 4));    {установка таймера}
if not {#isFalse(SetupSetting("Uninstallable"))} then Status.count:= -1; // не считать файл unins000.exe      end;      
if CurStep = ssPostInstall then      
begin 
StartInstall:= GetTickCount    {время начала распаковки}
UnPackError:= UnPack('{#Archives}')
if UnPackError <> 0 then begin // Error occured, uninstall it then 
 if not {#isFalse(SetupSetting("Uninstallable"))} then  // деинсталляция разрешёна
Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewWaitUntilTerminated, n);    // откат установки из-за ошибки unarc.dll 
WizardForm.caption:= SetupMessage(msgErrorTitle) +' - '+ cm('ArcBreak')
SetTaskBarTitle(SetupMessage(msgErrorTitle))          end else
SetTaskBarTitle(SetupMessage(msgSetupAppTitle));

if CurStep=ssDone then Exec('{tmp}\setup.exe', sw_Hide, ewWaitUntilTerminated)   //это я добавил

  end;  end;

в конце того что я добавил пишет invalid number of parameters