main.~pas

delphi环境下avi的播放演示程序编译即可使用。

{
1. 屏蔽全屏状态下任务栏的问题
2。音频处理
3。按钮、任务栏、音频等的处理；
}
unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, MPlayer, ExtCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    OpenDialog1: TOpenDialog;
    Panel2: TPanel;
    MediaPlayer1: TMediaPlayer;
    StatusBar1: TStatusBar;
    TrackBar1: TTrackBar;
    Timer1: TTimer;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N151: TMenuItem;
    N14: TMenuItem;
    N251: TMenuItem;
    N351: TMenuItem;
    N451: TMenuItem;
    N551: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  state: string;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.N2Click(Sender: TObject);
begin
  if opendialog1.Execute then begin
    mediaplayer1.Close;
    mediaplayer1.FileName:=opendialog1.FileName;
    mediaplayer1.Display:=form2.panel1;
    mediaplayer1.DisplayRect:=form2.Panel1.ClientRect;
    mediaplayer1.open;
    mediaplayer1.Play;
    timer1.Enabled:=true;
    trackbar1.Max:=mediaplayer1.Length;
    trackbar1.min:=0;
    trackbar1.Position:=0;
    form2.Show;
    form2.Caption:=opendialog1.FileName;
    n15.Enabled:=true;
    state:='play';
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i,j,k:integer;
  s1:string;
begin
  trackbar1.Position:=mediaplayer1.Position;
  i:=mediaplayer1.length;
  i:=i div 25;
  j:=(i div 60);//min
  k:=j div 60;//hour
  s1:=inttostr(k)+'时'+inttostr(j-60*k)+'分'+inttostr(i-60*j-k*3600)+'秒';
  self.StatusBar1.Panels[0].Text:=' 总长度：'+s1;
  i:=mediaplayer1.position div 25;
  j:=(i div 60);//min
  k:=j div 60;//hour
  s1:=inttostr(k)+'时'+inttostr(j-60*k)+'分'+inttostr(i-60*j-k*3600)+'秒';
  self.StatusBar1.Panels[1].Text:=' 已播放：'+s1;
  i:=(mediaplayer1.length-mediaplayer1.position)div 25;
  j:=(i div 60);//min
  k:=j div 60;//hour
  s1:=inttostr(k)+'时'+inttostr(j-60*k)+'分'+inttostr(i-60*j-k*3600)+'秒';
  self.StatusBar1.Panels[2].Text:=' 剩余时间：'+s1;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  mediaplayer1.TrackPosition[trackbar1.position];
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  form2.windowState:=wsmaximized;
  mediaplayer1.Display:=form2.panel1;
  mediaplayer1.DisplayRect:=form2.Panel1.ClientRect;
  n6.Enabled:=false;
  n9.Enabled:=true;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
  form1.Close;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
  form2.windowState:=wsnormal;
  form2.ClientHeight:=293;
  form2.ClientWidth:=354;
  n9.Enabled:=false;
  n6.Enabled:=true;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
  state:='close';
  mediaplayer1.stop;
  mediaplayer1.close;
  timer1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  state:='close';
end;

procedure TForm1.N17Click(Sender: TObject);
begin
  if (state='pause')or(state='stop') then begin
    form1.MediaPlayer1.Play;
    state:='play';
  end;
end;

procedure TForm1.N18Click(Sender: TObject);
begin
  if state='play' then begin
    form1.MediaPlayer1.Pause;
    state:='pause';
  end;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
  if (state='play')or(state='pause')then begin
    form1.MediaPlayer1.stop;
    state:='stop';
  end;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
  messagebox(0,'王明潭设计','AVI播放器',0);
end;

end.