[Setup]
SourceDir=.
OutputDir=Setup
AppName=Pleer
AppVerName=Pleer
AppVersion=Pleer
DefaultDirName={pf}\Pleer
WindowVisible=no
WindowShowCa    ption=no
WindowResizable=no

[Files]
Source: "isgsg.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "bass.dll"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: "music.mp3"; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression

[Icons]
Name: "{group}\{cm:UninstallProgram,Pleer}"; Filename: "{uninstallexe}"

[UninstallDelete]
Type: filesandordirs; Name: "{app}"

[_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 ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';

function InitializeSetup:boolean;
begin
      ExtractTemporaryFile('music.mp3');
      ExtractTemporaryFile('bass.dll');
      Result:=True;
end;

procedure InitializeWizard;
begin
      ShowMP3Panel(WizardForm.Handle,80,ExpandConstant('{tmp}'),ExpandConstant('{tmp}'),'www.csmania.ru',True,False,7000,Indent);
//  WizardForm.BeveledLabel.Enabled:=True;
end;

procedure DeinitializeSetup;
begin
      KillMP3Panel;
      ShowWindow(WizardForm.Handle,0);
end;