Question

我现在正在搜索Inno Setup的扩展程序以使用视频文件，例如AVI或.png序列作为我的安装的启动画面（使用alpha通道会是一个巨大的优势，但不是必须的）。有几个.dll可以使用淡入淡出的静态图片，但我找不到任何可用作视频文件的内容。

据我所知，我可以在Inno Setup中使用任何类型的.dll。例如，我可以使用流行的bass.dll进行音频播放，即使它没有“真正的”Inno支持，但Inno可以调用该.dll的功能。

那么有什么程序可以让我这样做吗？这方面的任何提示都会非常有用。

编辑：这可能是Qt的可能，我知道你可以为你的应用程序制作那些基于帧的初始屏幕，但我不确定是否可以在Inno Setup中使用Qt？

Answer 1

我创建了Inno Media Player项目，该项目能够将视频和音频播放嵌入到InnoSetup向导中。它基于DirectShow技术，至少需要使用DirectX 9。

除了built-in formats它支持所有DirectShow编解码器，但您应该考虑您的目标用户不需要为某些奇特的媒体格式配置编解码器并安装它们只是因为安装启动时的显示将是对用户来说是一种过度杀伤和不公平。

关于你想要的透明度，如果你找到支持它的编解码器，我们可以尝试使弹出窗口透明，让DirectShow渲染器在分层窗口上绘制，但没有编解码器和示例视频我可以<什么都不做。

带有示例脚本的库，您可以在源干线中找到它或下载它from here
我写了一个简单的function reference，您可以在其中找到函数参数说明

因此，为了在显示向导表单之前显示带有视频播放的弹出窗口，您可以使用以下内容：

请注意，Inno Media Player是一个Unicode库，因此您只能使用InnoSetup的Unicode版本，而不能使用ANSI版本！不支持ANSI版本的InnoSetup ......！

[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 DSPlayMediaFile: Boolean;
  external 'DSPlayMediaFile@files:mediaplayer.dll stdcall';
function DSStopMediaPlay: Boolean;
  external 'DSStopMediaPlay@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;  

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

procedure OnVideoFormShow(Sender: TObject);
begin
  DSPlayMediaFile;
end;

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

procedure InitializeWizard;
var
  Width: Integer;
  Height: Integer;
begin
  VideoForm := CreateCustomForm;
  VideoForm.Caption := 'Popup Video Window';
  VideoForm.BorderStyle := bsNone;
  VideoForm.FormStyle := fsStayOnTop;
  VideoForm.Position := poScreenCenter;
  VideoForm.OnShow := @OnVideoFormShow;
  VideoForm.OnClose := @OnVideoFormClose; 

  if DSInitializeVideoFile('d:\Video.avi', VideoForm.Handle, Width, 
    Height, @OnMediaPlayerEvent)
  then
  begin
    VideoForm.ClientWidth := Width;
    VideoForm.ClientHeight := Height;     
    VideoForm.ShowModal;
  end;    
end;

procedure DeinitializeSetup;
begin
  DSStopMediaPlay;
end;

希望它有所帮助！

视频文件（带alpha）作为启动画面？

1 个答案: