Hell_Dog2011
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Code] type HSTREAM=DWORD; TTimerProc=procedure(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD); var MP3List:TStringList; CurrentMP3:integer; hMP3:HWND; TimerID:LongWord; procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload'; function SetTimer(hWnd:HWND;nIDEvent,uElapse:UINT;lpTimerFunc:LongWord{TFNTimerProc}):UINT; external 'SetTimer@user32.dll stdcall delayload'; function KillTimer(hWnd:HWND;uIDEvent:UINT):BOOL; external 'KillTimer@user32.dll stdcall delayload'; function BASS_ChannelIsActive(Handle:HWND):DWORD; external 'BASS_ChannelIsActive@files:bass.dll stdcall'; function BASS_SetConfig(Option,Value:DWORD):DWORD; external 'BASS_SetConfig@files:bass.dll stdcall'; 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):HSTREAM; external 'BASS_StreamCreateFile@files:bass.dll stdcall'; function BASS_StreamFree(Handle:HWND):boolean; external 'BASS_StreamFree@files:bass.dll stdcall'; function BASS_ChannelPlay(Handle:HWND;Restart:boolean):boolean; external 'BASS_ChannelPlay@files:bass.dll stdcall'; function BASS_Start: Boolean; external 'BASS_Start@files:bass.dll stdcall'; function BASS_Stop: Boolean; external 'BASS_Stop@files:bass.dll stdcall'; function BASS_Free: Boolean; external 'BASS_Free@files:bass.dll stdcall delayload'; function WrapTimerProc(CallBack:TTimerProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall'; procedure TimerTick(uTimerID,uMessage:UINT;dwUser,dw1,dw2:DWORD); begin if BASS_ChannelIsActive(hMP3)=0 then begin BASS_Stop; BASS_StreamFree(hMP3); hMP3:=BASS_StreamCreateFile(False,PChar(MP3List.Strings[CurrentMP3]),0,0,0); BASS_Start; if hMP3<>0 then if BASS_ChannelPlay(hMP3,True) then begin CurrentMP3:=CurrentMP3+1; if CurrentMP3>MP3List.Count-1 then CurrentMP3:=0; end; end; end; function InitializeSetup:boolean; begin ExtractTemporaryFile('The Drunken Whaler.mp3'); MP3List:=TStringList.Create; MP3List.Add(ExpandConstant('{tmp}')+'\The Drunken Whaler.mp3'); CurrentMP3:=0; Result:=True; end; procedure InitializeWizard; begin ExtractTemporaryFile('logo.png'); ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\logo.png',1000,3000,1000,0,255,False,$FFFFFF,10); TimerID:=SetTimer(0,0,500,WrapTimerProc(@TimerTick,5)); BASS_Init(-1,44100,0,0,0); BASS_SetConfig(5,100); BASS_SetConfig(6,100); end; procedure DeinitializeSetup; begin KillTimer(0,TimerID); BASS_Stop; BASS_Free; MP3List.Free; end; |