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

Nightwishh · Конфигурация компьютера

Добрый день! Проблемка.

Код:

[Setup]
AppName=Example.Play.MP3.Music.On.Start.Up.With.Texture
AppVerName=Example.Play.MP3.Music.On.Start.Up.With.Texture
AppPublisher=genri.sampron.iTASmania_Inc.uncle
DefaultDirName=C:\Play.MP3
OutputBaseFilename=play.mp3.by.genri.sampron.iTASmania_Inc.uncle


[Files]
Source: BASS.dll; DestDir: {tmp}; Flags: dontcopy noencryption
Source: sound.mp3; DestDir: {tmp}; Flags: dontcopy noencryption nocompression
Source: MusicButton.bmp; DestDir: {tmp}; Flags: dontcopy


[ Code]
const
  BASS_ACTIVE_STOPPED = 0;
  BASS_ACTIVE_PLAYING = 1;
  BASS_ACTIVE_STALLED = 2;
  BASS_ACTIVE_PAUSED = 3;
  BASS_SAMPLE_LOOP = 4;

var
  mp3Handle: HWND;
  mp3Name: String;
  PlayButton, PauseButton, StopButton: TPanel;
  PlayImage, PauseImage, StopImage: TBitmapImage;
  PlayLabel, PauseLabel, StopLabel: TLabel;
  MouseLabel: Tlabel;
  MouseSiteLabel, SiteLabel: TLabel;

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: PChar; 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_Stop(): Boolean;
  external 'BASS_Stop@files:BASS.dll stdcall delayload';

function BASS_Pause(): Boolean;
  external 'BASS_Pause@files:BASS.dll stdcall delayload';

function BASS_Free(): Boolean;
  external 'BASS_Free@files:BASS.dll stdcall delayload';

procedure PlayMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PlayImage.Left := -96
end;

procedure PlayMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PlayImage.Left := 0
end;

procedure PlayMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if PlayImage.Left <> -96 then PlayImage.Left := -192
  StopImage.Left := -64
end;

procedure PauseMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PauseImage.Left := -128
end;

procedure PauseMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  PauseImage.Left := -32
end;

procedure PauseMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if PauseImage.Left <> -128 then PauseImage.Left := -224
  StopImage.Left := -64
end;

procedure StopMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  StopImage.Left := -160
end;

procedure StopMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  StopImage.Left := -64
end;

procedure StopMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if StopImage.Left <> -160 then StopImage.Left := -256
  PlayImage.Left := 0
  PauseImage.Left := -32
end;

