[Sserss]

Спасибо огромное за быстрый ответ. Попробую разобраться.

[BlackSelf]

Здравствуйте. Появилось ещё пару вопросов.
1. Как поставить прозрачность на секцию messages (чтобы текст отображался, а фон этого текста стал прозрачным)? И возможно ли это?
2. Вставил проигрывание музыки в инсталл. Нужно создать кнопку пауза/проигрывание. Подскажите, как это сделать.
3. В общем, возможно ли сделать следующее: при распаковке архивов фриарка во временной папке создавать лог. А из него как-нибудь брать проценты распаковки и выводить их на прогресс-бар?

[Serega]

BlackSelf,
1. В сообщение проблема установить свой рисунок, не говоря уже о прозрачности, но можно попробовать создать новую форму, а уже её попытаться сделать полупрозрачной, но даже и при таком раскладе не получится сделать видимым один текст... т.е. чем прозрачней форма, тем тусклее текст.

2. Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.mycompany.com
AppSupportURL=http://www.mycompany.com
AppUpdatesURL=http://www.mycompany.com
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"

[Files]
Source: compiler:Libraries\BASSMOD.dll; Flags: dontcopy
; указываем музыку, которую надо проиграть
Source: mattis-lowsi_jeti_maah.mod; Flags: dontcopy

[_Code]
const
  BASS_MUSIC_RAMP         = 1;      // normal ramping (only for Fast Tracker .xm)
  BASS_MUSIC_RAMPS        = 2;      // sensitive ramping (only for Fast Tracker .xm)
  BASS_MUSIC_LOOP         = 4;      // loop music
  BASS_MUSIC_FT2MOD       = 16;     // play .MOD as FastTracker 2 does
  BASS_MUSIC_PT1MOD       = 32;     // play .MOD as ProTracker 1 does
  BASS_MUSIC_SURROUND	    = 512;    // surround sound
  BASS_MUSIC_SURROUND2	  = 1024;   // surround sound (mode 2)

function BASSMOD_Init(device: Integer; freq, flags: DWORD): Boolean;
  external 'BASSMOD_Init@files:BASSMOD.dll stdcall delayload';

procedure BASSMOD_MusicFree();
  external 'BASSMOD_MusicFree@files:BASSMOD.dll stdcall delayload';
  
function BASSMOD_MusicLoad(mem: BOOL; f: PChar; offset: DWORD; length: DWORD; flags: DWORD): Boolean;
  external 'BASSMOD_MusicLoad@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicPlay(): Boolean;
  external 'BASSMOD_MusicPlay@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicGetPosition(): Boolean;
  external 'BASSMOD_MusicGetPosition@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicStop(): Boolean;
  external 'BASSMOD_MusicStop@files:BASSMOD.dll stdcall delayload';

function BASSMOD_MusicPause(): Boolean;
  external 'BASSMOD_MusicPause@files:BASSMOD.dll stdcall delayload';

procedure BASSMOD_Free();
external 'BASSMOD_Free@files:BASSMOD.dll stdcall delayload';

procedure PlayButtonOnClick(Sender: TObject);
var
  Name1: string;
begin
  if not BASSMOD_MusicPlay then begin
    Name1:=ExpandConstant('{tmp}\mattis-lowsi_jeti_maah.mod');
    if BASSMOD_MusicLoad(FALSE, PChar(Name1), 0, 0, 4 or 512 or 32 or 1) then
    BASSMOD_MusicPlay;
  end;
end;

procedure PauseButtonOnClick(Sender: TObject);
begin
  BASSMOD_MusicPause;
end;

procedure StopButtonOnClick(Sender: TObject);
begin
  BASSMOD_MusicStop;
  BASSMOD_MusicFree;
end;

procedure InitializeWizard();
var
  Name1: string;
  PlayButton, PauseButton, StopButton, RewButton: TButton;
  Text: TNewStaticText;
  Panel1: TPanel;
