untmediaplayer.pas

toi co the nghe nhac bang choung trinh nay

unit untMediaplayer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer;

type
  TfrmMediaPlayer = class(TForm)
    btnPlay: TButton;
    btnStop: TButton;
    MediaPlayer1: TMediaPlayer;
    OpenDialog1: TOpenDialog;
    btnOpen: TButton;
    btnSet: TButton;
    btnInfo: TButton;
    procedure btnPlayClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure btnSetClick(Sender: TObject);
    procedure btnInfoClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmMediaPlayer: TfrmMediaPlayer;

implementation

uses untSettings, untInfo;

{$R *.dfm}

procedure TfrmMediaPlayer.btnPlayClick(Sender: TObject);
begin

                mediaplayer1.Open;
                mediaplayer1.Play;
                btnstop.Enabled:= true;
end;

procedure TfrmMediaPlayer.btnStopClick(Sender: TObject);
begin
        mediaplayer1.Stop;
        btnstop.Enabled:= false;
end;

procedure TfrmMediaPlayer.btnOpenClick(Sender: TObject);
begin
        opendialog1.Execute;
        mediaplayer1.FileName:= opendialog1.FileName;
        if not fileexists(mediaplayer1.FileName) then
                btnplay.Enabled:= false
        else
             btnplay.enabled:= true;

end;       

procedure TfrmMediaPlayer.btnSetClick(Sender: TObject);
begin
        frmset.show;
end;

procedure TfrmMediaPlayer.btnInfoClick(Sender: TObject);
begin
        aboutbox.show;
end;

end.