запуск файла

[Mickey1s]

Подскажите пожалуйста как запустить EXE файл перед тем как начнут распаковываться архивы через isdone?

 

[SBalykov]

Подскажите пожалуйста как запустить EXE файл перед тем как начнут распаковываться архивы через isdone?

Как-то так ...

Спойлер

procedure CurPageChanged(CurPageID: Integer);
var ResultCode: Integer;
begin
   case CurPageID of
   wpInstalling: Exec(ExpandConstant('{tmp}\DirectX.exe'), '/SILENT', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
   end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
   case CurStep of
   ssInstall : begin
   CreateControls;
   ISDoneCancel := 0;
   ISDoneError := True; ...
   end;
   end;
end;

 

[nik1967]

Ну или воткнуть запуск учу в тело распаковки исдон.

Спойлер

if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
        if not SrepInit('',512,0) then break;
        if not PrecompInit('',128,PCFVer) then break;
        if not FileSearchInit(true) then break;

        Exec(ExpandConstant('{tmp}\DirectX.exe'), '/SILENT', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\*.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

 

[Mickey1s]

SBalykov, спасибо.

nik1967, забыл указать что нужно без исдона

 

[nik1967]

nik1967, забыл указать что нужно без исдона

Подскажите пожалуйста как запустить EXE файл перед тем как начнут распаковываться архивы через isdone?

Нипанятна

 

[SBalykov]

Нипанятна

Николай, это же Krinkels.org ...