NattyBampo
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Code]
const
Indent=10;
procedure ShowMP3Panel(hMainFrm:HWND;StartVolume:integer;DefMP3Dir,BASSDir,MLabel:PChar;IsShowMP3Info,IsBkgFrmVisible:boolean;ShowTimeMP3Info:integer;dBottom:integer);external 'ShowMP3Panel@files:isgsg.dll stdcall';
procedure KillMP3Panel;external 'KillMP3Panel@files:isgsg.dll stdcall';
function InitializeSetup:boolean;
begin
ExtractTemporaryFile('The Sims 3 Theme.mp3');
ExtractTemporaryFile('bass.dll');
Result:=True;
end;
procedure InitializeWizard;
begin
ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'The Sims 3',False,False,0,Indent);
end;
procedure DeinitializeSetup;
begin
KillMP3Panel;
end; |
