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

[HoLmEs]

Такой вопрос, касается define records, после тестового прогона я раскоментировал define records после чего скомпилировал, в процессе установки часть файлов не распаковывается, но проценты отображаются нормально, но когда когда я закоментирую define records то у меня распаковываются все файлы и проценты отображаются не нормально. Как быть, подскажите кто

 

[Adil]

HoLmEs, может вы отметили архив (который не распаковывается) как компонент?

 

[LexBell]

HoLmEs, покажи ту часть, где распаковка и я покажу, где у тебя косяк.

 

[EvilAlex]

Всем бобра ! Пользуюсь внешним упаковщиком, а именно фриарком. Такой вопросец, вот у меня три архива: Client.arc Music.arc Sound.arc !
Client.arc - устанавливаеться в любом случае, это клиент игры, есть пользователи которым нужны звуки и музыка, а есть кому они не нужны, как-то можно сделать выбор чтобы пользователь мог выбрать, устанавливать или нет Music.arc и Sound.arc ?
Распаковка идет через IsDone0.6final !
Пробовал сделать через компоненты, но они не отображаються в прогрессбаре и на странице установки, с виду инсталлятор просто висит около 2-3 минут, потом игра установлена. Поэтому и спрашиваю, можно ли как то сделать чтобы распаковка шла через ис дон, но при этом мжно было бы выбрать что ставить ?

Заранее спасибо !

 

[vint56]

EvilAlex этот пример из справки

Спойлер: Пример 2 : распаковка архивов, учитывая выбранные компоненты.

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: text; Description: Язык субтитров; Types: full; Flags: fixed
Name: text\rus; Description: Русский; Flags: exclusive;
Name: text\eng; Description: Английский; Flags: exclusive;
Name: voice; Description: Язык озвучки; Types: full; Flags: fixed
Name: voice\rus; Description: Русский; Flags: exclusive;
Name: voice\eng; Description: Английский; Flags: exclusive;

Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue; //компонент 1
TmpValue:=TmpValue*2;
if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue; //компонент 2
TmpValue:=TmpValue*2;
if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue; //компонент 3
TmpValue:=TmpValue*2;
if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue; //компонент 4

