日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

完成avi全屏播放

完成avi全屏播放

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:

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;

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产一区二区三区亚洲综合 | 中文字幕日韩精品一区口 | 亚洲国产欧美目韩成人综合 | 在线欧美一区 | 亚洲欧美中文日韩在线视线 | 成人区精品一区二区不卡亚洲 | 怡红院官网 | 狠狠88综合久久久久综合网 | 亚洲资源站资源网在线 | 99久久er这里只有精品17 | 桃色成人网 | 伊人成综合 | 天天摸天天碰天天碰 | 99热伊人 | h网站免费在线观看 | 久久青草国产手机看片福利盒子 | 亚洲欧美日韩在线观看播放 | 精品国产免费久久久久久 | 日韩www| 亚洲资源在线 | 国产性感美女在线观看 | 午夜影视在线观看免费完整高清大全 | 日韩在线观看免费 | 色丁香久久 | 国内精品久久久久 | 久操视频免费观看 | 国产成人久久精品一区二区三区 | 日本不卡免费新一区二区三区 | 91视频污版 | 中文字幕人成不卡一区 | 伊人网站 | 天天色亚洲 | 亚洲综合视频在线观看 | 亚洲视频免费播放 | 爱爱视频天天干 | 国产精品九九九久久九九 | 成人午夜精品 | 亚洲国产精品一区 | 最新97超级碰碰碰碰久久久久 | 日韩免费视频播播 | 日本中文字幕第一页 |