新建一个工程，保存项目文件为“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所示。单击按钮，按照提示进行操作即可完成制作安装程序的任务了。
文章来源于领测软件测试网 https://www.ltesting.net/