procedure SiteLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
  ShellExec('open', 'http://forum.ru-board.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=clRed
end;

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=clBlue
end;

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=clGreen
end;

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  SiteLabel.Font.Color:=clBlue
end;

procedure MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  PlayImage.Left := 0
  PauseImage.Left := -32
  StopImage.Left := -64
end;

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('sound.mp3');
  mp3Name := ExpandConstant('{tmp}\sound.mp3');
  BASS_Init(-1, 44100, 0, 0, 0);
  mp3Handle := BASS_StreamCreateFile(FALSE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP);
  BASS_Start();
  BASS_ChannelPlay(mp3Handle, False);
  Result := True;
end;

procedure PlayButtonOnClick(Sender: TObject);
begin
  case BASS_ChannelIsActive(mp3Handle) of
    BASS_ACTIVE_PAUSED:
      begin
        BASS_ChannelPlay(mp3Handle, False);
        PlayButton.Hide
        PauseButton.Show
      end;
    BASS_ACTIVE_STOPPED:
      begin
        BASS_Init(-1, 44100, 0, 0, 0);
        mp3Handle := BASS_StreamCreateFile(FALSE, PChar(mp3Name), 0, 0, BASS_SAMPLE_LOOP);
        BASS_Start();
        BASS_ChannelPlay(mp3Handle, False);
        PlayButton.Hide
        PauseButton.Show
      end;
  end;
end;

procedure PauseButtonOnClick(Sender: TObject);
begin
  BASS_ChannelPause(mp3Handle);
  PauseButton.Hide
  PlayButton.Show
end;

procedure StopButtonOnClick(Sender: TObject);
begin
  BASS_Stop();
  BASS_Free();
  PauseButton.Hide
  PlayButton.Show
end;

procedure InitializeWizard();
begin
  ExtractTemporaryFile('MusicButton.bmp')

  WizardForm.WizardBitmapImage.Parent:= WizardForm
  WizardForm.WizardBitmapImage.Height:= WizardForm.Height
  MouseLabel := TLabel.Create(WizardForm)
    MouseLabel.Width := WizardForm.Width
    MouseLabel.Height := WizardForm.Height
    MouseLabel.Autosize := False
    MouseLabel.Transparent := True
    MouseLabel.OnMouseMove := @MouseMove
    MouseLabel.Parent := WizardForm

  PlayButton := TPanel.Create(WizardForm)
    PlayButton.Left := 50
    PlayButton.Top := 320
    PlayButton.Width := 32
    PlayButton.Height := 33
    PlayButton.Cursor := crHand
    PlayButton.ShowHint := True
    PlayButton.Hint := 'Воспроизведение музыки'
    PlayButton.OnClick := @PlayButtonOnClick
    PlayButton.Parent := WizardForm

  PlayImage := TBitmapImage.Create(WizardForm)
    PlayImage.Left := 0
    PlayImage.Top := 0
    PlayImage.Width := 288
    PlayImage.Height := 33
    PlayImage.Enabled := False
    PlayImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicButton.bmp'))
    PlayImage.Parent := PlayButton
//
    PlayImage.ReplaceColor:=$E2E2E2
    PlayImage.ReplaceWithColor:=clBtnFace


  PlayLabel := TLabel.Create(WizardForm)
    PlayLabel.Width := PlayButton.Width
    PlayLabel.Height := PlayButton.Height
    PlayLabel.Autosize := False
    PlayLabel.Transparent := True
    PlayLabel.OnClick := @PlayButtonOnClick
    PlayLabel.OnMouseDown := @PlayMouseDown
    PlayLabel.OnMouseUp := @PlayMouseUp
    PlayLabel.OnMouseMove := @PlayMouseMove
    PlayLabel.Parent := PlayButton

  PauseButton := TPanel.Create(WizardForm)
    PauseButton.Left := 50
    PauseButton.Top := 320
    PauseButton.Width := 32
    PauseButton.Height := 33
    PauseButton.Cursor := crHand
    PauseButton.ShowHint := True
    PauseButton.Hint := 'Приостановить музыку'
    PauseButton.OnClick := @PauseButtonOnClick
    PauseButton.Parent := WizardForm

  PauseImage := TBitmapImage.Create(WizardForm)
    PauseImage.Left := -32
    PauseImage.Top := 0
    PauseImage.Width := 288
    PauseImage.Height := 33
    PauseImage.Enabled := False
    PauseImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicButton.bmp'))
    PauseImage.Parent := PauseButton
//
    PauseImage.ReplaceColor:=$E2E2E2
    PauseImage.ReplaceWithColor:=clBtnFace

  PauseLabel := TLabel.Create(WizardForm)
    PauseLabel.Width := PauseButton.Width
    PauseLabel.Height := PauseButton.Height
    PauseLabel.Autosize := False
    PauseLabel.Transparent := True
    PauseLabel.OnClick := @PauseButtonOnClick
    PauseLabel.OnMouseDown := @PauseMouseDown
    PauseLabel.OnMouseUp := @PauseMouseUp
    PauseLabel.OnMouseMove := @PauseMouseMove
    PauseLabel.Parent := PauseButton

  StopButton := TPanel.Create(WizardForm)
    StopButton.Left := 82
    StopButton.Top := 320
    StopButton.Width := 32
    StopButton.Height := 33
    StopButton.Cursor := crHand
    StopButton.ShowHint := True
    StopButton.Hint := 'Остановить музыку'
    StopButton.OnClick := @StopButtonOnClick
    StopButton.Parent := WizardForm

  StopImage := TBitmapImage.Create(WizardForm)
    StopImage.Left := -64
    StopImage.Top := 0
    StopImage.Width := 288
    StopImage.Height := 33
    StopImage.Enabled := False
    StopImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\MusicButton.bmp'))
    StopImage.Parent := StopButton
//
    StopImage.ReplaceColor:=$E2E2E2
    StopImage.ReplaceWithColor:=clBtnFace

  StopLabel := TLabel.Create(WizardForm)
    StopLabel.Width := StopButton.Width
    StopLabel.Height := StopButton.Height
    StopLabel.Autosize := False
    StopLabel.Transparent := True
    StopLabel.OnClick := @StopButtonOnClick
    StopLabel.OnMouseDown := @StopMouseDown
    StopLabel.OnMouseUp := @StopMouseUp
    StopLabel.OnMouseMove := @StopMouseMove
    StopLabel.Parent := StopButton

    MouseSiteLabel:=TLabel.Create(WizardForm)
    MouseSiteLabel.Width:=WizardForm.Width
    MouseSiteLabel.Height:=WizardForm.Height
    MouseSiteLabel.Autosize:=False
    MouseSiteLabel.Transparent:=True
    MouseSiteLabel.OnMouseMove:= @SiteLabelMouseMove2
    MouseSiteLabel.Parent:=WizardForm

    SiteLabel:=TLabel.Create(WizardForm)
    SiteLabel.Left:=200
    SiteLabel.Top:=330
    SiteLabel.Cursor:=crHand
    SiteLabel.Font.Color:=clBlue
    SiteLabel.Caption:='Forum Ru-Board'
    SiteLabel.OnClick:=@SiteLabelOnClick
    SiteLabel.OnMouseDown:=@SiteLabelMouseDown
    SiteLabel.OnMouseUp:=@SiteLabelMouseUp
    SiteLabel.OnMouseMove:=@SiteLabelMouseMove
    SiteLabel.Parent:=WizardForm
end;

procedure DeinitializeSetup();
begin
  BASS_Stop();
  BASS_Free();
end;

В этом скрипте музыка с кнопками управления на которых лежат текстуры и я прилепил кликабельную ссылку. И теперь когда убираешь курсор мыши с муз. кнопки, кнопка не меняет текстуру на первоначальную, а остаётся как при наведении. По-моему всё дело в

Код:

MouseSiteLabel:=TLabel.Create(WizardForm)
    MouseSiteLabel.Width:=WizardForm.Width
    MouseSiteLabel.Height:=WizardForm.Height
    MouseSiteLabel.Autosize:=False
    MouseSiteLabel.Transparent:=True
    MouseSiteLabel.OnMouseMove:= @SiteLabelMouseMove2
    MouseSiteLabel.Parent:=WizardForm

или в

Код:

MouseLabel := TLabel.Create(WizardForm)
    MouseLabel.Width := WizardForm.Width
    MouseLabel.Height := WizardForm.Height
    MouseLabel.Autosize := False
    MouseLabel.Transparent := True
    MouseLabel.OnMouseMove := @MouseMove
    MouseLabel.Parent := WizardForm

Но я не могу понять, почему они не могут дружить друг с другом?

GolD18 · Отправлено: **13:57, 16-04-2013** | #**202**

Помогите еще раз) С черным инсталлом стала сливаться верхняя надпись. Где изменить у нее цвет или сделать чтобы она была видна?

