[Rikill]

возможно помогу и скрипт будет в этом сообщении.

---

на версии от рестулз всё прошло удачно при комментировании строчек (ибо у меня нет этих файлов)

Код:

SetupIconFile=N.ico
WizardImageFile=embedded\Blue.bmp
WizardSmallImageFile=embedded\Blue.bmp

[Files]
Source: "{app}\*"; DestDir: "{app}"; AfterInstall: ExtLog(); Flags: replacesameversion createallsubdirs recursesubdirs

[Languages]
Name: "Russian"; MessagesFile: "embedded\Russian.isl";

[ivsatel]

(ибо у меня нет этих файлов) »

Тут думаю дело не в файлах, а в Procedure InitializeWizard();.

[Rikill]

ivsatel, а в чём, если без файлов всё прошло хорошо

---

UPD
выявил ошибку, сейчас исправлю

---

Скачать исправленное, проблема была в процентах.

[ivsatel]

Rikill, Спасибо огромное!!! Работает!

[Dark_Delphin]

Всем добрый вечер)!

Что нужно добавить в эту строку что-бы текстура мюзикбутон была поверх всего?

Код:

BASS_Init(ExpandConstant('{tmp}\Music.mp3'))          // музыку
  BASS_CreateOnOffButton(ExpandConstant('{tmp}\MusicButton.png'), 185, 325, 27, 27, 4)             // вкл/выкл

[Rikill]

ntrx,

Код:

var
  MusicButton, mp3Handle: HWND;
  mp3Name: String;

const
  BASS_ACTIVE_PAUSED   = 3;
  BASS_SAMPLE_LOOP     = 4;

#include "models\botva2.iss"

function BASS_Init(device: Integer; freq, flags: DWORD; win: hwnd; CLSID: Integer): Boolean; external 'BASS_Init@files:BASS.dll stdcall delayload';
function BASS_StreamCreateFile(mem: BOOL; f: PAnsiChar; offset: DWORD; length: DWORD; flags: DWORD): DWORD; external 'BASS_StreamCreateFile@files:BASS.dll stdcall delayload';
function BASS_Start: Boolean; external 'BASS_Start@files:BASS.dll stdcall delayload';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): Boolean; external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';
function BASS_ChannelIsActive(handle: DWORD): Integer; external 'BASS_ChannelIsActive@files:BASS.dll stdcall delayload';
function BASS_ChannelPause(handle: DWORD): Boolean; external 'BASS_ChannelPause@files:BASS.dll stdcall delayload';
function BASS_Pause: Boolean; external 'BASS_Pause@files:BASS.dll stdcall delayload';
function BASS_Stop: Boolean; external 'BASS_Stop@files:BASS.dll stdcall delayload';
function BASS_Free: Boolean; external 'BASS_Free@files:BASS.dll stdcall delayload';

procedure MusicButtonClick(hBtn:HWND);
begin
  if BtnGetChecked(MusicButton) then BASS_ChannelPause(mp3Handle)
    else if BASS_ChannelIsActive(mp3Handle)=BASS_ACTIVE_PAUSED then BASS_ChannelPlay(mp3Handle, False);
end;

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

procedure InitializeWizard;
begin
  ExtractTemporaryFile('Music.mp3');
  ExtractTemporaryFile('MusicButton.png');
  ExtractTemporaryFile('BASS.dll');

  MusicButton:=BtnCreate(WizardForm.Handle,ScaleX(50),ScaleY(50),ScaleX(36),ScaleY(36),ExpandConstant('{tmp}\MusicButton.png'),0,True);
  BtnSetEvent(MusicButton,BtnClickEventID,WrapBtnCallback(@MusicButtonClick,1));
  BtnSetVisibility(MusicButton,True);
  BtnSetCursor(MusicButton,GetSysCursorHandle(32649));

  mp3Name:=ExpandConstant('{tmp}\Music.mp3');
  BASS_Init(-1,44100,0,0,0);
  mp3Handle:=BASS_StreamCreateFile(FALSE,PAnsiChar(mp3Name),0,0,BASS_SAMPLE_LOOP);
  BASS_Start;
  BASS_ChannelPlay(mp3Handle,False);
end;

procedure DeinitializeSetup;
begin
    BASS_Stop;
    BASS_Free;
    gdipShutdown;
    end;

удали старое всё, кроме файла botva2.iss. BASS_Module.iss можешь удалить, эта кнопка проявляется везде, мне помогло
старый bass.dll замени этим
доделал

---

короче этот скрипт для кода у которого используется
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;

нужны файлы:
botva2.iss
Music.mp3
MusicButton.png
BASS.dll
botva2.dll
innocallback.dll

[Rikill]

Neutron, это пока не твой уровень, советую просто переделать скрипт от юршата или этот http://rghost.ru/5496789

---

ок, тогда скачивай от юршата и проявляй страницы как там
пример:

Код:

[CustomMessages]
russian.Welcome1=Дарова Васяня!

[код]
var
WelcomeLabel1: TLabel

procedure InitializeWizard(); 
begin
  WelcomeLabel1:= TLabel.Create(WizardForm);
  with WelcomeLabel1 do begin
    AutoSize:=False;
    SetBounds(ScaleX(100), ScaleY(85), ScaleX(350), ScaleY(45));
    WordWrap:=True;
    Alignment := taCenter;
    Transparent:=True;
    Font.Name:='Comic Sans MS';
    Font.Size:= 11;
    Font.Color:=$FFFFFF;
    Caption:= ExpandConstant('{cm:Welcome1}');
    Parent:=WizardForm;
  end;
end;

procedure CurPageChanged(CurPageID: Integer); 
begin
  WelcomeLabel1.hide;
  case CurPageID of
    wpWelcome: begin
      WelcomeLabel1.Show;
    end;
end;

---

скачивать скрипт от юршата для того чтобы смотреть как там сделаны страницы!!!!

[VinTagE]

Neutron, Если я понял, то тебе нужен статус панель на ботве то вот пример:
Скачать статус панель от Shegorat
P.S> Там разобратся не трудно!