[Serega]

Raf-9600,

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Types]
Name: full; Description: Полная установка
Name: custom; Description: Выборочная установка; Flags: iscustom

[Components]
Name: a; Description: Моя программа™; Types: full
Name: b; Description: Справка; Types: custom

[Files]
Source: compiler:Examples\MyProg.exe; DestDir: {app}; Components: a; Flags: ignoreversion
Source: compiler:Examples\MyProg.chm; DestDir: {app}; Afterinstall: inWAVBat; Components: b; Flags: ignoreversion

[_Code]
procedure inWAVBat;
var
  bat, str: string;
  res: Integer;
begin
  bat := ExpandConstant('{app}\inWAV.bat');
  str := str + '@echo off' + #10#13 +
         str + '' + #10#13 + // здесь надо заполнить командами батник
         str + 'del ' + '"' + bat + '"'; // удаляет сам себя
  SaveStringToFile(bat, str, False);
  WizardForm.StatusLabel.Caption:= 'Распаковка  аудио, ждите...';
  Exec(bat, '', '', SW_HIDE, ewWaitUntilTerminated, res);
  WizardForm.StatusLabel.Caption:= WizardForm.StatusLabel.Caption;
end;