program PMedia;
{*************************************************
版权所有 (C) 2001-2012 XXX公司
文件名称: PMedia.dpr
作者: XXX 版本: pm1.0.1 时间: 2012-03-24
工程概要:多媒体播放的小软件,能够播放视频和音频,操作简捷方便
**************************************************}
uses
Forms,
UMedia in 'UMedia.pas' {MediaForm};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TMediaForm, MediaForm);
Application.Run;
end.
unit UMedia;
{****************************************************************
版权所有 (C) 2001-2012 XXX公司
文件名称:
作者: XXX 版本: pm1.0.1 时间: 2012-03-24
内容摘要:
其他说明:
历史记录:
1.修改人: XXX 时间: 2012-03-25 版本: pm1.0.2
修改原因: 添加了精简模式和退出精简模式的新功能
********************************************************************}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, MPlayer, StdCtrls, FileCtrl, ComCtrls, Buttons;
type
TMediaForm = class(TForm)
Panel1: TPanel; //窗口主面板
PlayPanel: TPanel; //视频播放面板
ProgressBar1: TProgressBar; //进度条
Timer1: TTimer;//时间组件
rightGroupBox: TGroupBox; //右侧的group组
FilterComboBox1: TFilterComboBox; //文件过滤组件
DriveComboBox1: TDriveComboBox; //磁盘组件
DirectoryListBox1: TDirectoryListBox;//文件夹选择列表组件
FileListBox1: TFileListBox; //文件列表组件
bottomGroupBox: TGroupBox; //底部基本操作的group组
MediaPlayer1: TMediaPlayer; //多媒体播放
repeatBtn: TBitBtn; //重播按钮
simpleBtn: TBitBtn; //精简模式按钮
playListBtn4: TBitBtn; //播放列表按钮
closeBtn: TBitBtn; //关闭按钮
playlistLabel: TLabel; //播放列表标签