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

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

完成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;

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 福利在线播放 | 精品视频在线观看视频免费视频 | 精品久久久久久综合另类小说 | 亚洲午夜片 | 国内精品久久久久影院男同志 | 国产成人毛片毛片久久网 | 人人澡人人草 | 国产成人福利免费观看 | 午夜久久免影院欧洲 | 日本人成年视频在线观看 | 猫咪www免费人成网站在线观看 | 好吊妞国产欧美日韩免费观看 | 精品国产精品a | 中文字幕欧美日韩高清 | 91精品久久久 | 国产精品免费小视频 | 中文字幕午夜乱理片11111 | 天天干视频网 | 日本免费不卡一区 | 亚洲国产成人久久笫一页 | 日本不卡新2区 | 在线天天干 | 成人区视频爽爽爽爽爽 | 在线看日本 | 国产日本免费 | 99久久精品国产一区二区成人 | 在线不欧美 | 欧美国产在线视频 | 天天插天天操天天射 | 视频在线观看国产 | 天天天天天天天操 | 97色在线视频 | 日韩中文字幕精品一区在线 | 欧美久久伊人 | 中文字幕一区二区三区在线播放 | 91福利一区二区在线观看 | 亚洲 在线播放 | 中国欧美日韩一区二区三区 | 91日韩高清在线观看播放 | 欧美成人高清视频 | 国产成人高清亚洲一区久久 |