Delphi写的多媒播放器

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;  //播放列表标签