Inno Setup - 如何使用Inno Media Library循環播放視頻

Question

如何定義中間播放回調函數重新啓動視頻播放？

我使用代碼來自這個問題：
Inno Setup - video file with relative path as splash screen

procedure OnMediaPlayerEvent(EventCode, Param1, Param2: Integer); 
begin 
    if EventCode = EC_COMPLETE then 
    VideoForm.Close; { not close, start again, and again.... } 
end; 

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;