unit Unit13;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, OleCtrls, WMPLib_TLB;
 
type
  TForm13 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form13: TForm13;
 
implementation
uses Unit14, Unit1;
{$R *.dfm}
 
procedure TForm13.N2Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
begin
  WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
  Form13.Caption:='SMP - '+ExtractFileName(OpenDialog1.FileName);
end;
end;
 
procedure TForm13.N6Click(Sender: TObject);
begin
Self.Close;
end;
 
procedure TForm13.N8Click(Sender: TObject);
begin
 if WindowsMediaPlayer1.PlayState = wmppsPlaying then
 WindowsMediaPlayer1 .Controls.Stop
else
  WindowsMediaPlayer1.Controls.Play;
end;
 
procedure TForm13.N9Click(Sender: TObject);
begin
if WindowsMediaPlayer1.PlayState =wmppsPlaying then
  WindowsMediaPlayer1.Controls.Pause;
end;
 
procedure TForm13.N10Click(Sender: TObject);
begin
 AboutBox.ShowModal;
end;
end.