» Inno Setup (создание инсталяционных пакетов)

а как осуществить вот это

Edison00007
В Photoshop`е легче всего будет сделать.

Подскажите плиз как поместить картинку (лебел) в левый нижний угол?
И как переместить, страницу выбора папки "Пуск", на страницу выбора "Ярлыков, доп ПО", без возможности изменения папки, просто с галочкой.

Cempel

Цитата:

Подскажите плиз как поместить картинку (лебел) в левый нижний угол?

Много раз уже обсуждалось. Для этого есть поиск. Также, если не ошибаюсь, этот код есть в сборнике скриптов от Krinkels.

Цитата:

И как переместить, страницу выбора папки "Пуск", на страницу выбора "Ярлыков, доп ПО", без возможности изменения папки, просто с галочкой.

Как вариант создать задачу (task) и привязать ее к иконкам/ярлыкам. И скрыть страницу выбора пути в меню "Пуск"

Код:
[Setup]
DisableProgramGroupPage=True

Krinkels можно сылку на справку.

Pirat Hunter

Цитата:

Krinkels можно сылку на справку.

Перед тем как задать вопрос смотрите в шапку! Там все есть! В частности справка лежит в Документация, FAQ, и различные примеры для Inno Setup

Цитата:

Как вариант создать задачу (task) и привязать ее к иконкам/ярлыкам. И скрыть страницу выбора пути в меню "Пуск"

Спасибо за наводку

Как в странице приветствия и окончания убрать надписи?

Edison00007
procedure InitializeWizard();
begin
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
end;

vint56
Спасибо, но сам разобрался.

Есть другой вопрос:
У меня есть архив Data.arc при использовании ISDone он распаковывается в папку:
C:\Program Files\Games\моя игра\Data1\
а как сделать что бы он распаковывался в:
C:\Program Files\Games\моя игра\

Edison00007
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\4.bin'), ExpandConstant('{app}\Data1'), убери

Как можно убрать эту линию
http://s39.radikal.ru/i085/1011/15/ddf1148c38b0.jpg
она стандартная, просто пришлось отказалься от скина и она проявилась

ReFLeXxe
procedure InitializeWizard();
begin
WizardForm.Bevel.Hide;
end;

Как инсталлятор сделать черным?

Edison00007 либо скин либо [more=так]
[code]
const
Color = clblack;
procedure InitializeWizard();
begin
// Папка
ExtractTemporaryFile('papka.bmp');
WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectDirBitmapImage.AutoSize:=True;
WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\papka.bmp'));
WizardForm.SelectGroupBitmapImage.AutoSize:=True;
//Инсталл черный
WizardForm.Font.Color:=clWhite;
WizardForm.Color:=Color;
WizardForm.WelcomePage.Color:=Color;
WizardForm.InnerPage.Color:=Color;
WizardForm.FinishedPage.Color:=Color;
WizardForm.LicensePage.Color:=Color;
WizardForm.PasswordPage.Color:=Color;
WizardForm.InfoBeforePage.Color:=Color;
WizardForm.UserInfoPage.Color:=Color;
WizardForm.SelectDirPage.Color:=Color;
WizardForm.SelectComponentsPage.Color:=Color;
WizardForm.SelectProgramGroupPage.Color:=Color;
WizardForm.SelectTasksPage.Color:=Color;
WizardForm.ReadyPage.Color:=Color;
WizardForm.PreparingPage.Color:=Color;
WizardForm.InstallingPage.Color:=Color;
WizardForm.InfoAfterPage.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.DiskSpaceLabel.Color:=Color;
WizardForm.DirEdit.Color:=Color;
WizardForm.GroupEdit.Color:=Color;
WizardForm.PasswordLabel.Color:=Color;
WizardForm.PasswordEdit.Color:=Color;
WizardForm.PasswordEditLabel.Color:=Color;
WizardForm.ReadyMemo.Color:=Color;
WizardForm.TypesCombo.Color:=Color;
WizardForm.WelcomeLabel1.Color:=Color;
WizardForm.WelcomeLabel1.Font.Color:=clWhite;
WizardForm.InfoBeforeClickLabel.Color:=Color;
WizardForm.MainPanel.Color:=Color;
WizardForm.PageNameLabel.Color:=Color;
WizardForm.PageDescriptionLabel.Color:=Color;
WizardForm.ReadyLabel.Color:=Color;
WizardForm.FinishedLabel.Color:=Color;
WizardForm.YesRadio.Color:=Color;
WizardForm.NoRadio.Color:=Color;
WizardForm.WelcomeLabel2.Color:=Color;
WizardForm.LicenseLabel1.Color:=Color;
WizardForm.InfoAfterClickLabel.Color:=Color;
WizardForm.ComponentsList.Color:=Color;
WizardForm.ComponentsDiskSpaceLabel.Color:=Color;
WizardForm.BeveledLabel.Color:=Color;
WizardForm.StatusLabel.Color:=Color;
WizardForm.FilenameLabel.Color:=Color;
WizardForm.SelectDirLabel.Color:=Color;
WizardForm.SelectStartMenuFolderLabel.Color:=Color;
WizardForm.SelectComponentsLabel.Color:=Color;
WizardForm.SelectTasksLabel.Color:=Color;
WizardForm.LicenseAcceptedRadio.Color:=Color;
WizardForm.LicenseNotAcceptedRadio.Color:=Color;
WizardForm.UserInfoNameLabel.Color:=Color;
WizardForm.UserInfoNameEdit.Color:=Color;
WizardForm.UserInfoOrgLabel.Color:=Color;
WizardForm.UserInfoOrgEdit.Color:=Color;
WizardForm.PreparingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Color:=Color;
WizardForm.FinishedHeadingLabel.Font.Color:=clWhite;
WizardForm.UserInfoSerialLabel.Color:=Color;
WizardForm.UserInfoSerialEdit.Color:=Color;
WizardForm.TasksList.Color:=Color;
WizardForm.RunList.Color:=Color;
WizardForm.SelectDirBrowseLabel.Color:=Color;
WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;
WizardForm.PageNameLabel.Font.Color:=clWhite;
end;
//******************************************* [Конец - Черый инсталл] ***************************************************//[/more]

А вот допустим у меня повторяется: procedure InitializeWizard();
как можно сделать что бы всё не в одну копировать, а разбить на несколько частей?

Edison00007 только там добавь 1 и 2
procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
end;

vint56


Что то это не помогает =\
Пишет: http://img.pixs.ru/storage/7/2/6/Bezimyanni_6249039_1287726.jpg

Edison00007 пример
procedure InitializeWizard1();
begin

следуюший
procedure InitializeWizard2();
begin

procedure InitializeWizard();
begin
InitializeWizard1();
InitializeWizard2();
end;

А как можно прикрепить ISDone к моему скрипту не копируя всё в мой скрипт?

Ребят, помогите прикрепить текстуры кнопок к скрипту, а то у меня не получается почему-то.
Скрипт вот - http://narod.ru/disk/608857001/iss.iss.html
Скрипт кнопок вот - http://narod.ru/disk/609228001/(3).isl.html
Утилита по объединению скриптов не помогла.

vint56
А как сделать тоже самое но с procedure CurPageChanged(CurPageID: Integer); ?

Edison00007

Цитата:

Дополнительные утилиты для Inno Setup - сюда входят различные распаковщики, надстройки над Inno Setup, различные генераторы скриптов, утилита объединения скриптов и т.д.

читай шапку

Shegorat

Цитата:

FunnyRabbit
InHead

Цитата:
А есть готовый!!? ) Чтоб уже прекреплен был ISDone, FreeArc . Чтоб можно уже было отпиратся на готовый )

А это и есть готовый скрипт . Здесь "украшены" все необходимые страницы. Только FreeArc'а/ISDone нет. Или вам нужно сразу архивом со всеми файлами, а также батником для упаковки?

Так ты выложишь мэн ?) Полностью готовый в архиве!!!

InHead

Цитата:

Так ты выложишь мэн ?) Полностью готовый в архиве!!!

Так вроде как бэ уже не требуется. Смотри...

Shegorat
Там токо ISDone прикреплин!!!! Выложи свой буду благодарен!!!

oXiOneX
А обязательно нужно было на обменник заливать? Ладно [more=Держи]; Script generated by the Мастер Inno Setup Script.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "FlylinkDC++ r400 build 4582 by Inferno City Hub x32"
#define MyAppVersion "1.0.1"
#define MyAppPublisher "oXiOn"
#define MyAppURL "http://www.fierycity.ru/"
#define MyAppExeName "FlylinkDC.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{A8B2EF20-F655-4BFF-B2AA-0F1687FAE3A2}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
AppVerName={#MyAppName} {#MyAppVersion}
AppPublisher={#MyAppPublisher}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\FlylinkDC++ by Fiery City Hub x32
DefaultGroupName=FlylinkDC++ by Fiery City Hub x32
VersionInfoDescription=Установочный пакет для FlylinkDC++ r400 by Fiery City Hub x32
VersionInfoCopyright=oXiOn
AppCopyright=oXiOn
AllowNoIcons=yes
InfoBeforeFile=C:\FlylinkDC++\Что импортированно.txt
InfoAfterFile=C:\FlylinkDC++\F.A.Q..txt
OutputDir=C:\
OutputBaseFilename=Fiery_city DC-P2P Pack x32 1.0.3
SetupIconFile=C:\FlylinkDC++\1.ico
Compression=lzma/ultra
SolidCompression=true
ShowLanguageDialog=no
WizardImageFile=C:\FlylinkDC++\back.bmp
ShowTasksTreeLines=true
DisableFinishedPage=true
DisableStartupPrompt=false
RestartIfNeededByRun=false

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

[Messages]
BeveledLabel=Copyright 2010 © Fiery City Team.
SetupLdrStartupMessage=ВНИМАНИЕ!!!%nПеред началом установки завершите работу прграммы %1 %n%nВы готовы продолжить?

[CustomMessages]
;надпись для поля
russian.EnterNick=Введите свой ник:
;здесь начало содержимого файла
russian.settings1=<?xml version="1.0" encoding="Unicode" standalone="yes"?>%n<DCPlusPlus>%n    <Settings>%n
;здесь то, что будет после ника
russian.settings2=<UploadSpeed type="string">0.005</UploadSpeed>%n        <MainFrameOrder type="string">0,1,2,3,4,5,6,7,8,9,10,11,12</MainFrameOrder>%n        <MainFrameWidths type="string">150,100,250,75,75,175,100,200,50,50,50,100,75</MainFrameWidths>%n        <ConfigVersion type="string">4582</ConfigVersion>%n        <CID type="string">XURBWUTLJREO6WVIJMX657QNN6CK7XNNGDUF4DI</CID>%n        <BeepFile type="string">.\Sounds\PrivateMessage.wav</BeepFile>%n        <BeginFile type="string">.\Sounds\DownloadBegins.wav</BeginFile>%n        <FinishedFile type="string">.\Sounds\DownloadFinished.wav</FinishedFile>%n        <SourceFile type="string">.\Sounds\AltSourceAdded.wav</SourceFile>%n        <UploadFile type="string">.\Sounds\UploadFinished.wav</UploadFile>%n        <FakerFile type="string">.\Sounds\FakerFound.wav</FakerFile>%n        <ChatNameFile type="string">.\Sounds\MyNickInMainChat.wav</ChatNameFile>%n        <SoundTTH type="string">.\Sounds\FileCorrupted.wav</SoundTTH>%n        <SoundException type="string">.\Sounds\UnhandledException.wav</SoundException>%n        <SoundHubConnected type="string">.\Sounds\ConnectHUB.wav</SoundHubConnected>%n        <SoundHubDisconnected type="string">.\Sounds\DisconnectHUB.wav</SoundHubDisconnected>%n        <SoundFavUserOnline type="string">.\Sounds\FavUser.wav</SoundFavUserOnline>%n        <SoundFavUserOffline type="string">.\Sounds\FavUserDisconnected.wav</SoundFavUserOffline>%n        <MainFrameVisible type="string">1,1,1,1,1,1,1,1,1,1,1,1,1</MainFrameVisible>%n        <PrivateMessageBeep type="int">0</PrivateMessageBeep>%n        <PrivateMessageBeepOpen type="int">0</PrivateMessageBeepOpen>%n        <MainWindowState type="int">1</MainWindowState>%n        <MainWindowSizeX type="int">960</MainWindowSizeX>%n        <MainWindowSizeY type="int">718</MainWindowSizeY>%n        <MainWindowPosX type="int">50</MainWindowPosX>%n        <MainWindowPosY type="int">50</MainWindowPosY>%n        <CzertHiddenSettingA type="int">0</CzertHiddenSettingA>%n        <CzertHiddenSettingB type="int">0</CzertHiddenSettingB>%n        <TransferSplitSize type="int">8000</TransferSplitSize>%n        <ShowDescriptionSpeed type="int">0</ShowDescriptionSpeed>%n        <Away type="int">0</Away>%n        <ShowDescriptionSlots type="int">1</ShowDescriptionSlots>%n        <ShowDescriptionLimit type="int">1</ShowDescriptionLimit>%n        <ShowWinampControl type="int">0</ShowWinampControl>%n    </Settings>%n    <Share>%n        <Directory Virtual="DC++Downloads">C:\DCDownloads\</Directory>%n    </Share>%n    <NoShare/>%n    <PreviewApps>%n        <Application Name="AVIPreview" Application="AVIPreview.exe" Arguments="%[file]" Extension="avi;divx;mpg;mpeg"/>%n    </PreviewApps>%n    <Rebars>%n        <Rebar Name="MainToolBar" ID="60160,60163,60161,60162" CX="1056,214,731,268" BreakLine="1,0,1,0" BandCount="4"/>%n    </Rebars>%n    <Rss/>%n    <SearchHistory/>%n</DCPlusPlus>%n

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: quicklaunchicon; Description: {cm:CreateQuickLaunchIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked


[Files]
Source: C:\FlylinkDC++\FlylinkDC.exe; DestDir: {app}; Flags: ignoreversion
Source: C:\FlylinkDC++\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
Source: C:\FlylinkDC++\iss.iss; DestDir: {app}; Flags: deleteafterinstall
Source: C:\FlylinkDC++\1.ico; DestDir: {app}; Flags: deleteafterinstall
Source: C:\FlylinkDC++\back.bmp; DestDir: {app}; Flags: deleteafterinstall
Source: "Button.bmp"; DestDir: "{app}"; Flags: ignoreversion

; NOTE: Don't use "Flags: ignoreversion" on any shared system files


[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#MyAppExeName}
Name: {group}\{cm:ProgramOnTheWeb,{#MyAppName}}; Filename: {#MyAppURL}
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: desktopicon
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#MyAppExeName}; Tasks: quicklaunchicon
Name: {commonstartup}\FlylinkDC++ by Inferno City Hub; Filename: {app}\FlylinkDC.exe


[Code]
const
ButtonWidth = 80; //Указываем размер кнопок
ButtonHeight = 23;

bidBack = 0;
bidNext = 1;
bidCancel = 2;
bidDirBrowse = 3;
bidGroupBrowse = 4;

var
ButtonPanel: array [0..4] of TPanel;
ButtonImage: array [0..4] of TBitmapImage;
ButtonLabel: array [0..4] of TLabel;
///////////////////////////////////
Label1: TLabel;
NewEdit1: TNewEdit;

procedure ButtonLabelClick(Sender: TObject);
var
Button: TButton;
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
case TLabel(Sender).Tag of
bidBack: Button:=WizardForm.BackButton
bidNext: Button:=WizardForm.NextButton
bidCancel: Button:=WizardForm.CancelButton
bidDirBrowse: Button:=WizardForm.DirBrowseButton
bidGroupBrowse: Button:=WizardForm.GroupBrowseButton
else
Exit
end
Button.OnClick(Button)
end;

procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then
ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth
end;

procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ButtonImage[TLabel(Sender).Tag].Left:=0
end;

procedure LoadButtonImage(AButton: TButton; AButtonIndex: integer);
var
Image: TBitmapImage;
Panel: TPanel;
Labl: TLabel;

begin
Panel:=TPanel.Create(WizardForm)
Panel.Left:=AButton.Left
Panel.Top:=AButton.Top
Panel.Width:=AButton.Width
Panel.Height:=AButton.Height
Panel.Tag:=AButtonIndex
Panel.Parent:=AButton.Parent
ButtonPanel[AButtonIndex]:=Panel

Image:=TBitmapImage.Create(WizardForm) //Рисунок который ложится на кнопку
Image.Width:=160 //Обязательно прописать оригинальный размер рисунка
Image.Height:=23
Image.Enabled:=False
Image.Bitmap.LoadFromFile(ExpandConstant('{tmp}\button.bmp'))
Image.Parent:=Panel
ButtonImage[AButtonIndex]:=Image

with TLabel.Create(WizardForm) do begin
Tag:=AButtonIndex
Parent:=Panel
Width:=Panel.Width
Height:=Panel.Height
Transparent:=True
OnClick:=@ButtonLabelClick
OnDblClick:=@ButtonLabelClick
OnMouseDown:=@ButtonLabelMouseDown
OnMouseUp:=@ButtonLabelMouseUp
end

Labl:=TLabel.Create(WizardForm) //Текст кнопок
Labl.Left:=23 //Указываем положение текста
Labl.Top:=5
Labl.Autosize:=True
Labl.Alignment:=taCenter
Labl.Tag:=AButtonIndex
Labl.Transparent:=True
Labl.Font.Color:=clWhite //Цвет текста
Labl.Caption:=AButton.Caption
Labl.OnClick:=@ButtonLabelClick
Labl.OnDblClick:=@ButtonLabelClick
Labl.OnMouseDown:=@ButtonLabelMouseDown
Labl.OnMouseUp:=@ButtonLabelMouseUp
Labl.Parent:=Panel
ButtonLabel[AButtonIndex]:=Labl
end;

procedure UpdateButton(AButton: TButton;AButtonIndex: integer);
begin
ButtonLabel[AButtonIndex].Caption:=AButton.Caption
ButtonPanel[AButtonIndex].Visible:=AButton.Visible
ButtonLabel[AButtonIndex].Enabled:=Abutton.Enabled
end;

procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=True
end;

procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
ButtonLabel[bidNext].Enabled:=False
end;

procedure InitializeWizard();
begin
with WizardForm do begin
TasksList.Height := TasksList.Height - 30;
Label1 := TLabel.Create(WizardForm);
with Label1 do begin
Name := 'Label1';
Parent := SelectTasksPage;
Caption := ExpandConstant('{cm:EnterNick}');
Transparent := False;
Left := TasksList.Left;
Top := TasksList.Top + TasksList.Height + 5;
Height := ScaleY(20);
AutoSize := true;
end;
NewEdit1 := TNewEdit.Create(WizardForm);
with NewEdit1 do begin
Name := 'NewEdit1';
Parent := SelectTasksPage;
Left := Label1.Left + Label1.Width + 5;
Top := Label1.Top - 3;
Width := SelectTasksPage.Width - Left - 5;
Height := ScaleY(20);
TabOrder:= 2;
Text := '';
end;
end;

WizardForm.BackButton.Width:=ButtonWidth
WizardForm.BackButton.Height:=ButtonHeight

WizardForm.NextButton.Width:=ButtonWidth
WizardForm.NextButton.Height:=ButtonHeight

WizardForm.CancelButton.Width:=ButtonWidth
WizardForm.CancelButton.Height:=ButtonHeight

WizardForm.DirBrowseButton.Left:=337
WizardForm.DirBrowseButton.Width:=ButtonWidth
WizardForm.DirBrowseButton.Height:=ButtonHeight

WizardForm.GroupBrowseButton.Left:=337
WizardForm.GroupBrowseButton.Width:=ButtonWidth
WizardForm.GroupBrowseButton.Height:=ButtonHeight

WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnClick

WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick

ExtractTemporaryFile('button.bmp')
LoadButtonImage(WizardForm.BackButton,bidBack)
LoadButtonImage(WizardForm.NextButton,bidNext)
LoadButtonImage(WizardForm.CancelButton,bidCancel)
LoadButtonImage(WizardForm.DirBrowseButton,bidDirBrowse)
LoadButtonImage(WizardForm.GroupBrowseButton,bidGroupBrowse)
end;

procedure CurStepChanged(CurStep: TSetupStep);
Var
S: String;
begin
if CurStep = ssPostInstall//запись после распаковки всех файлов
then begin
S := ExpandConstant('{cm:settings1}') + '        <Nick type="string">' + NewEdit1.Text + '</Nick>%n' + ExpandConstant('{cm:settings2}');
SaveStringToFile(ExpandConstant('{app}\Settings\DCPlusPlus.xml'), S, false);
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
UpdateButton(WizardForm.BackButton,bidBack)
UpdateButton(WizardForm.NextButton,bidNext)
UpdateButton(WizardForm.CancelButton,bidCancel)
end;

[Run]

Filename: "{app}\FlylinkDC.exe"; Description: "Запустить FlylinkDC++ r400 by VMP Hub"; Flags: nowait postinstall skipifsilent[/more]

Shegorat: чего-то опять эта ошибка вылетает. Вот - http://s52.radikal.ru/i136/1012/55/1d96babe01a3.png

У меня инсталлятор пишет что устанавливает игру, где то минут 30 устанавливает, а когда она установилось в папке создался только дисталлятор, что делать, могу скинуть скрипт...

oXiOneX

Цитата:

чего-то опять эта ошибка вылетает

Это все из-за Unicode версии Inno Setup. Ставь Ansi версию и не парься. А в сообщении сказано что нужно поставить точку с запятой в конце предыдущей строки.

Добавлено:
skitonline

Цитата:

У меня инсталлятор пишет что устанавливает игру, где то минут 30 устанавливает, а когда она установилось в папке создался только дисталлятор, что делать, могу скинуть скрипт...

Проверь сначала пути распаковки архивов. если все правильно кидай скрипт.
P.S. Кто-нибудь хочет протестировать бета-версию ISFreeArcExtarct? Здесь не писать об этом, только в личку.