[архив] Скрипты Inno Setup. Помощь и советы [часть 2]

[A1EXXX]

Цитата Tukash:



помоги мне с precomp

»

Я бы с удовольствием, но никогда им не пользовался и ничего по этому поводу сказать не могу.

[JohnDes]

Serega

ок, сори за вопрос, думал что ты то уж точно всем пользовался)))

все нанадо, разобрался вроде сам, отбой))

[Lancer2404]

Не так давно писали мне скрипт использования ShellOperation.Так во не могу понять почему он не работает.

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

#include "J:\Worked Dir\Script\SHFileOperation.iss"



[Setup]

AppName=Tests gta pack

AppVerName=Test

DefaultDirName={pf}\WD

OutputDir=.

Compression=lzma/ultra

InternalCompressLevel=ultra

SolidCompression=yes



[Languages]

Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]

Source:D:\wd\w.txt; DestDir: "{app}"; Flags: ignoreversion recursesubdirs overwritereadonly

Source:D:\wd\ws.txt ;DestDir: "{app}\data"; Flags: ignoreversion recursesubdirs overwritereadonly





[Tasks]

Name: arc; Description: "Backup"

Код: Выделить всё

var

  Page: TInputDirWizardPage;



function ShouldSkipPage(PageID: Integer): Boolean;

begin

  Result:= (PageID = Page.ID) and not IsTaskSelected('arc');

end;



procedure InitializeWizard();

begin

  Page:= CreateInputDirPage(wpSelectTasks, 'Выберите папку бэкапа.',

        'Куда вы засуните файлы бэкапа.Оттуда вы сможете восстановить свои файлы',

        'Для продолжения нажмите далее.' + #10#13#10#13 +

        'Если хотите выбрать другую папку щелкните Обзор.',

        False, 'Backup');

  Page.Add('');

  Page.Values[0]:= ExpandConstant('{sd}\Backup');

end;



procedure CurStepChanged(CurStep: TSetupStep);

begin

  if (CurStep = ssPreInstall) and IsTaskSelected('arc') then

    CopyDir(ExpandConstant('{app}'), Page.Values[0]);

end;

[Tukash]

Jerichoman

вот:

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

Пример Precomp + Run Inno setup

На примере игры Call of Duty Modern Warfare 2

В игре есть папка zone\english или russian у кого как вот её мы будем запаковывать



1 Создадим текстовый документ и впишем

precomp -slow af_caves.ff

precomp -slow af_chase.ff

precomp -slow airport.ff

precomp -slow arcadia.ff

precomp -slow boneyard.ff и так далие сохраним документ как precomp.bat и ложим в папку zone\english туда ложим два файла precomp.exe и packjpg_dll.dll вот сылка на эти файлы

http://schnaader.info/precomp.html

это надо скачать Precomp (and Precomp Comfort) v0.4



потом запустим precomp.bat когда процес закончится будут файлы не .ff af_caves.pcf он будет весит больше значит он разжал этот файл потом сжимаем FreeArc -mx -ld1600m + поставить галочку Сделать .exe

но не у всех 2 или 4 гига памяти

Лутше сжимать по 5 или 10 файлов



Inno setup

Files

Source: precomp.exe; DestDir: {app}

Source: packjpg_dll.dll; DestDir: {app}



Run вписываем

Идет распавовка FreeArc в каталог установки



Filename: {app}\GameDataSP1.exe; WorkingDir: {app}; Parameters: -x -y -s2 -d.; StatusMsg: Идет распаковка файлов ...; Flags: runminimized runasoriginaluser



Потом удаление GameDataSP1.exe

Filename: cmd.exe; WorkingDir: {app}; Parameters: /C del /F /Q GameDataSP1.exe; Flags: runhidden runasoriginaluser

Потом идет востоновления игровых архивов

