Inno Media Player

[Setup]
AppName=Media Player Project
AppVersion=1.0
DefaultDirName={pf}\Media Player Project

[Files]
Source: "MediaPlayer.dll"; Flags: dontcopy

[Code]
const
  EC_COMPLETE = $01;

type
  TDirectShowEventProc = procedure(EventCode, Param1, Param2: Integer);

function DSGetLastError(var ErrorText: WideString): HRESULT;
  external 'DSGetLastError@files:mediaplayer.dll stdcall';
function DSPlayMediaFile: Boolean;
  external 'DSPlayMediaFile@files:mediaplayer.dll stdcall';
function DSStopMediaPlay: Boolean;
  external 'DSStopMediaPlay@files:mediaplayer.dll stdcall';
function DSSetVolume(Value: LongInt): Boolean;
  external 'DSSetVolume@files:mediaplayer.dll stdcall';
function DSSetBalance(Value: LongInt): Boolean;
  external 'DSSetBalance@files:mediaplayer.dll stdcall';
function DSInitializeAudioFile(FileName: WideString; CallbackProc: TDirectShowEventProc):
  Boolean; external 'DSInitializeAudioFile@files:mediaplayer.dll stdcall';
function DSInitializeVideoFile(FileName: WideString; WindowHandle: HWND; var Width,
  Height: Integer; CallbackProc: TDirectShowEventProc): Boolean;
  external 'DSInitializeVideoFile@files:mediaplayer.dll stdcall';

var
  VideoForm: TSetupForm;
  AudioPage: TWizardPage;
  VideoPage: TWizardPage;
  VideoPanel: TPanel;

procedure OnMediaPlayerEvent(EventCode, Param1, Param2: Integer);
begin
  if EventCode = EC_COMPLETE then
    VideoForm.Close;
end;

procedure OnVideoFormShow(Sender: TObject);
var
  ErrorCode: HRESULT;
  ErrorText: WideString;
  Width, Height: Integer;
begin
  if DSInitializeVideoFile('c:\Video.avi', VideoForm.Handle, Width,
    Height, @OnMediaPlayerEvent) then
  begin
    VideoForm.ClientWidth := Width;
    VideoForm.ClientHeight := Height;
    DSPlayMediaFile;
  end
  else
  begin
    ErrorCode := DSGetLastError(ErrorText);
    MsgBox('TDirectShowPlayer error: ' + IntToStr(ErrorCode) + '; ' +
      ErrorText, mbError, MB_OK);
  end;
end;

procedure OnVideoFormClose(Sender: TObject; var Action: TCloseAction);
begin
  DSStopMediaPlay;
end;

procedure InitializeWizard;
begin
  VideoForm := CreateCustomForm;
  VideoForm.Position := poScreenCenter;
  VideoForm.OnShow := @OnVideoFormShow;
  VideoForm.OnClose := @OnVideoFormClose;
  VideoForm.FormStyle := fsStayOnTop;
  VideoForm.Caption := 'Popup Video Window';
  VideoForm.ShowModal;

  VideoPage := CreateCustomPage(wpWelcome, 'Video Page', 'Embedded video');
  VideoPanel := TPanel.Create(WizardForm);
  VideoPanel.Parent := VideoPage.Surface;
  VideoPanel.BevelOuter := bvNone;
  VideoPanel.Width := Round(VideoPage.Surface.ClientWidth / 1.5);
  VideoPanel.Height := Round(VideoPage.Surface.ClientHeight / 1.5);
  VideoPanel.Left := (VideoPage.Surface.ClientWidth - VideoPanel.Width) div 2;
  VideoPanel.Top := (VideoPage.Surface.ClientHeight - VideoPanel.Height) div 2;

  AudioPage := CreateCustomPage(VideoPage.ID, 'Audio Page', 'Embedded audio');
end;

procedure OnEmbeddedMediaPlayerEvent(EventCode, Param1, Param2: Integer);
begin
  if EventCode = EC_COMPLETE then
    MsgBox('Playback is done!', mbInformation, MB_OK);
end;

procedure CurPageChanged(CurPageID: Integer);
var
  ErrorCode: HRESULT;
  ErrorText: WideString;
  Width, Height: Integer;
begin
  case CurPageID of
    VideoPage.ID:
    begin
      Width := VideoPanel.ClientWidth;
      Height := VideoPanel.ClientHeight;
      WizardForm.InnerPage.Color := clBlack;
      if DSInitializeVideoFile('c:\Video.avi', VideoPanel.Handle, Width, Height,
        @OnEmbeddedMediaPlayerEvent)
      then
        DSPlayMediaFile
      else
      begin
        ErrorCode := DSGetLastError(ErrorText);
        MsgBox('TDirectShowPlayer error: ' + IntToStr(ErrorCode) + '; ' +
          ErrorText, mbError, MB_OK);
      end;
    end;
    AudioPage.ID:
    begin
      WizardForm.InnerPage.Color := clBtnFace;
      if DSInitializeAudioFile('c:\Audio.mp3', @OnEmbeddedMediaPlayerEvent) then
      begin
        DSSetVolume(-2500);
        DSPlayMediaFile;
      end
      else
      begin
        ErrorCode := DSGetLastError(ErrorText);
        MsgBox('TDirectShowPlayer error: ' + IntToStr(ErrorCode) + '; ' +
          ErrorText, mbError, MB_OK);
      end;
    end
  else
    begin
      DSStopMediaPlay;
      WizardForm.InnerPage.Color := clBtnFace;
    end;
  end;
end;

procedure DeinitializeSetup;
begin
  DSStopMediaPlay;
end;