vint56 · Отправлено: **14:37, 16-04-2013** | #**203**

GolD18

Gnom_aka_Lexander · Отправлено: **15:23, 16-04-2013** | #**204**

GolD18, моя вариация черного инсталла, на базе реализации модуля TransparentStatik от south:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[*Code]
const
  bColor=clBlack;  // Цвет фона
  fColor=clWhite;  // Цвет текста
  rColor=clBtnFace;// Цвет цвет прозрачности у битмапов

procedure ColorChange(c:TWinControl);
var
  i:integer;
  wc:TWinControl;
begin
  for i:=0 to c.ControlCount-1 do
  begin
    if c.Controls[i] is TGraphicControl then
    begin
      if TGraphicControl(c.Controls[i]) is TBevel then TBevel(c.Controls[i]).Height := 1;
      if TGraphicControl(c.Controls[i]) is TBitmapImage then
      begin
        TBitmapImage(c.Controls[i]).BackColor := clNone;
        TBitmapImage(c.Controls[i]).ReplaceColor := rColor;
        TBitmapImage(c.Controls[i]).ReplaceWithColor := clNone;
      end;
    end;
    if c.Controls[i] is TWinControl then
    begin
      wc:=TWinControl(c.Controls[i]);
      if wc is TNewStaticText then TNewStaticText(c.Controls[i]).Font.Color := fColor;
      if wc is TNewNotebookPage then TNewNotebookPage(c.Controls[i]).Color := bColor;
      if wc is TPanel then TPanel(c.Controls[i]).Color := bColor;
      if wc is TRichEditViewer then
      begin
        TRichEditViewer(c.Controls[i]).Color := bColor;
        TRichEditViewer(c.Controls[i]).Font.Color := fColor;
      end;
      if wc is TMemo then
      begin
        TMemo(c.Controls[i]).Color := bColor;
        TMemo(c.Controls[i]).Font.Color := fColor;
      end;
      if wc is TEdit then
      begin
        TEdit(c.Controls[i]).Color := bColor;
        TEdit(c.Controls[i]).Font.Color := fColor;
      end;
      if wc is TNewEdit then
      begin
        TNewEdit(c.Controls[i]).Color := bColor;
        TNewEdit(c.Controls[i]).Font.Color := fColor;
      end;
      if wc.ControlCount>0 then ColorChange(wc);
    end;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.Color := bColor;
  ColorChange(WizardForm);
end;

procedure InitializeUninstallProgressForm();
begin
  UninstallProgressForm.Color := bColor;
  ColorChange(UninstallProgressForm);
end;

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

ilya_klimovich · Отправлено: **16:46, 16-04-2013** | #**205**

В is done прописал

Цитата:

if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;

в процессе установке игры, сразу пишет откат изменений и ничего не устанавливается, как исправить?

vint56 · Отправлено: **17:04, 16-04-2013** | #**206**

ilya_klimovich
if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

ilya_klimovich · Отправлено: **17:06, 16-04-2013** | #**207**

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

vint56 · Отправлено: **17:23, 16-04-2013** | #**208**

ilya_klimovich почти после установки тебе на раскаментировать records и заново откомпилировать проект чтобы файл records добавился в setup

ilya_klimovich · Отправлено: **18:35, 16-04-2013** | #**209**

после того как прописываю

Цитата:

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

выбивается ошибка при компиляции

Цитата:

unknown identifier" notPCFonFLY"

Nightwishh · Конфигурация компьютера

ilya_klimovich, Попробуй так

Код:

if not ISArcExtract ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), False {PCFonFLY}) then break;