unit1.cpp

有视频

//---------------------------------------------------------------------------
#include <vcl.h>
#include <MMSystem.hpp>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::mciNotify(TMessage& Msg)
{
  mciSendString("close video", NULL,0, 0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  mciSendString("open test.avi alias video", NULL,0, 0);
  mciSendString("window video handle 0", NULL,0, 0);
  mciSendString("window video state show maximized", NULL,0, 0);
  mciSendString("play video notify", NULL, 0, Handle);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  mciSendString("open test.avi type avivideo alias video", NULL,0, 0);
  mciSendString("set video time format ms", NULL,0, 0);
  mciSendString("play video from 0 notify", NULL, 0, Handle);
}
//---------------------------------------------------------------------------