Inno Setup - 如何使用Inno Media Library循环播放视频

Question

如何定义内侧播放回调功能重启视频播放？

我使用了这个问题的代码：
Inno Setup - video file with relative path as splash screen

if (empty($user_ip))

PD：抱歉我的英语不好。

Answer 1

也许有一个更优雅的解决方案，但一个简单的解决方案就是重新初始化视频播放：

procedure OnMediaPlayerEvent(EventCode, Param1, Param2: Integer); 
var
  Width: Integer;
  Height: Integer;
begin
  if EventCode = EC_COMPLETE then
  begin
    DSInitializeVideoFile(
      'd:\Video.avi', VideoForm.Handle, Width, Height, @OnMediaPlayerEvent);
    DSPlayMediaFile;  
  end;
end;