begin
  // распаковываем BASSMOD.dll во временную папку
  ExtractTemporaryFile(ExpandConstant('BASSMOD.dll'));
  // распаковываем mattis-lowsi_jeti_maah.mod во временную папку
  ExtractTemporaryFile(ExpandConstant('mattis-lowsi_jeti_maah.mod'));

  if not BASSMOD_Init(-1,44100,0) then begin
    MsgBox('BASSMOD не смогла инициализироваться, проигрывание музыки невозможно.', mbInformation, MB_OK)
    BASSMOD_Free;
  end;

  Name1:= ExpandConstant('{tmp}\mattis-lowsi_jeti_maah.mod');
  BASSMOD_MusicFree;
  if BASSMOD_MusicLoad(FALSE, PChar(Name1), 0, 0, BASS_MUSIC_LOOP or BASS_MUSIC_SURROUND) then
  BASSMOD_MusicPlay;

// создаём панель, на которой будут отбражаться кнопки
  Panel1 := TPanel.Create(WizardForm);
  with Panel1 do begin
    Parent := WizardForm;
    Left := ScaleX(1);
    Top := ScaleY(315);
    Width := ScaleX(165);
    Height := ScaleY(46);
    TabOrder := 0;
    Color := clWhite;
    BevelInner := bvLowered;
    BevelOuter:= bvRaised;
    BorderStyle := bsSingle;
  end;
// создаём три кнопки PlayButton, PauseButton, StopButton и текст Text
  PlayButton := TButton.Create(WizardForm);
  with PlayButton do begin
    Left := 5;
    Top := 335;
    Width := 50;
    Height := 20;
    Caption := 'игра';
    OnClick := @PlayButtonOnClick;
    Parent := WizardForm;
    Cursor := crHand;
    Hint := 'Воспроизведение музыки';
    ShowHint := True;
  end;
  
  PauseButton := TButton.Create(WizardForm);
  with PauseButton do begin
    Left := 58;
    Top := 335;
    Width := 50;
    Height := 20;
    Caption := 'пауза';
    OnClick := @PauseButtonOnClick;
    Parent := WizardForm;
    Cursor := crHand;
    Hint := 'Приостановить музыку';
    ShowHint := True;
  end;
  
  StopButton := TButton.Create(WizardForm);
  with StopButton do begin
    Left := 111;
    Top := 335;
    Width := 50;
    Height := 20;
    Caption := 'cтоп';
    OnClick := @StopButtonOnClick;
    Parent := WizardForm;
    Cursor := crHand;
    Hint := 'Остановить музыку';
    ShowHint := True;
  end;
  
  Text := TNewStaticText.Create(WizardForm);
  with Text do begin
    Caption := 'музыка инсталлятора';
    Parent := WizardForm;
    Font.Style := Text.Font.Style + [fsUnderline];
    Font.Color := clNavy;
    Top := 319;
    Left :=26;
    Color := clWhite;
  end;
end;

3. Не знаю, я с фриарком не знаком.
Мне интересно, что так все носятся с этим фриарком? Мне кажется 7z пакует намного лучше...
Если интересно, в этом сообщении я выкладывал ссылку на библиотеку is7z.dll, для показа хода распаковки 7z архивов во втором прогрессбаре.

[BlackSelf]

Serega_, спасибо.
А насчет фриарка: он пакует лучше, поэтому я предпочитаю работать именно с ним.

[Drongo]

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

а менялись, скажем, после каждых пяти процентов установленной игры? »

Или по какому-то алгоритму, чтобы 26 картинок, не повторялись, а общие 100 % установки делились на 25-26 и менялись бы с интервалом, в 4 %

там единственное идёт показ по времени, где-то у меня был пример по процентам, поищу... »

Это не критично и не срочно. Если есть такой код - хорошо, нет - ничего страшного.

[BlackSelf]

Drongo, если я правильно понял, то тебе нужно слайдшоу по процентам установки.
Вот пример с тремя картинками. Думаю, будет понятно, как поставить 25 картинок.

Пример

[Setup]
AppName=My Program
AppVerName=My Program
CreateAppDir=No
WindowVisible=Yes

