[Johny777]

отказался от батника!
вот
перенёс
так работает

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;

begin
  if CurStep = ssPostInstall then
    begin
      ExtractTemporaryFile('7za.exe');
      ExtractTemporaryFile('7z.sfx');
      Exec(ExpandConstant('{tmp}\7za.exe'), 'a -sfx7z.sfx -mx9 C:\saved.exe C:\saved', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
    end;
end;

так нет

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

Код:

procedure CurStepChanged(CurStep: TSetupStep);
var
  Res: Integer;
  s1, s2, s3, s4, s5: string;
  
begin
  if CurStep = ssPostInstall then
    begin
    s1 := 'a -sfx7z.sfx -mx9';
    s2 := ExpandConstant('{userdesktop}\saved.exe');
    s3 := ExpandConstant('{app}');

    
      ExtractTemporaryFile('7za.exe');
      ExtractTemporaryFile('7z.sfx');
      Exec(ExpandConstant('{tmp}\7za.exe'), 's1 + s2 + s3', ExpandConstant('{tmp}'), SW_SHOW, ewWaitUntilTerminated, Res);
    end;
end;

может с пробелами накосячил?