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

[Rikill]

R.i.m.s.k.y., да но у меня стоит игра оригинал, если я начну устанавливать ее даже на другую портицию она станет нормально , но все траблы начнутся после установки

http://rghost.ru/16189801

есть какой-то способ увеличить скорость компиляции , а то опять ждать ~25 мин




Цитата R.i.m.s.k.y.:



Microsoft Virtual PC

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

нет, использую Oracle VM VirtualBox

[Rikill]

Цитата bagrat:



есть какой-то способ увеличить скорость компиляции , а то опять ждать ~25 мин

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

купить коре 2600к и разогнать до 4,5ГГц

или временно для проверки как я выше написал в секции Files делать заглушки из пустых папок


Цитата bagrat:



но все траблы начнутся после установки

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

так это при удалении ошибки? тыж писал что при установке!

[ivsatel]

bagrat, проблема либо в exe либо в виртуалке, инно не виновна, ну или на другой диск, скорее всего кряк гумно

[Rikill]

Rikill, нет не кряк, ввожу сирийник вручную


Цитата R.i.m.s.k.y.:



так это при удалении ошибки? тыж писал что при установке!

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

ошибка

- при запуске ярлыка игры!



а при удалении

http://s1.ipicture.ru/uploads/20110729/kB0ITs1P.jpg

[ivsatel]

Цитата R.i.m.s.k.y.:



ну кроме WizardForm.Bevel1.visible, в оригинале в инно нет переменных с цифрами

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

Хм, кто тебе это сказал? Из справки (F1):



Код:

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

TWizardForm = class(TSetupForm)
property Bevel1: TBevel; read;

[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]

Цитата bagrat:



это для пояснения пользователям

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

Так сказать, комментарии.

А писать или нет - тебе решать.

[Johny777]

Подскажите пожалуйста как растянуть внутренне окно окно

в дизайнере не активно

http://s50.radikal.ru/i129/1107/37/5c69c8346650.jpg