main.pas

来自「DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例」· PAS 代码 · 共 84 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, StdCtrls, ExtCtrls, Buttons,Jpeg, MPlayer;

type
  TMainForm = class(TForm)
    DriveComboBox1: TDriveComboBox;
    FilterComboBox1: TFilterComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    Panel1: TPanel;
    MediaPlayer1: TMediaPlayer;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FileListBox1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    FileExt:String[4];{存放文件扩展名}
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Bigpas;

{$R *.DFM}
procedure TMainForm.FileListBox1Click(Sender: TObject);//选择文件播放
begin
 FileExt:=AnsiLowerCase(ExtractFileExt(FileListBox1.FileName));//文件扩展名小写化
 if FileExt='.wav' then {是声音}
  begin
    Panel1.Caption:='播放声音';
    MediaPlayer1.Close;
    MediaPlayer1.FileName:=FileListBox1.FileName;
    MediaPlayer1.Open;
    MediaPlayer1.Play;
  end
 else
  if FileExt='.avi' then{是动画}
   begin
    with MediaPlayer1 do
     begin
      Close;
      display:=Panel1;{播放窗口}
      FileName:=FileListBox1.FileName;
      Panel1.Caption:='';
      Open;
      Rewind;
      Play;
     end;
   end
  else
    if FileExt='.mid' then{是音乐}
     begin
      Panel1.Caption:='播放音乐';
      MediaPlayer1.Close;
      MediaPlayer1.FileName:=FileListBox1.FileName;
      MediaPlayer1.Open;
      MediaPlayer1.Play;
     end;
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
if FileListBox1.ItemIndex <>-1 then
   begin
      mediaplayer1.Rewind;
      MediaPlayer1.Play;
   end
else
 messagedlg('请选择你要播放的文件！',mtwarning,[mbyes],0);
end;

end.