1
2 //---------------------------------------------------------------------------
3
4 #include <vcl.h>
5 #pragma hdrstop
6 #include <mmsystem.hpp>
7
8 #include "Unit1.h"
9 //---------------------------------------------------------------------------
10 #pragma package(smart_init)
11 #pragma resource "*.dfm"
12 TForm1 *Form1;
13 //---------------------------------------------------------------------------
14 __fastcall TForm1::TForm1(TComponent* Owner)
15 : TForm(Owner)
16 {
17 }
18 //---------------------------------------------------------------------------
19
20
21 void __fastcall TForm1::Button1Click(TObject *Sender)
22 {
23 String LongName = "C:\\test.avi"; //Your complete FileName
24 String ret, shortName;
25 String close ="close movie";
26 String play1 ="play movie fullscreen";
27 String play2 ="play movie";
28
29 unsigned short err;
30 shortName =StrAlloc(512);
31 GetShortPathName(LongName.c_str(),shortName.c_str(),512);
32 ret =StrAlloc(255);
33 err = mciSendString(close.c_str(), 0, 0, 0);
34 String open = "open "+shortName+" alias movie";
35 //opens MCI device
36 err = mciSendString(open.c_str(), 0, 0, 0);
37 shortName = NULL;
38 if (err != 0){
39 mciGetErrorString(err, ret.c_str(), 255);
40 MessageDlg(ret.c_str(), mtInformation, TMsgDlgButtons() << mbOK, 0);
41 }
42 //plays in fullscreen
43 err = mciSendString(play1.c_str(), 0, 0, 0);
44 //plays movie
45 err = mciSendString(play2.c_str(), 0, 0, 0);
46
47 if (err != 0){
48 mciGetErrorString(err, ret.c_str(), 255);
49 MessageDlg(ret.c_str(), mtInformation, TMsgDlgButtons() << mbOK, 0);
50 }
51
52 }
53 //---------------------------------------------------------------------------
|