[Files]
Source: innocallback.dll; DestDir: {tmp}; Flags: dontcopy
Source: pic1.bmp; DestDir: {tmp}; Flags: dontcopy
Source: pic2.bmp; DestDir: {tmp}; Flags: dontcopy
Source: pic3.bmp; DestDir: {tmp}; Flags: dontcopy

[code]
type
TProc=procedure(HandleW, msg, idEvent, TimeSys: LongWord);
var
BackgroundBitmapImage: TBitmapImage;
TimerID: LongWord;

function WrapTimerProc(callback:TProc; paramcount:integer):longword;
external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd: LongWord; nIDEvent, uElapse: LongWord; lpTimerFunc: LongWord): LongWord;
external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: LongWord; nIDEvent: LongWord): LongWord;
external 'KillTimer@user32.dll stdcall';
function GetSystemMetrics(nIndex:Integer):Integer;
external 'GetSystemMetrics@user32.dll stdcall';

procedure InitializeWizard();
begin
ExtractTemporaryFile('pic1.bmp')
ExtractTemporaryFile('pic2.bmp')
ExtractTemporaryFile('pic3.bmp')
end;

function PercentProgress(): Integer;
begin
with WizardForm.ProgressGauge do begin
Result:=(Position-Min)/((Max - Min)/100)
end
end;

procedure OnTimer(HandleW, msg, idEvent, TimeSys: LongWord);
var
percent: integer;
begin
percent:=PercentProgress
with BackgroundBitmapImage do begin
if ((percent>0) and (percent<33) and (Tag<>1)) then begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic1.bmp')
Tag:=1
end else
if ((percent>34) and (percent<66) and (Tag<>2)) then begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic2.bmp')
Tag:=2
end else
if ((percent>67) and (percent<100) and (Tag<>3)) then begin
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic3.bmp')
Tag:=3
end
end
end;

procedure CurPageChanged(CurPageID: Integer);
var
pfunc: LongWord;
Width, Height: Integer;
begin
If CurPageID=wpInstalling
then
begin
pfunc:=WrapTimerProc(@OnTimer, 4)
TimerID:=SetTimer(0, 0, 500, pfunc)
BackgroundBitmapImage:=TBitmapImage.Create(MainForm)
with BackgroundBitmapImage do begin
BackColor:=clBlack
Center:=True
Align:=alClient
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\pic1.bmp')
Parent:=MainForm
Tag:=1
end
end
if CurPageID=wpFinished
then
begin
BackgroundBitmapImage.Hide
end
end;

procedure DeinitializeSetup();
begin
KillTimer(0, TimerID)
end;

[tem000]

Serega_, подскажи пожалуйста если знаешь, как в свойствах ярлыка прописать вот эти пункты

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

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

[boss911]

tem000

Код:

[Icons]
Name: {userdesktop}\IrfanView 3.95; Filename: {app}\i_view32.exe; Parameters: /thumba; WorkingDir: {app}; Comment: IrfanView - Thumbnails

{userdesktop} - путь к папке рабочего стола текущего пользователя.
{userprograms} - путь к папке Программы меню Пуск текущего пользователя.

[tem000]

boss911, спасибо помогло все работает, но еще вопрос теперь на столе появляются две абсолютно одинаковые иконки, хотя у этих 2 программ они разные, и в .exe файле есть своя иконка для второго приложения. Короче при инсталяции на рабочем столе в свойствах ярлыка приходится менять иконку на другую. Откуда можно выковырять насторйки какой значек отображать на рабочем столе?

[Serega]

tem000,

Код:

[Icons]
Name: {userdesktop}\IrfanView 3.95; Filename: {app}\i_view32.exe; Parameters: /thumba; WorkingDir: {app}; Comment: IrfanView - Thumbnails; IconFilename: {app}\i_view32.exe; IconIndex: 0

IconFilename - Имя файла иконки (расположенной в системе пользователя). Это может быть изображение с расширением .exe или .dll, содержащее иконки, или файл .ico;
IconIndex - индекс иконки, если не указывать, то по умолчанию 0.