ISDoneError:=true;
if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
repeat
if not FileSearchInit(false) then break;
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\BasicData.arc'), ExpandConstant('{app}\'), '', false, '', '', '', notPCFonFLY) then break;
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\rustext.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
if not ISArcExtract ( 2, 0, ExpandConstant('{src}\engtext.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
if not ISArcExtract ( 3, 0, ExpandConstant('{src}\rusvoice.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
if not ISArcExtract ( 4, 0, ExpandConstant('{src}\engvoice.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
ISDoneError:=false;
until true;
ISDoneStop;
end;

Спойлер: Немного правленый

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: voice; Description: Язык озвучки; Types: full;
Name: voice\Audio; Description: Audio;
Name: voice\Music; Description: Music;

procedure InitializeWizard();
begin
  with WizardForm.ComponentsList do
    begin
    Checked[1]:=True
    Checked[2]:=True
  end;
end;

Comps1:=0; Comps2:=0; Comps3:=0;
 TmpValue:=1;
 if IsComponentSelected('text\rus') then Comps1:=Comps1+TmpValue; //компонент 1
 TmpValue:=TmpValue*2;
 if IsComponentSelected('text\eng') then Comps1:=Comps1+TmpValue; //компонент 2
 TmpValue:=TmpValue*2;
 if IsComponentSelected('voice\rus') then Comps1:=Comps1+TmpValue; //компонент 3
 TmpValue:=TmpValue*2;
 if IsComponentSelected('voice\eng') then Comps1:=Comps1+TmpValue; //компонент 4

 ISDoneError:=true;
 if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
 repeat
 if not FileSearchInit(false) then break;
 if not ISArcExtract ( 0, 0, ExpandConstant('{src}\BasicData.arc'), ExpandConstant('{app}\'), '', false, '', '', '', notPCFonFLY) then break;
 if not ISArcExtract ( 1, 0, ExpandConstant('{src}\Audio.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;
 if not ISArcExtract ( 2, 0, ExpandConstant('{src}\Music.arc'), ExpandConstant('{app}'), '', false, '', '', '', notPCFonFLY) then break;

 ISDoneError:=false;
 until true;
 ISDoneStop;
 end;[/SPOILER]

 

[EvilAlex]

vint56, Огромное спасибо, только небольшая проблемка. У меня нет страницы компонентов, у меня вот как -

 

[LexBell]

У меня нет страницы компонентов

IsComponentSelected('text\rus')

- простая булевая функция. вместо нее можешь использовать абсолютно. то есть вообще совершенно любую булевую функцию или переменную. вообще - это значит совершенно любую, какую твоей душе угодно. любое условие, которое должно знаменовать собой необходимость распаковки нужного архива. если не вдаваться - порядок заявления - есть цифра, которую напишешь в параметре привязки к компонентам.

нужно, наверное, перевести справку к исдону на все основные языки. ибо в русском изложении она непонятна даже русскоязычным пользователям. может на каких других языках будет понятнее? хотя вряд-ли. скорей всего ее просто никто не читает.

 

[EvilAlex]

- простая булевая функция. вместо нее можешь использовать абсолютно. то есть вообще совершенно любую булевую функцию или переменную. вообще - это значит совершенно любую, какую твоей душе угодно. любое условие, которое должно знаменовать собой необходимость распаковки нужного архива. если не вдаваться - порядок заявления - есть цифра, которую напишешь в параметре привязки к компонентам.

нужно, наверное, перевести справку к исдону на все основные языки. ибо в русском изложении она непонятна даже русскоязычным пользователям. может на каких других языках будет понятнее? хотя вряд-ли. скорей всего ее просто никто не читает.

Не буду отрицать, читал только основы, и я не говорю что скрипт не работает, он работает даже очень хорошо, просто у меня идет 4 страницы, 1-приветствия, 2-папки и компоненты, 3-установка и 4-финишная. Мне надо два чек бокса "1- установить Музыку, 2- установить Звуки" на 2 странице. Я делал по справке и по примеру от vint56, появляеться пустая белая страница после папок и компонентов, где нечего нет, жму установить и идет полная установка, музыка, звук и клиент. У меня не получаеться просто сделать два чек бокса привязаных к этим двум компанентам, на 2 странице, так чтобы не появлялась пустая страница компонентов, но при этом распаковка шла через исдон ! Если кто понял и может помочь, огромная просьба, хелп ми !?

 

[LexBell]

совершенно любую булевую функцию

создаешь булевые функции, которые возвращают состояния твоих чекбоксов в булевом выражении. далее просто:

Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if твоя булева функция номер 1 then Comps1:=Comps1+TmpValue; //компонент 1
TmpValue:=TmpValue*2;
if твоя булева функция номер 2 then Comps1:=Comps1+TmpValue; //компонент 2

Не спорю, я тоже както не сразу въехал в этот момент. но мой вопрос звучал тогда так -

можно-ли использовать вместо IsComponentSelected другую булевую функцию?

 

[EvilAlex]

создаешь булевые функции, которые возвращают состояния твоих чекбоксов в булевом выражении. далее просто:

Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if твоя булева функция номер 1 then Comps1:=Comps1+TmpValue; //компонент 1
TmpValue:=TmpValue*2;
if твоя булева функция номер 2 then Comps1:=Comps1+TmpValue; //компонент 2

Не спорю, я тоже както не сразу въехал в этот момент. но мой вопрос звучал тогда так -

Суть я понял, но вот что туда втыкать до меня не доходит... Если можно пример ?

 

[LexBell]

[SOURCE="iss"]function CheckMusik(): boolean;
begin
Result := Чекбокс Musik.cheked;
end;

function CheckAudio(): boolean;
begin
Result := Чекбокс Audio.cheked;
end;


............................
Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if CheckMusik then Comps1:=Comps1+TmpValue; //если нужно распаковать архив Musik
TmpValue:=TmpValue*2;
if CheckAudio then Comps1:=Comps1+TmpValue; //если нужно распаковать архив Audio


............................
if not ISArcExtract ( 1, 0, ExpandConstant('{src}\Musik.bin'), ...) then break;
if not ISArcExtract ( 2, 0, ExpandConstant('{src}\Audio.bin'), ...) then break;[/SOURCE]
что-то еще осталось непонятным? тут, кстати, еще и ответ на вопрос HoLmEs

 

[EvilAlex]

что-то еще осталось непонятным? тут, кстати, еще и ответ на вопрос HoLmEs

вот мой скрипт:

#define GameID "{5F05CE9B-7768-490E-9A71-C7B92B4AWS57}"
#define MyAppName "Ural Mu"
#define MyAppExe "Launcher.exe"
#define MyAppVer "0.0.1"
#define MyInfoVer "2.0.0.0"
#define NeedMem "512"

#define FontColor "$ffffff" ;цвет шрифта
#define FontSize "8" ;размер шрифта

#define Components

;#define records
#define facompress
#define SrepInside

;#define PrecompInside
;#define precomp "0.42"
;#define unrar
;#define XDelta
;#define PackZIP

[Setup]
AppId={{#GameID}
AppName={#MyAppName}
AppVersion={#MyAppVer}

DisableReadyPage=yes
DisableProgramGroupPage=yes
ShowComponentSizes=false


[CustomMessages]
rus.Music= Установить Музыку.
rus.Sound= Установить Звуки.


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

#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif

const
  FR_PRIVATE = $10;

#include "Modules/botva2.iss"
#include "Modules/ProgressBar.iss"
#include "Modules/TaskBar.iss"
#include "Modules/ISDone.iss"

var
  Frame: TForm;
  WFOldProc, Wizard1, Wizard2, Wizard3, fon, hdd, Folder, Edit, Start, Tasks, Components: Longint;
  OldMinimizeAnimation: boolean;
  hCancelBtn, hNextBtn, hBackBtn, hDirBrowseBtn,CancelBtn, MinBtn, hGroupBrowseBtn, NoIconsCheck, DPOCheck, DesktopCheck, MusicCheck, SoundCheck, AboutBtn, Font1:HWND;
  ButtonFont: TFont;

  DirEditLabel, MainLabel, GroupEditLabel, WelcomeLabel, WelcomeLabel2, SelectDir, SelectDir2, DesktopLabel, NoIconsLabel, MusicLabel, SoundLabel, DPOLabel, ComponentsText, ComponentsVoice: TLabel;

type
 TCallbackProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;

function mciSendString(lpstrCommand, lpstrReturnString: PAnsiChar; uReturnLength, hWndCallback: Integer): Integer; external 'mciSendString{#A}@winmm stdcall delayload';
function LoadImage(hInst: THandle; ImageName: PAnsiChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImage{#A}@user32.dll stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: LongWord; bRedraw: BOOL): Integer;  external 'SetWindowRgn@user32.dll stdcall';
function ReleaseDC(hWnd: HWND; hDC: LongWord): Integer; external 'ReleaseDC@user32.dll stdcall';
function DeleteObject(p1: LongWord): BOOL; external 'DeleteObject@gdi32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall';
function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallback@files:ISDone.dll stdcall delayload';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProc{#A}@user32.dll stdcall';
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y, cx, cy: Integer; uFlags: UINT): BOOL; external 'SetWindowPos@user32.dll stdcall';
function ReleaseCapture: Longint; external 'ReleaseCapture@user32.dll stdcall';
function AddFontResource(lpszFilename: String; fl, pdv: DWORD): Integer; external 'AddFontResourceEx{#A}@gdi32.dll stdcall';
function RemoveFontResource(lpFileName: String; fl, pdv: DWORD): BOOL; external 'RemoveFontResourceEx{#A}@gdi32.dll stdcall';

function SetWindowLong2(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function SetLayeredWindowAttributes(hwnd: hWnd; crKey: TColor; bAlpha: byte; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';

procedure SetRgn(h:HWND;FileName:String;Width,Height:integer);
var
  dc:LongWord;
  FRgn:LongWord;
  bmp:HBITMAP;
begin
  BMP:=LoadImage(0,PAnsiChar(ExpandConstant('{tmp}')+'\'+FileName),0,Width,Height,$10);
  dc:=GetDC(h);
  FRgn:=CreateBitmapRgn(dc,bmp,$ffffff,0,0);
  SetWindowRgn(h,FRgn,True);
  ReleaseDC(h,dc);
  DeleteObject(BMP);
end;

function WFProc(h:hWnd;Msg,wParam,lParam:Longint):Longint;
begin
  if Msg=$3 then SetWindowPos(Frame.Handle,0,WizardForm.Left,WizardForm.Top,0,0,$515);
  Result:=CallWindowProc(WFOldProc,h,Msg,wParam,lParam);
end;

procedure FrameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  WizardForm.SetFocus;
  ReleaseCapture;
  SendMessage(WizardForm.Handle,$0112,$F012,0);
end;

procedure CreateWizardForm;
begin
  with WizardForm do begin
  WizardForm.BorderStyle:=bsNone;
  WizardForm.ClientWidth:=465;
  WizardForm.ClientHeight:=350;

  WizardForm.InnerNotebook.Hide;
  WizardForm.OuterNotebook.Hide;
  WizardForm.Bevel.Hide;
  WizardForm.NextButton.Width:=0;
  WizardForm.CancelButton.Width:=0;
end;

  Wizard1:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\fon.png',0,0,WizardForm.ClientWidth, WizardForm.ClientHeight,True,True);

  Wizard2:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\fon2.png',0,0,WizardForm.ClientWidth, WizardForm.ClientHeight,True,True);

  Wizard3:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\fon3.png',0,0,WizardForm.ClientWidth, WizardForm.ClientHeight,True,True);

  OldMinimizeAnimation:=GetMinimizeAnimation;
  SetMinimizeAnimation(True);
  ImgApplyChanges(WizardForm.Handle);

  SetWindowLong2(WizardForm.Handle,-20,GetWindowLong(WizardForm.Handle,-20) or $80000);
  SetLayeredWindowAttributes(WizardForm.Handle,$00FF00,0,1);
end;

procedure CreateFrame;
begin
  Frame:=TForm.Create(nil);
  Frame.BorderStyle:=bsNone;
  CreateFormFromImage(Frame.Handle,ExpandConstant('{tmp}\frame.png'));
  with TLabel.Create(Frame) do begin
    Parent:=Frame;
    AutoSize:=False;
    Left:=0;
    Top:=0;
    Width:=Frame.CLientWidth;
    Height:=Frame.ClientHeight;
    OnMouseDown:=@FrameMouseDown;
  end;
  WizardForm.Left:=Frame.Left;
  WizardForm.Top:=Frame.Top;
  WFOldProc:=SetWindowLong(WizardForm.Handle,-4,WndProcCallBack(@WFProc,4));
  Frame.Show;
  with TLabel.Create(WizardForm) do begin
    Parent:=WizardForm;
    AutoSize:=False;
    Left:=0;
    Top:=0;
    Transparent:= true;
    WordWrap:= true;
    Width:=WizardForm.CLientWidth;
    Height:=WizardForm.ClientHeight;
    OnMouseDown:=@FrameMouseDown;
  end;
end;

procedure WFDeInit;
begin
  Frame.Visible:=False;
  WizardForm.Visible:=False;
  SetWindowLong(WizardForm.Handle,-4,WFOldProc);
  Frame.Free;
end;

procedure MinimizeBtnClick(h:HWND);
begin
  GetMinimizeAnimation;
  SetMinimizeAnimation(true);
  SendMessage(WizardForm.Handle,$112,61472,0);
end;

procedure CancelBtnClick(h:HWND);
begin
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;

procedure SetStateNewButtons;
begin
  with WizardForm.BackButton do begin
    BtnSetText(hBackBtn,PAnsiChar(Caption));
    BtnSetVisibility(hBackBtn,Visible);
  end;
  with WizardForm.NextButton do begin
    BtnSetText(hNextBtn,PAnsiChar(Caption));
    BtnSetVisibility(hNextBtn,Visible);
  end;
  with WizardForm.CancelButton do begin
    BtnSetText(hCancelBtn,PAnsiChar(Caption));
    BtnSetVisibility(hCancelBtn,Visible);
  end;
  BtnSetText(hDirBrowseBtn,PAnsiChar(WizardForm.DirBrowseButton.Caption));
  BtnSetText(hGroupBrowseBtn,PAnsiChar(WizardForm.GroupBrowseButton.Caption));
end;

procedure WizardFormBtnClick(hBtn:HWND);
var
  Btn:TButton;
begin
  case hBtn of
    hCancelBtn: Btn:=WizardForm.CancelButton;
    hNextBtn: Btn:=WizardForm.NextButton;
    hBackBtn: Btn:=WizardForm.BackButton;
    hDirBrowseBtn: Btn:=WizardForm.DirBrowseButton;
    hGroupBrowseBtn: Btn:=WizardForm.GroupBrowseButton;
  end;
  Btn.OnClick(Btn);
  SetStateNewButtons;
  BtnRefresh(hBtn);
end;

function NoIcons: Boolean;
begin
Result:= BtnGetEnabled(hGroupBrowseBtn);
end;

function Desktop: Boolean;
begin
  Result:= BtnGetChecked(DesktopCheck);
end;

function Music: Boolean;
begin
Result:= BtnGetChecked(MusicCheck);
end;

function Sound: Boolean;
begin
Result:= BtnGetChecked(SoundCheck);
end;

procedure NoIconsClick(hBtn:HWND);
var
  Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
BtnSetEnabled(hGroupBrowseBtn, Check);
WizardForm.GroupEdit.Enabled:=Check;
if Check then NoIconsLabel.Font.Color:={#FontColor} else NoIconsLabel.Font.Color:=-16777199;
end;

procedure NoIconsLabelClick(Sender:TObject);
begin
  BtnSetChecked(NoIconsCheck, not BtnGetChecked(NoIconsCheck));
  NoIconsClick(NoIconsCheck);
end;

procedure DesktopClick(hBtn:HWND);
var
  Check:boolean;
begin
Check:=BtnGetChecked(hBtn);
if Check then DesktopLabel.Font.Color:={#FontColor} else DesktopLabel.Font.Color:=-16777199;
end;

procedure DesktopLabelClick(Sender:TObject);
begin
  BtnSetChecked(DesktopCheck, not BtnGetChecked(DesktopCheck));
  DesktopClick(DesktopCheck);
end;

function CheckMusik(): boolean;
begin
  Result := Чекбокс Musik.cheked;
end;

function CheckAudio(): boolean;
begin
  Result := Чекбокс Audio.cheked;
end;


procedure Buttons;
begin

  ButtonFont:=TFont.Create;
  with ButtonFont do begin
//    Style:=[fsBold];
    Name:='Tahoma';
    Size:={#FontSize};
  end;

  with WizardForm.CancelButton do begin
    hCancelBtn:=BtnCreate(WizardForm.Handle,ScaleX(382),ScaleY(320),ScaleX(70),ScaleY(20),ExpandConstant('{tmp}\Button1.png'),1,False);
    BtnSetEvent(hCancelBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hCancelBtn,ButtonFont.Handle);
    BtnSetText(hCancelBtn,'Отмена');
    BtnSetFontColor(hCancelBtn,$ffffff,$ffffff,$ffffff,$333333);
    BtnSetCursor(hCancelBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;
  with WizardForm.NextButton do begin
    hNextBtn:=BtnCreate(WizardForm.Handle,ScaleX(306),ScaleY(320),ScaleX(70),ScaleY(20),ExpandConstant('{tmp}\Button1.png'),1,False);
    BtnSetEvent(hNextBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hNextBtn,ButtonFont.Handle);
    BtnSetText(hNextBtn,'Далее >');
    BtnSetFontColor(hNextBtn,$ffffff,$ffffff,$ffffff,$333333);
    BtnSetCursor(hNextBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;
  with WizardForm.BackButton do begin
    hBackBtn:=BtnCreate(WizardForm.Handle,ScaleX(230),ScaleY(320),ScaleX(70),ScaleY(20),ExpandConstant('{tmp}\Button1.png'),1,False);
    BtnSetEvent(hBackBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetFont(hBackBtn,ButtonFont.Handle);
    BtnSetText(hBackBtn,'< Назад');
    BtnSetFontColor(hBackBtn,$ffffff,$ffffff,$ffffff,$333333);
    BtnSetCursor(hBackBtn,GetSysCursorHandle(32649));
    Width:=0;
    Height:=0;
  end;

with WizardForm.DirBrowseButton do begin
    hDirBrowseBtn:=BtnCreate(WizardForm.Handle,ScaleX(375),ScaleY(101),ScaleX(63),ScaleY(31),ExpandConstant('{tmp}\Button2.png'),7,False);
    BtnSetEvent(hDirBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetCursor(hDirBrowseBtn,GetSysCursorHandle(32649));
    BtnSetText(hDirBrowseBtn,'Обзор...');
    BtnSetFontColor(hDirBrowseBtn,$ffffff,$ffffff,$ffffff,$ffffff);
    BtnSetFont(hDirBrowseBtn,ButtonFont.Handle);
    Width:=0;
    Height:=0;
  end;

with WizardForm.GroupBrowseButton do begin
    hGroupBrowseBtn:=BtnCreate(WizardForm.Handle,ScaleX(375),ScaleY(171),ScaleX(63),ScaleY(31),ExpandConstant('{tmp}\Button2.png'),7,False);
    BtnSetEvent(hGroupBrowseBtn,BtnClickEventID,WrapBtnCallback(@WizardFormBtnClick,1));
    BtnSetText(hGroupBrowseBtn,'Обзор...');
    BtnSetFontColor(hGroupBrowseBtn,$ffffff,$ffffff,$ffffff,$ffffff);
    BtnSetFont(hGroupBrowseBtn,ButtonFont.Handle);
    Width:=0;
    Height:=0;
  end;

 CancelBtn:=BtnCreate(WizardForm.Handle, ScaleX(432), ScaleY(12), ScaleX(18), ScaleY(20), ExpandConstant('{tmp}\CloseBtn.png'), 1, False);
 BtnSetEvent(CancelBtn, BtnClickEventID,WrapBtnCallback(@CancelBtnClick,1));

 MinBtn:=BtnCreate(WizardForm.Handle, ScaleX(407), ScaleY(12), ScaleX(18), ScaleY(20), ExpandConstant('{tmp}\MinBtn.png'), 1, false);
 BtnSetEvent(MinBtn, BtnClickEventID, WrapBtnCallback(@MinimizeBtnClick, 1));

 DesktopCheck:=BtnCreate(WizardForm.Handle, ScaleX(220), ScaleY(230), ScaleX(236), ScaleY(16), ExpandConstant('CheckBox.png'), 1, True);
 BtnSetChecked(DesktopCheck, True);
 BtnSetEvent(DesktopCheck,BtnClickEventID,WrapBtnCallback(@DesktopClick,1));

 NoIconsCheck:=BtnCreate(WizardForm.Handle,ScaleX(220),ScaleY(270),ScaleX(236), ScaleY(16), ExpandConstant('CheckBox.png'),1,True);
 BtnSetEvent(NoIconsCheck,BtnClickEventID,WrapBtnCallback(@NoIconsClick,1));
 BtnSetChecked(NoIconsCheck, true);

 MusicCheck:=BtnCreate(WizardForm.Handle, ScaleX(26), ScaleY(230), ScaleX(236), ScaleY(16), ExpandConstant('CheckBox.png'), 1, True);
 BtnSetChecked(MusicCheck, False);
 BtnSetEvent(MusicCheck,BtnClickEventID,WrapBtnCallback(@MusicClick,1));

 SoundCheck:=BtnCreate(WizardForm.Handle, ScaleX(26), ScaleY(270), ScaleX(236), ScaleY(16), ExpandConstant('CheckBox.png'), 1, True);
 BtnSetChecked(SoundCheck, False);
 BtnSetEvent(SoundCheck,BtnClickEventID,WrapBtnCallback(@SoundClick,1));

////////////
  ImgApplyChanges(WizardForm.Handle);
end;

procedure DirEditOnChange(Sender: TObject);
var Drive: String;
begin
  DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
  Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
if WizardForm.CurPageID = wpSelectDir then begin
  BtnSetEnabled(hNextBtn, True);
end
end;

procedure GroupEditOnChange(Sender: TObject);
var Drive: String;
begin
  GroupEditLabel.Caption:=MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
  Drive:= ExtractFileDrive(WizardForm.GroupEdit.Text);
if WizardForm.CurPageID = wpSelectDir then begin
  BtnSetEnabled(hNextBtn, True);
end
end;

procedure Wzf;
begin

ImgApplyChanges(WizardForm.Handle);

MainLabel:= TLabel.Create(WizardForm);
with MainLabel do
begin
  Left:= ScaleX(10);
  Top:= ScaleY(15);
  Width:= ScaleX(300);
  Height:= ScaleY(14);
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  Font.Size:=7;
  Font.Color:=$999999;
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:Main}');
end;

WelcomeLabel:= TLabel.Create(WizardForm);
with WelcomeLabel do
begin
  Left:= ScaleX(10);
  Top:= ScaleY(215);;
  Width:= ScaleX(450);
  Height:= ScaleY(200);
  AutoSize:= false;
  Transparent:= true;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:Welcome1}');
end;

WelcomeLabel2:=TLabel.Create(WizardForm);
with WelcomeLabel2 do
begin
  Left:= ScaleX(10);
  Top:= ScaleY(215);;
  Width:= ScaleX(450);
  Height:= ScaleY(200);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:Welcome2}');
end;

SelectDir:=TLabel.Create(WizardForm);
with SelectDir do
begin
  Top:= ScaleY(65);
  Left:= ScaleX(27);
  Width:= ScaleX(450);
  Height:= ScaleY(200);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:SelectDir1}');
end;

SelectDir2:=TLabel.Create(WizardForm);
with SelectDir2 do
begin
  Top:= ScaleY(150);
  Left:= ScaleX(27);
  Width:= ScaleX(450);
  Height:= ScaleY(200);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:SelectDir2}');
end;

DirEditLabel := TLabel.Create(WizardForm);
with DirEditLabel do
begin
  AutoSize:=False;
  SetBounds(ScaleX(37), ScaleY(110), ScaleX(290), ScaleY(15));
  WordWrap:= True;
  ShowAccelChar := False;
  Transparent:=True;
  Font.Size:={#FontSize};
  Font.Color:=$666666;
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Caption := MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
  Parent := WizardForm;
end;
WizardForm.DirEdit.OnChange:=@DirEditOnChange;

GroupEditLabel := TLabel.Create(WizardForm);
with GroupEditLabel do
begin
  AutoSize:=False;
  SetBounds(ScaleX(37), ScaleY(180), ScaleX(290), ScaleY(15));
  WordWrap:= True;
  ShowAccelChar := False;
  Transparent:=True;
  Font.Size:={#FontSize};
  Font.Color:=$666666;
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Caption := MinimizePathName(WizardForm.GroupEdit.Text, GroupEditLabel.Font, GroupEditLabel.Width);
  Parent := WizardForm;
end;
WizardForm.GroupEdit.OnChange:=@GroupEditOnChange;

DesktopLabel:=TLabel.Create(WizardForm);
with DesktopLabel do
begin
  Top:= ScaleY(230);
  Left:= ScaleX(240);
  Width:= ScaleX(220);
  Height:= ScaleY(25);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:DesktopTasks}');
end;

NoIconsLabel:=TLabel.Create(WizardForm);
with NoIconsLabel do
begin
  Top:= ScaleY(270);
  Left:= ScaleX(240);
  Width:= ScaleX(220);
  Height:= ScaleY(25);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  OnClick:=@NoIconsLabelClick;
  Caption:= ExpandConstant('{cm:IconsCheck}');
end;

MusicLabel:=TLabel.Create(WizardForm);
with MusicLabel do
begin
  Top:= ScaleY(230);
  Left:= ScaleX(42);
  Width:= ScaleX(220);
  Height:= ScaleY(25);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:Music}');
end;

SoundLabel:=TLabel.Create(WizardForm);
with SoundLabel do
begin
  Top:= ScaleY(270);
  Left:= ScaleX(42);
  Width:= ScaleX(220);
  Height:= ScaleY(25);
  AutoSize:= false;
  WordWrap:= true;
  Font.Size:={#FontSize};
  Font.Color:={#FontColor};
  Font.Style:=[fsBold];
  Font.Name:='Tahoma';
  Transparent:= true;
  Parent:= WizardForm;
  Caption:= ExpandConstant('{cm:Sound}');
end;
end;

function InitializeSetup:boolean;
begin
  if not FileExists(ExpandConstant('{tmp}\b2p.dll'))    then ExtractTemporaryFile('b2p.dll');
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  Result:=True;
end;

procedure InitializeWizard();
begin
  CreateWizardForm;
  Wzf;
  Buttons;
  CreateFrame;
  init_taskbar;
end;

procedure HideComponents;
 begin
  ImgSetVisibility(Wizard1,False);
  ImgSetVisibility(Wizard2,False);
  ImgSetVisibility(Wizard3,False);
  WelcomeLabel.Hide;
  WelcomeLabel2.Hide;
  DesktopLabel.Hide;
  SelectDir.Hide;
  SelectDir2.Hide;
  ImgSetVisibility(hdd,False);
  ImgSetVisibility(Start,False);
  ImgSetVisibility(Tasks,False);
  ImgSetVisibility(Components,False);
  BtnSetVisibility(hDirBrowseBtn, false);
  BtnSetVisibility(hGroupBrowseBtn, false);
  ImgSetVisibility(Folder,False);
  ImgSetVisibility(fon,False);
  ImgSetVisibility(Edit,False);
  WizardForm.DirEdit.Hide;
  WizardForm.GroupEdit.Hide;
  WizardForm.ComponentsList.Hide
  BtnSetVisibility(NoIconsCheck, false);
  NoIconsLabel.Hide;
  BtnSetVisibility(DPOCheck, false);
  BtnSetVisibility(DesktopCheck, false);
  DirEditLabel.Hide;
  GroupEditLabel.Hide;
  BtnSetVisibility(MusicCheck, false);
  BtnSetVisibility(SoundCheck, false);
  MusicLabel.Hide;
  SoundLabel.Hide;
 end;

Procedure CurPageChanged(CurPageID: Integer);
 Begin
  SetStateNewButtons;
  HideComponents;

case CurPageID of

 wpWelcome:
  begin
   ImgSetVisibility(Wizard1,True);
   WelcomeLabel.Show;
   WelcomeLabel2.Show;
  end;

 wpSelectDir:
  begin
   ImgSetVisibility(Wizard2,True);
   DirEditLabel.Show;
   ImgSetVisibility(Folder,True);
   ImgSetVisibility(Edit,True);
   WizardForm.DirEdit.Show;
   SelectDir2.Show;
   SelectDir.Show;
   ImgSetVisibility(hdd,True);
   BtnSetVisibility(hDirBrowseBtn, true);
   GroupEditLabel.Show;
   BtnSetVisibility(hGroupBrowseBtn, true);
   ImgSetVisibility(Edit,True);
   WizardForm.GroupEdit.Show;
   SelectDir2.Show;
   ImgSetVisibility(Start,True)
   NoIconsLabel.Show;

   BtnSetVisibility(MusicCheck, true);
   BtnSetVisibility(SoundCheck, true);
   MusicLabel.Show;
   SoundLabel.Show;



   BtnSetVisibility(NoIconsCheck, True);
       
   ImgSetVisibility(Tasks,True);
   BtnSetVisibility(DesktopCheck, true);
   DesktopLabel.Show;
   BtnSetVisibility(DPOCheck, true);
   If WizardForm.FindComponent('NextButton') is TButton then
   TButton(WizardForm.FindComponent('NextButton')). Caption:='Установить';
end;

 wpInstalling:
  begin
    ImgSetVisibility(Wizard3,True);
  end;

 wpFinished:
  begin
   ImgSetVisibility(Wizard1,True);
   WelcomeLabel.Caption:=ExpandConstant('{cm:Finished1}');
   WelcomeLabel2.Caption:=ExpandConstant('{cm:Finished2}');
   WelcomeLabel.Show;
   WelcomeLabel2.Show;
  end;
 end;

 if (CurPageID = wpFinished) and ISDoneError then
  begin
   ImgSetVisibility(Wizard1,True);
   LabelTime3.Hide;
   WelcomeLabel.Caption:=ExpandConstant('{cm:ErrorFinished2}');
   WelcomeLabel2.Caption:=ExpandConstant('{cm:ErrorFinished1}');
   //WelcomeLabel.Font.Color:= clRed;
   //WelcomeLabel2.Font.Color:= clRed;
  end;

ImgApplyChanges(WizardForm.Handle);
end;

procedure DeinitializeSetup();
begin
  WFDeInit;
  SetWindowLong(WizardForm.Handle,-4,WFOldProc);
  SetMinimizeAnimation(OldMinimizeAnimation);
  gdipShutdown;
  ButtonFont.Free
  WizardForm.Free;
end;
[/MORE]

 

[EvilAlex]

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

вот исдон:

[UninstallDelete]
Type: filesandordirs; Name: {app}

const
  PCFonFLY=true;
  notPCFonFLY=false;

var

  ISDoneProgressBar1,ISDoneProgressBar2: TImgPB;

  LabelPct1,LabelPct2,LabelCurrFileName,LabelTime1,LabelTime2,LabelTime3: TLabel;
  ISDoneCancel:integer;
  ISDoneError:boolean;
  PCFVer:double;

type
  TCallback = function (OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;

function WrapCallback(callback:TCallback; paramcount:integer):longword;external 'wrapcallback@files:ISDone.dll stdcall delayload';

function ISArcExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath, ExtractedPath: AnsiString; DeleteInFile:boolean; Password, CfgFile, WorkPath: AnsiString; ExtractPCF: boolean ):boolean; external 'ISArcExtract@files:ISDone.dll stdcall delayload';
function IS7ZipExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'IS7zipExtract@files:ISDone.dll stdcall delayload';
function ISRarExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutPath: AnsiString; DeleteInFile:boolean; Password: AnsiString):boolean; external 'ISRarExtract@files:ISDone.dll stdcall delayload';
function ISPrecompExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISPrecompExtract@files:ISDone.dll stdcall delayload';
function ISSRepExtract(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISSrepExtract@files:ISDone.dll stdcall delayload';
function ISxDeltaExtract(CurComponent:Cardinal; PctOfTotal:double; minRAM,maxRAM:integer; InName, DiffFile, OutFile: AnsiString; DeleteInFile:boolean):boolean; external 'ISxDeltaExtract@files:ISDone.dll stdcall delayload';
function ISPackZIP(CurComponent:Cardinal; PctOfTotal:double; InName, OutFile: AnsiString;ComprLvl:integer; DeleteInFile:boolean):boolean; external 'ISPackZIP@files:ISDone.dll stdcall delayload';
function ShowChangeDiskWindow(Text, DefaultPath, SearchFile:AnsiString):boolean; external 'ShowChangeDiskWindow@files:ISDone.dll stdcall delayload';

function Exec2 (FileName, Param: PAnsiChar;Show:boolean):boolean; external 'Exec2@files:ISDone.dll stdcall delayload';
function ISFindFiles(CurComponent:Cardinal; FileMask:AnsiString; var ColFiles:integer):integer; external 'ISFindFiles@files:ISDone.dll stdcall delayload';
function ISPickFilename(FindHandle:integer; OutPath:AnsiString; var CurIndex:integer; DeleteInFile:boolean):boolean; external 'ISPickFilename@files:ISDone.dll stdcall delayload';
function ISGetName(TypeStr:integer):PAnsichar; external 'ISGetName@files:ISDone.dll stdcall delayload';
function ISFindFree(FindHandle:integer):boolean; external 'ISFindFree@files:ISDone.dll stdcall delayload';
function ISExec(CurComponent:Cardinal; PctOfTotal,SpecifiedProcessTime:double; ExeName,Parameters,TargetDir,OutputStr:AnsiString;Show:boolean):boolean; external 'ISExec@files:ISDone.dll stdcall delayload';

function SrepInit(TmpPath:PAnsiChar;VirtMem,MaxSave:Cardinal):boolean; external 'SrepInit@files:ISDone.dll stdcall delayload';
function PrecompInit(TmpPath:PAnsiChar;VirtMem:cardinal;PrecompVers:single):boolean; external 'PrecompInit@files:ISDone.dll stdcall delayload';
function FileSearchInit(RecursiveSubDir:boolean):boolean; external 'FileSearchInit@files:ISDone.dll stdcall delayload';
function ISDoneInit(RecordFileName:AnsiString; TimeType,Comp1,Comp2,Comp3:Cardinal; WinHandle, NeededMem:longint; callback:TCallback):boolean; external 'ISDoneInit@files:ISDone.dll stdcall';
function ISDoneStop:boolean; external 'ISDoneStop@files:ISDone.dll stdcall';
function ChangeLanguage(Language:AnsiString):boolean; external 'ChangeLanguage@files:ISDone.dll stdcall delayload';
function SuspendProc:boolean; external 'SuspendProc@files:ISDone.dll stdcall';
function ResumeProc:boolean; external 'ResumeProc@files:ISDone.dll stdcall';

function ProgressCallback(OveralPct,CurrentPct: integer;CurrentFile,TimeStr1,TimeStr2,TimeStr3:PAnsiChar): longword;
begin
  if OveralPct<=1000 then ImgPBSetPosition(ISDoneProgressBar1,OveralPct);
  LabelPct1.Caption := IntToStr(OveralPct div 10)+'.'+chr(48 + OveralPct mod 10)+'%';
  if CurrentPct<=1000 then ImgPBSetPosition(ISDoneProgressBar2,CurrentPct);
  LabelPct2.Caption := IntToStr(CurrentPct div 10)+'.'+chr(48 + CurrentPct mod 10)+'%';
  LabelCurrFileName.Caption:=ExpandConstant('{cm:ExtractedFile} ')+MinimizePathName(CurrentFile, LabelCurrFileName.Font, LabelCurrFileName.Width-ScaleX(100));
  LabelTime1.Caption:=ExpandConstant('{cm:ElapsedTime} ')+TimeStr2;
  LabelTime2.Caption:=ExpandConstant('{cm:RemainingTime} ')+TimeStr1;
  LabelTime3.Caption:=ExpandConstant('{cm:AllElapsedTime}')+TimeStr3;
  Result := ISDoneCancel;
  ImgApplyChanges(WizardForm.Handle);
end;

procedure CancelButtonOnClick(Sender: TObject);
begin
  SuspendProc;
  if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then ISDoneCancel:=1;
  ResumeProc;
end;

procedure HideControls;
begin
  WizardForm.FileNamelabel.Hide;
  LabelPct1.Hide;
  LabelPct2.Hide;
  LabelCurrFileName.Hide;
  LabelTime1.Hide;
  LabelTime2.Hide;
  ImgPBDelete(ISDoneProgressBar1);
  ImgPBDelete(ISDoneProgressBar2);
end;

procedure CreateControls;
var
 PBTop:integer;
begin
  PBTop:=ScaleY(50);

  //ISDoneProgressBar1:=ImgPBCreate(WizardForm.Handle, ExpandConstant('{tmp}\pbbkg.png'), ExpandConstant('{tmp}\pb.png'),ScaleX(33), ScaleY(120), ScaleX(390), ScaleY(25));

  ISDoneProgressBar2:=ImgPBCreate(WizardForm.Handle, ExpandConstant('{tmp}\pbbkg.png'), ExpandConstant('{tmp}\pb.png'),ScaleX(33), ScaleY(160), ScaleX(390), ScaleY(25));

    LabelPct1 := TLabel.Create(WizardForm);
  with LabelPct1 do begin
    Parent    := WizardForm;
    AutoSize  := False;                // %
    Width     := ScaleX(80);
    Left      := ISDoneProgressBar1.Left+ScaleX(-1);
    Top       := ISDoneProgressBar1.Top - ScaleY(19);
    Font.Size:={#FontSize};
    Font.Style := [fsBold];
    Font.Name:='Tahoma';
    Font.Color:={#FontColor};
    Transparent:= true;
  end;
    LabelPct2 := TLabel.Create(WizardForm);
  with LabelPct2 do begin
    Parent    := WizardForm;
    AutoSize  := False;                // %
    Width     := ScaleX(80);
    Left      := ISDoneProgressBar2.Left+ScaleX(-1);
    Top       := ISDoneProgressBar2.Top - ScaleY(19);
    Font.Size:={#FontSize};
    Font.Style := [fsBold];
    Font.Name:='Tahoma';
    Font.Color:={#FontColor};
    Transparent:= true;
  end;
  LabelCurrFileName := TLabel.Create(WizardForm);     // извлекается файл
  with LabelCurrFileName do begin
    Parent    := WizardForm;
    AutoSize  := False;
    Height    := ScaleY(18);
    Width     := ScaleX(380);
    Left      := ISDoneProgressBar2.Left+ScaleX(-1);
    Top       := ISDoneProgressBar2.Top+ScaleY(30);
    Font.Size:={#FontSize};
    Font.Style := [fsBold];
    Font.Name:='Tahoma';
    Font.Color:={#FontColor};
    Transparent:= true;
  end;
  LabelTime1 := TLabel.Create(WizardForm);     // прошло
  with LabelTime1 do begin
    Parent   := WizardForm;
    AutoSize := False;
    Height   := ScaleY(18);
    Width    := ScaleX(380);
    Left     := LabelCurrFileName.Left;
    Top      := LabelCurrFileName.Top + ScaleX(25);
    Font.Size:={#FontSize};
    Font.Style := [fsBold];
    Font.Name:='Tahoma';
    Font.Color:={#FontColor};
    Transparent:= true;
  end;
  LabelTime2 := TLabel.Create(WizardForm);    //   осталось
  with LabelTime2 do begin
    Parent   := WizardForm;
    AutoSize := False;
    Height   := ScaleY(18);
    Width    := LabelTime1.Width;
    Left     := LabelTime1.Left;                        
    Top      := LabelTime1.Top + ScaleX(25);
    Font.Size:={#FontSize};
    Font.Style := [fsBold];
    Font.Name:='Tahoma';
    Font.Color:={#FontColor};
    Transparent:= true;
    end;
  LabelTime3 := TLabel.Create(WizardForm);
  with LabelTime3 do begin
    Parent   := WizardForm.FinishedPage;
    AutoSize := False;
    Width    := 300;
    Left     := 100;
    Top      := 200;
  end;
end;

function CheckError:boolean;
begin
  result:= not ISDoneError;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var Comps1,Comps2,Comps3, TmpValue:cardinal;
    FindHandle1,ColFiles1,CurIndex1,tmp:integer;
    ExecError:boolean;
    InFilePath,OutFilePath,OutFileName:PAnsiChar;
begin
  if CurStep = ssInstall then begin  //Если необходимо, можно поменять на ssPostInstall
    WizardForm.ProgressGauge.Hide;
    WizardForm.CancelButton.Hide;
    CreateControls;
    WizardForm.CancelButton.OnClick := @CancelButtonOnClick;
    WizardForm.StatusLabel.Caption:=ExpandConstant('{cm:Extracted}');
    ISDoneCancel:=0;

// Распаковка всех необходимых файлов в папку {tmp}.

ExtractTemporaryFile('unarc.dll');

#ifdef PrecompInside
ExtractTemporaryFile('CLS-precomp.dll');
ExtractTemporaryFile('packjpg_dll.dll');
ExtractTemporaryFile('packjpg_dll1.dll');
ExtractTemporaryFile('precomp.exe');
ExtractTemporaryFile('zlib1.dll');
#endif
#ifdef SrepInside
ExtractTemporaryFile('CLS-srep.dll');
#endif
#ifdef facompress
    ExtractTemporaryFile('facompress.dll');
#endif
#ifdef records
    ExtractTemporaryFile('records.inf');
#endif
#ifdef precomp
  #if precomp == "0.38"
    ExtractTemporaryFile('precomp038.exe');
  #else
    #if precomp == "0.4"
      ExtractTemporaryFile('precomp040.exe');
    #else
      #if precomp == "0.41"
        ExtractTemporaryFile('precomp041.exe');
      #else
        #if precomp == "0.42"
          ExtractTemporaryFile('precomp042.exe');
        #else
          ExtractTemporaryFile('precomp038.exe');
          ExtractTemporaryFile('precomp040.exe');
          ExtractTemporaryFile('precomp041.exe');
          ExtractTemporaryFile('precomp042.exe');
        #endif
      #endif
    #endif
  #endif
#endif
#ifdef unrar
    ExtractTemporaryFile('Unrar.dll');
#endif
#ifdef XDelta
    ExtractTemporaryFile('XDelta3.dll');
#endif
#ifdef PackZIP
    ExtractTemporaryFile('7z.dll');
    ExtractTemporaryFile('PackZIP.exe');
#endif

    ExtractTemporaryFile('English.ini');

Comps1:=0; Comps2:=0; Comps3:=0;
TmpValue:=1;
if CheckMusik then Comps1:=Comps1+TmpValue; //если нужно распаковать архив Musik
TmpValue:=TmpValue*2;
if CheckAudio then Comps1:=Comps1+TmpValue; //если нужно распаковать архив Audio

#ifdef precomp
  PCFVer:={#precomp};
#else
  PCFVer:=0;
#endif
    ISDoneError:=true;
    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
//        ChangeLanguage('English');
        if not SrepInit('',512,0) then break;
        if not PrecompInit('',128,PCFVer) then break;
        if not FileSearchInit(true) then break;

        if not ISArcExtract ( 0, 0, ExpandConstant('{src}\Client.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 1, 0, ExpandConstant('{src}\Music.arc'), ExpandConstant('{app}\Data'), '', false, '', '', ExpandConstant('{app}\Data'), notPCFonFLY {PCFonFLY}) then break;
        if not ISArcExtract ( 2, 0, ExpandConstant('{src}\Sound.arc'), ExpandConstant('{app}\Data'), '', false, '', '', ExpandConstant('{app}\Data'), notPCFonFLY {PCFonFLY}) then break;
   (*
      if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
      if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data2.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
      if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data3.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
      if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data4.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
      if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data5.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
      if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data6.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;
    *)

//    далее находятся закомментированые примеры различных функций распаковки (чтобы каждый раз не лазить в справку за примерами)
(*
        if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\arc.arc'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
        if not IS7ZipExtract   ( 0, 0, ExpandConstant('{src}\CODMW2.7z'), ExpandConstant('{app}\data1'), false, '') then break;
        if not ISRarExtract    ( 0, 0, ExpandConstant('{src}\data_*.rar'), ExpandConstant('{app}'), false, '') then break;
        if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\data1024_1024.srep'),ExpandConstant('{app}\data1024.arc'), true) then break;
        if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\data.pcf'),    ExpandConstant('{app}\data.7z'), true) then break;
        if not ISxDeltaExtract ( 0, 0, 0, 640, ExpandConstant('{app}\in.pcf'), ExpandConstant('{app}\*.diff'),   ExpandConstant('{app}\out.dat'), false) then break;
        if not ISPackZIP       ( 0, 0, ExpandConstant('{app}\1a1\*'), ExpandConstant('{app}\1a1.pak'), 2, false ) then break;
        if not ISExec          ( 0, 0, 0, ExpandConstant('{tmp}\Arc.exe'), ExpandConstant('x -o+ "{src}\001.arc" "{app}\"'), ExpandConstant('{tmp}'), '...',false) then break;
        if not ShowChangeDiskWindow ('Пожалуйста, вставьте второй диск и дождитесь его инициализации.', ExpandConstant('{src}'),'CODMW_2.arc') then break;

//    распаковка группы файлов посредством внешнего приложения

        FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
        ExecError:=false;
        while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
          InFilePath:=ISGetName(0);
          OutFilePath:=ISGetName(1);
          OutFileName:=ISGetName(2);
          ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
        end;
        ISFindFree(FindHandle1);
        if ExecError then break;
*)

        ISDoneError:=false;
      until true;
      ISDoneStop;
    end;
    HideControls;
    WizardForm.CancelButton.Visible:=true;
    WizardForm.CancelButton.Enabled:=false;
  end;
  if (CurStep=ssPostInstall) and ISDoneError then begin
    Exec2(ExpandConstant('{uninstallexe}'), '/VERYSILENT', false);
  end;
end;
[/MORE]

Что надо сделать и куда вставить чтоб он заработал ?

 

[LexBell]

EvilAlex, у тебя уже готовые функции
[SOURCE="iss"]function Music: Boolean;
begin
Result:= BtnGetChecked(MusicCheck);
end;

function Sound: Boolean;
begin
Result:= BtnGetChecked(SoundCheck);
end;[/SOURCE]
вот они-то тебе и нужны. используй их вместо тех, которые я привел для примера(вместо CheckMusik и CheckAudio берешь свои Music и Sound).

 

[HoLmEs]

HoLmEs, покажи ту часть, где распаковка и я покажу, где у тебя косяк.

if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\setup-1.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\setup-2.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\setup-3.bin'), ExpandConstant('{app}\DI\Data'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_b_PC.srep'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_b_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_b_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_b_PC.rpack'), true, CallBack ) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_PC.srep'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_buildinginterior_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_buildinginterior_PC.rpack'), true, CallBack ) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.srep'), ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_jungle_b_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.srep'), ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_jungle_high_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_PC.srep'), ExpandConstant('{app}\DI\Data\bs_jungle_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_jungle_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_jungle_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_laboratory_PC.srep'), ExpandConstant('{app}\DI\Data\bs_laboratory_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_laboratory_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_laboratory_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_military_quarters_PC.srep'), ExpandConstant('{app}\DI\Data\bs_military_quarters_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_military_quarters_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_military_quarters_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_quarantine_PC.srep'), ExpandConstant('{app}\DI\Data\bs_quarantine_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_quarantine_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_quarantine_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_ship_PC.srep'), ExpandConstant('{app}\DI\Data\bs_ship_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_ship_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_ship_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_town_PC.srep'), ExpandConstant('{app}\DI\Data\bs_town_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_town_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_town_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_tunnels_PC.srep'), ExpandConstant('{app}\DI\Data\bs_tunnels_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\bs_tunnels_PC.pcf'), ExpandConstant('{app}\DI\Data\bs_tunnels_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\menuback_PC.srep'), ExpandConstant('{app}\DI\Data\menuback_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\menuback_PC.pcf'), ExpandConstant('{app}\DI\Data\menuback_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\weapons_PC.srep'), ExpandConstant('{app}\DI\Data\weapons_PC.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\weapons_PC.pcf'), ExpandConstant('{app}\DI\Data\weapons_PC.rpack'), true, CallBack) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\DI\Data\music_stream.srep'), ExpandConstant('{app}\DI\Data\music_stream.xwb'), '', true, CallBack ) then break;

 

[LexBell]

OveralPct

мдеээээ.............
OveralPct - эт че за? (простите мой французкий, но на самом деле - что это за ...)
далее. да, это цитата, но я помню, в сообщении на другом форуме, с которого цитата, пара функций была с первым параметром, отличным от нуля. беда, в общем-то была именно там.

 

[vint56]

Gnom у него версия ISDone0.4.2.5 isdone

 

[LexBell]

у него версия ISDone0.4.2.5 isdone

ясно.. опять общая беда на всех форумах - полная информация считается страшным секретом и ее предоставление страшным западлом...

 

[HoLmEs]

Gnom у него версия ISDone0.4.2.5 isdone

именно, так как мне решить мою проблемку?

 

[vint56]

HoLmEs ты когда делал первую установку ты все компоненты включил что создался records.inf если ты их не включил потому они не работают