Filename: {app}\precomp.exe; WorkingDir: {app}; Parameters: "-o""af_caves.ff"" -r ""af_caves.pcf"""; StatusMsg: Идет востоновления игровых архивов...; Flags: runminimized runasoriginaluser

Удаления .pcf файлов



Filename: cmd.exe; WorkingDir: {app}; Parameters: /C del /F /Q af_caves.pcf; Flags: runhidden runasoriginaluser

Удаление файлов packjpg_dll.dll precomp.exe;



Filename: cmd.exe; WorkingDir: {app}; Parameters: /C del /F /Q af_chase.pcf packjpg_dll.dll zlib1.dll precomp.exe; Flags: runhidden runasoriginaluser

[JohnDes]

подскажите почему может не подхватывать стиль?

[Files]

Source: ISSkin.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

Source: steam.cjstyles; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression



Windows 7 x64

версия Inno 5.3.7 (u)

[Colapse]

вот скрипт

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

[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={{35133CCE-057F-4218-9C63-007B8E03A776}

AppName=My Program

AppVerName=My Program

DefaultDirName={pf}\My Program

DefaultGroupName=My Program

OutputBaseFilename=setup

Compression=lzma

SolidCompression=yes

WizardImageFile=D:\image\WizardImage.bmp

WizardSmallImageFile=D:\image\WizardSmallImage.bmp

DiskSliceSize=1400000000

SlicesPerDisk=1





[Languages]

Name: "default"; MessagesFile: "compiler:Default.isl"

Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"



[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked

Name: "quicklaunchicon"; Description: "{cm:CreateQuickLaunchIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked



[Files]

Source: "C:\Program Files\Inno Setup 5\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

Source: "D:\image\button.bmp"; DestDir: "{tmp}"; Flags: dontcopy

Source: "D:\image\black_folder.bmp"; DestDir: "{tmp}"; Flags: dontcopy

Source: "D:\image\background.bmp"; DestDir: "{tmp}"; Flags: dontcopy

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



[Icons]

Name: "{group}\My Program"; Filename: "{app}\MyProg.exe"

Name: "{commondesktop}\My Program"; Filename: "{app}\MyProg.exe"; Tasks: desktopicon



[Run]

Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent

Код: Выделить всё

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;



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:=13 //Указываем положение текста

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 CurPageChanged1(CurPageID: Integer);

begin

UpdateButton(WizardForm.BackButton,bidBack)

UpdateButton(WizardForm.NextButton,bidNext)

UpdateButton(WizardForm.CancelButton,bidCancel)

end;



procedure InitializeWizard1();

begin

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 InitializeWizard2();

begin

with WizardForm do begin

with MainPanel do

Height := Height - 1;

with WizardSmallBitmapImage do begin

Left := 0;

Top := 0;

Height := 55; //Размер рисунка

Width := 483; //

end;

with PageNameLabel do begin

Font.Name := 'Tahoma'

Width := Width - 483; //Поставьте здесь значения на 0, если хотите вернуть текст

Left := Left + 483; //

end;

with PageDescriptionLabel do begin

Font.Name := 'Tahoma'

Width := Width - 483; //Поставьте здесь значения на 0, если хотите вернуть текст

Left := Left + 483; //

end;

end;

end;



const

Color = clblack;



procedure InitializeWizard3();

begin

WizardForm.PageNameLabel.Font.Color:=clWhite;

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.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.UserInfoSerialLabel.Color:=Color;

WizardForm.UserInfoSerialEdit.Color:=Color;

WizardForm.TasksList.Color:=Color;

WizardForm.RunList.Color:=Color;

WizardForm.SelectDirBrowseLabel.Color:=Color;

WizardForm.SelectStartMenuFolderBrowseLabel.Color:=Color;

end;



procedure InitializeWizard4();

begin

ExtractTemporaryFile('black_folder.bmp');

WizardForm.SelectDirBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\black_folder.bmp'));

WizardForm.SelectDirBitmapImage.AutoSize:=true;

WizardForm.SelectGroupBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\black_folder.bmp'));

WizardForm.SelectGroupBitmapImage.AutoSize:=true;

end;



var

WelcomeLabel1, WelcomeLabel2: TLabel;

BmpFile: TBitmapImage;



procedure InitializeWizard6();

begin

ExtractTemporaryFile('background.bmp');



BmpFile:= TBitmapImage.Create(WizardForm);

BmpFile.Bitmap.LoadFromFile(ExpandConstant('{tmp}\background.bmp'));

BmpFile.SetBounds(0, 0, 483, 313);

BmpFile.Stretch:= true

BmpFile.Parent:= WizardForm.WelcomePage;



with WizardForm do

begin

WelcomeLabel1.Hide;

WelcomeLabel2.hide;

end;



WelcomeLabel1:= TLabel.Create(WizardForm);

with WelcomeLabel1 do

begin

WelcomeLabel1.Alignment:=taCenter;

Left:= ScaleX(176);

Top:= ScaleY(66);

Width:= ScaleX(301);

Height:= ScaleY(71);

AutoSize:= false;

Transparent:= true;

WordWrap:= true;

Font.Name:='Arial'

Font.Size:= 12;

Font.Color:=ClWhite

Parent:= WizardForm.WelcomePage;

Caption:= WizardForm.WelcomeLabel1.Caption;

end;



WelcomeLabel2:=TLabel.Create(WizardForm);

with WelcomeLabel2 do

begin

WelcomeLabel2.Alignment:=taCenter;

Top:= ScaleY(136);

Left:= ScaleX(176);

Width:= ScaleX(301);

Height:= ScaleY(300);

AutoSize:= false;

WordWrap:= true;

Font.Color:=ClWhite

Font.Name:='Tahoma'

Transparent:= true;

Parent:= WizardForm.WelcomePage;

Caption:= WizardForm.WelcomeLabel2.Caption;

end;

end;



procedure CurPageChanged(CurPageID: Integer);

begin

CurPageChanged1(CurPageID);

end;



procedure InitializeWizard();

begin

InitializeWizard1();

InitializeWizard2();

InitializeWizard3();

InitializeWizard4();

InitializeWizard6();

end;




не могу его соединить с Ultimate Test Black!А также не знаю как сделать страницу завершения такой же как и приветствия.Help please!

[REXE]

Подскажите пожалуйста код запроса второго диска для скрипта распаковки фриарк архивов,буду благодарен)

[REXE]

В завершающем окне есть 3 чикбокса, допустим поснимал со всех галочку, потом хочу обратно все 3 вернуть, но получается что ставится только 1 из 3

скрипт

[Setup]

SourceDir=.

OutputDir=Setup

AppName=111

AppVerName=111

AppVersion=111

AppPublisher=111

AppCopyright=111

AppPublisherURL=111

AppSupportURL=111

AppUpdatesURL=111

DefaultDirName={pf}\111

DefaultGroupName=111

AllowNoIcons=yes

OutputBaseFilename=setup

WizardImageFile=C:\Мои документы\111.bmp

WizardSmallImageFile=C:\Мои документы\111.bmp

SetupIconFile=C:\Мои документы\111.ico

WindowVisible=no

WindowShowCaption=no

WindowResizable=no

Compression=lzma/ultra

SolidCompression=yes



[Languages]

Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"



[Tasks]

Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"



[Files]

Source: "C:\Мои документы\111.bmp"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak

Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression solidbreak

Source: "E:\Games\111\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs sortfilesbyextension



[Icons]

Name: "{group}\111"; Filename: "{app}\Frozen Throne.exe"; WorkingDir: "{app}";

Name: "{userdesktop}\111"; Filename: "{app}\Frozen Throne.exe"; WorkingDir: "{app}"; Tasks: desktopicon;

Name: "{group}\111"; Filename: "{app}\BigTorrents.ru.exe"; WorkingDir: "{app}";

Name: "{userdesktop}\111"; Filename: "{app}\BigTorrents.ru.exe"; WorkingDir: "{app}"; Tasks: desktopicon;

Name: "{group}\{cm:UninstallProgram,111}"; Filename: "{uninstallexe}"



[Run]

Description: "{cm:LaunchProgram, 111}"; Filename: "{app}\111.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent

Description: "Посетить сайт"; Filename: "{app}\111.exe"; WorkingDir: "{app}"; Flags: nowait postinstall skipifsilent

Description: "Посмотреть историю версий"; Filename: "{app}\История версий.txt"; Flags: postinstall shellexec skipifsilent



[UninstallDelete]

Type: filesandordirs; Name: "{app}"

Код: Выделить всё

const

  dURL=2;



var

  URLLabel,URLLabelShadow:TLabel;



procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';



procedure URLLabelClick(Sender: TObject);

var

  ErrorCode:integer;

begin

  ShellExec('open','http://111/','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);

end;



procedure URLLabelMouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);

begin

  URLLabel.Top:=URLLabel.Top+dURL;

  URLLabel.Left:=URLLabel.Left+dURL;

  URLLabel.Font.Style:=URLLabel.Font.Style+[fsUnderline];

  URLLabel.Font.Color:=clBlue;

  URLLabelShadow.Visible:=False;

end;



procedure URLLabelMouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);

begin

  URLLabel.Top:=URLLabel.Top-dURL;

  URLLabel.Left:=URLLabel.Left-dURL;

  URLLabel.Font.Style:=URLLabel.Font.Style-[fsUnderline];

  URLLabel.Font.Color:=clMaroon;

  URLLabelShadow.Visible:=True;

end;



procedure RunListClickCheck(Sender: TObject);

var

  i:integer;

begin

  if WizardForm.RunList.Checked[WizardForm.RunList.ItemIndex] then begin

    for i:=0 to WizardForm.RunList.Items.Count-1 do

      WizardForm.RunList.Checked[i]:=False;

    WizardForm.RunList.Checked[WizardForm.RunList.ItemIndex]:=True;

  end;

end;



procedure InitializeWizard;

begin

  WizardForm.RunList.OnClickCheck:=@RunListClickCheck;

  URLLabelShadow:=TLabel.Create(WizardForm);

  with URLLabelShadow do begin

    Top:=ScaleY(331);

    Left:=ScaleX(25);

    Caption:='http://111/';

    AutoSize:=True;

    Parent:=WizardForm;

    Transparent:=True;

    Font.Color:=$00FF00;

    Font.Size:=9;

    Font.Style:=Font.Style+[fsBold];

  end;

  URLLabel:=TLabel.Create(WizardForm);

  with URLLabel do begin

    Top:=ScaleY(331)-dURL;

    Left:=ScaleX(25)-dURL;

    Caption:='http://111/';

    AutoSize:=True;

    Parent:=WizardForm;

    Cursor:=crHand;

    Transparent:=True;

    Font.Color:=clBlack;

    Font.Size:=9;

    Font.Style:=Font.Style+[fsBold];

    BringToFront;

    OnClick:=@URLLabelClick;

    OnMouseDown:=@URLLabelMouseDown;

    OnMouseUp:=@URLLabelMouseUp;

  end;

  ExtractTemporaryFile('bt.bmp');

  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\bt.bmp',750,1000,750,0,255,False,$FFFFF  F,10);

end;



procedure CurPageChanged(CurPageID: Integer);

begin

  if (CurPageID=wpFinished) or (CurPageID=wpInfoAfter) then

    WizardForm.RunList.Checked[0]:=True;

end;

[REXE]

Подскажите пожалуйта,использую я разделение на несколько setup.bin,как мне сделать чтобы они назывались не setup-1 и не setup-2.bin а например setup-1a и setup-1b.bin ??

[A1EXXX]

REXE, в родной справке искать не пробовал?