新建一个工程,保存项目文件为“MyPlayer.bpr”,向窗体中加入一个Animate控件、一个TrackBar控件、一个MediaPlayer控件、一个OpenDialog 控件、一个Timer控件和一个MainMenu控件,并按表1设置它们的属性值。
控件的布局如图1所示。此外,还需要用主菜单控件来设计一个简单的菜单,菜单的设计如表2所示。
第二步
在菜单项Open1的OnClick事件中加入如下代码,用于打开播放文件,指定视频输出窗口的大小为Animate控件的大小,并给刻度尺赋值。 void __fastcall TForm1::Open1Click(TObject *Sender) { if(OpenDialog1->Execute()) { MediaPlayer1->FileName=OpenDialog1->FileName; MediaPlayer1->Open(); } TRect rect; rect.Left=Animate1->Left; rect.Top=Animate1->Top; rect.Right=Animate1->Width; rect.Bottom=Animate1->Height; MediaPlayer1->DisplayRect=rect; TrackBar1->Min=0; TrackBar1->Position=0; TrackBar1->Max=MediaPlayer1->Length; }
第三步
在Timer控件的OnTimer事件中加入如下代码实现播放进度的显示。 void __fastcall TForm1::Timer1Timer(TObject *Sender) { TrackBar1->Position=MediaPlayer1->Position; }
第四步
在菜单项Exit1的OnClick事件中加入如下代码,用于退出应用程序。 void __fastcall TForm1::Exit1Click(TObject *Sender) { Close(); } 二、制作安装程序 第一步
运行InstallShield Express目录下的“Isx.exe”程序,将会弹出“Welcome to InstallShield Express”对话框。
第二步
选中“Create a new Setup Project”,单击“OK”,创建一个新的工程文件,会弹出图2所示的“New Project”对话框。
第三步
在Project Name文本框中填入安装工程文件名 “MyPlayer”,在“Project Path”框中可以设置保存文件的路径。如果想为工程文件新建一个子目录,可以将子目录的名称写在“New Subdirectory”文本框中,在对话框的左下角还有一个复选框“Include a custom setup type”,用来在安装文件中设立一个Custom (自定义)安装类型。
第四步
设置完所有内容后单击“Create”按钮,就创建起一个新的安装工程文件,将出现如图3所示的窗口。在这里可以设置安装程序的所有参数,它们将决定安装程序的界面、提供给用户的选择项、安装的过程以及安装的路径等各项属性。
第五步
单击Application Information项,弹出一个对话框如图4所示,其中各个项目的意义如表3所示。这个参数用于设置应用程序的一些信息。
第六步
单击按钮,显示“打开”对话框,选择要安装的可执行文件。这里我们选择在编程实现部分所生成的可执行文件MyPlayer.exe。
第七步
单击Main Window选项卡,使它显示如图5所示,各项的意义如表4所示。这里可以设置安装程序的界面。单击返回安装工程文件窗口。
第八步
单击General Options项,弹出一个对话框, 其中选择 Standard VCL Packages对象。这个参数用于设置应用程序所需要的一些铺助程序包。单击返回安装工程文件窗口。
第九步
单击Dialog Boxes项,弹出一个对话框, 使它设置成如图6 所示内容。这个参数用于设定安装应用程序时弹出的对话框,各个对话框的说明如表5 所示。单击返回安装工程文件窗口。
第十步
单击Disk Builder项,弹出一个对话框, 在Disk组合框中选择1.44MB。在Disk组合框中可以选择安装程序发送方式,其中720KB、1.2MB和 1.44MB对应于软盘,CD-ROM对应于光盘。然后单击按钮,就开始创建安装程序了。这一过程的错误和警告信息都将显示在Feedback栏中,如图7所示。
第十一步
单击返回安装工程文件窗口。准备两个空软盘,第一个软盘插入软驱单击Copy to Floppy项,弹出Copy to Floppy对话框如图8所示。单击按钮,按照提示进行操作即可完成制作安装程序的任务了。