3JIou_CKuH
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте. Прошу прощения если написал не в тот раздел, не могли бы кто нибудь из знающих подсказать мне по одному вопросу...
Я использую библиотеку Bass.dll для проигрывания музыки при инсталляции, вот код:
Код: const
BASS_SAMPLE_LOOP = 4;
var
mp3Handle: HWND;
mp3Name: String;
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; offset1: DWORD; offset2: DWORD; length1: DWORD; length2: 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_Stop: Boolean; external 'BASS_Stop@files:Bass.dll stdcall delayload';
function BASS_Free: Boolean; external 'BASS_Free@files:Bass.dll stdcall delayload';
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Bass.dll');
ExtractTemporaryFile('1.mp3');
mp3Name := ExpandConstant('{tmp}\1.mp3');
BASS_Init(-1, 44100, 0, 0, 0);
mp3Handle := BASS_StreamCreateFile(FALSE, PAnsiChar(mp3Name), 0, 0, 0, 0, BASS_SAMPLE_LOOP);
BASS_Start();
BASS_ChannelPlay(mp3Handle, False);
Result := True;
end;
procedure DeinitializeSetup();
begin
BASS_Stop();
BASS_Free();
end; |
Так же хочу использовать код, который позволяет открыть браузер с определённой ссылкой после закрытия инсталлятора:
Код: procedure DeinitializeSetup();
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://www.google.ru/',
'', '', SW_SHOW, ewNoWait, ErrorCode);
end; |
Каким образом можно совместить эти коды? В скриптинге я не силён, поэтому и спрашиваю... |
