hola, bueno estuve probando con el setup factory pero no se porque, hay problemas de extraer el archivo, no me acepta el código de extracción, así que estoy pasando todo el instalador a inno setup, así que va a ver movimiento de cosas a pedir ayuda, si no me sale ;)
así que tengo un problema con el tema música. Encontre por internet el codigo
2. Bass Audio Library
Or you can use for instance the Bass Audio http://www.un4seen.com/bass.html (http://www.un4seen.com/bass.html) library, which is free for non-commercial use. To play for instance an infinite loop with that library, you might use script like follows.
This script and the library are compatible with both versions of Inno Setup, ANSI and Unicode.
[Setup]
AppName=Bass Audio Project
AppVersion=1.0
DefaultDirName={pf}\Bass Audio Project esto lo quite de mi instaldor
[Files]
Source: "Bass.dll"; Flags: dontcopy
Source: "AudioFile.mp3"; Flags: dontcopy ahi le puse la carpeta donde esta el archivo con el c/issi/musica.mp3
const
BASS_SAMPLE_LOOP = 4;
BASS_UNICODE = $80000000;
BASS_CONFIG_GVOL_STREAM = 5;
const
#ifndef UNICODE
EncodingFlag = 0;
#else
EncodingFlag = BASS_UNICODE;
#endif
type
HSTREAM = DWORD;
function BASS_Init(device: LongInt; freq, flags: DWORD;
win: HWND; clsid: Cardinal): BOOL;
external 'BASS_Init@files:bass.dll stdcall';
function BASS_StreamCreateFile(mem: BOOL; f: string; offset1: DWORD;
offset2: DWORD; length1: DWORD; length2: DWORD; flags: DWORD): HSTREAM;
external 'BASS_StreamCreateFile@files:bass.dll stdcall';
function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;
external 'BASS_ChannelPlay@files:bass.dll stdcall';
function BASS_SetConfig(option: DWORD; value: DWORD ): BOOL;
external 'BASS_SetConfig@files:bass.dll stdcall';
function BASS_Free: BOOL;
external 'BASS_Free@files:bass.dll stdcall';
procedure InitializeWizard;
var
StreamHandle: HSTREAM;
begin
ExtractTemporaryFile('AudioFile.mp3');
if BASS_Init(-1, 44100, 0, 0, 0) then
begin
StreamHandle := BASS_StreamCreateFile(False,
ExpandConstant('{tmp}\AudioFile.mp3'), 0, 0, 0, 0,
EncodingFlag or BASS_SAMPLE_LOOP);
BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, 2500);
BASS_ChannelPlay(StreamHandle, False);
end;
end;
procedure DeinitializeSetup;
begin
BASS_Free;
end;
[/spoiler]
coloque cada uno en su respectivo lugar y puse el archivo bass.dll tambien en c/issi/bass.dll
y me tira error en [b]procedure InitializeWizard;[/b] del codigo
hay algún método para hacer llamar solo para reproducir la musca teniéndolo a parte en un .iss?, asi como los issi que tengo en mi codigo.
primero diganme si se puede asi lo simplifico o les paso todo mi codigo del script gigante XD
saludos