实现avi全屏播放

时间： 2021-07-31 作者：daque

uses unit2; procedure tform1.button1click(sender: tobject); begin form2.show; form2.windowstate := wsmaximized; form2.mediaplayer1.notify := false; form2.mediaplayer1.display := form2.panel1; form2.mediaplayer1.filename := 'c:\thewall\delcar2.avi'; form2.mediaplayer1.open; form2.mediaplayer1.displayrect := form2.clientrect; form2.mediaplayer1.play; end; {code for form 2} procedure tform2.mediaplayer1notify(sender: tobject); begin if mediaplayer1.notifyvalue = nvsuccessful then form2.close; end; ////////////////////////////////////////////////////// public { public-deklarationen } procedure mmnotify(var message: tmessage); message mm_mcinotify; end; var form1 : tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); begin mcisendstring('open j:\video.avi alias film', nil, 0, 0); mcisendstring('window film handle 0', nil, 0, 0); mcisendstring('window film state show maximized', nil, 0, 0); mcisendstring('play film notify', nil, 0, form1.handle); end; procedure tform1.mmnotify(var message: tmessage); begin mcisendstring('close film', nil, 0, 0); end;

实现avi全屏播放

相关推荐

推荐下载

热门阅览

最新排行