[Farser21]

Всем привет! Столкнулся с такой проблемой. У меня в установщике есть скрипт в разделе [code] который проигрывает музыку. Но я еще хочу перекрасить свою инсталку в черный цвет. Что и куда надо вставить чтобы скрипты не мешали друг другу и у меня был черный инстал) Заранее спасибо!

Вот код:

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

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

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 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')

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
end;

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

[Антон_Мураткин@vk]

Доброе время суток! Подскажите как сделать чтобы после установки программы, игры и т.п появлялись два разных ярлыка с разными названиями. Какой код и в какую секцию прописать
Заранее благодарю!

[Nordek]

Антон_Мураткин@vk,

Код:

[Icons]
Name: {commondesktop}\My Program 1; Filename: {app}\MyProg.exe
Name: {commondesktop}\My Program 2; Filename: {app}\MyProg.exe

Если нужно чтоб ещё было в зависимости от выбора в задачах, то

Код:

[Tasks]
Name: desktopicon1; Description: {cm:CreateDesktopIcon} 1; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked
Name: desktopicon2; Description: {cm:CreateDesktopIcon} 2; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Icons]
Name: {commondesktop}\My Program 1; Filename: {app}\MyProg.exe; Tasks: desktopicon1
Name: {commondesktop}\My Program 2; Filename: {app}\MyProg.exe; Tasks: desktopicon2

[Антон_Мураткин@vk]

Nordek, Благодарю!

А как сделать так чтобы эти два ярлыка запускали разные проги например: MyProg_86.exe и MyProg_64.exe чтобы было для каждой версии винды. Как это организовать?

[vint56]

Антон_Мураткин@vk
[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Tasks]
Name: desktopicon; Description: {cm:CreateDesktopIcon}; GroupDescription: {cm:AdditionalIcons}; Flags: unchecked

[Icons]
Name: {commondesktop}\My Program 1; Filename: {app}\MyProg32.exe; Tasks: desktopicon; Check: Not IsWin64
Name: {commondesktop}\My Program 2; Filename: {app}\MyProg64.exe; Tasks: desktopicon; Check: IsWin64

Farser21
http://rghost.ru/48897864

[Антон_Мураткин@vk]

vint56, Благодарю! Но в этой строчки наверное должно быть 32? Name: {commondesktop}\My Program 1; Filename: {app}\MyProg32.exe; Tasks: desktopicon; Check: Not IsWin64 здесь наверное должно быть 32?


Name: {commondesktop}\My Program 2; Filename: {app}\MyProg64.exe; Tasks: desktopicon; Check: IsWin64


И ещё вопросик. Как сделать удаление проги,игры и т.п? А то у меня какие то ошибки вылазиют при запуске удаления

[Nordek]

здесь наверное должно быть 32? »

Что 32?

Код:

; Check: Not IsWin64
; Check: IsWin64

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

Как сделать удаление проги,игры и т.п? А то у меня какие то ошибки вылазиют при запуске удаления »

Код:

[Icons]
Name: {group}\{cm:UninstallProgram,Название программы}; Filename: {uninstallexe}

[Антон_Мураткин@vk]

Nordek, Всё понял просто не догнал чуть-чуть.

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

Мне это не обязательно.

Главное чтобы были два ярлыка на раб.столе и выбрать ярлык что бы запускать на своей разрядности системы. Вот мне как надо.

Создались два ярлыка на раб.столе
Пример: Program_32 Program_64
У меня система _32
У тебя например _64

Тогда с раб.стола я запускаю Program_32
А ты запускаешь Program_64

И опять же на пример: Есть папка Win32 и Win64 в них соответственно свой ехе файл как мне сделать как я писал выше про ярлыки? Что то совсем запутался

[vint56]

Антон_Мураткин@vk тот пример который я привёл там будет создаваться один ярлык от разрядности системы если система 32 то ярлык будет MyProg32.exe если 64 MyProg64.exe просто зачем в 32 двух битной системе ярлык от 64

[Icons]
Name: {commondesktop}\My Program 1; Filename: {app}\Win32\MyProg32.exe; Workingdir: {app}\Win32; Tasks: desktopicon; Check: Not IsWin64
Name: {commondesktop}\My Program 2; Filename: {app}\Win64\MyProg64.exe; Workingdir: {app}\Win64; Tasks: desktopicon; Check: IsWin64

[Антон_Мураткин@vk]

vint56, Ок с этим ясно.А какой же например брать ехе файл? что бы было как ты написал про ярлыки