Форум программистов [Powered by Invision Power Board]

Код

unit main;

interface

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

type
  TfrmMain = class(TForm)
    btnPlay: TButton;
    btnPause: TButton;
    btnStop: TButton;
    btnOpen: TButton;
    Label1: TLabel;
    lblFileName: TLabel;
    dlgOpen: TOpenDialog;
    procedure btnPlayClick(Sender: TObject);
    procedure btnOpenClick(Sender: TObject);
    procedure btnPauseClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    bolPaused:boolean;
  end;
var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnPlayClick(Sender: TObject);
var
  iRes:longint;{iRes - результат операции}
begin
  if FileExists(lblFileName.Caption) then//если файл с именем lblFileName.Caption существует
  begin
    if bolPaused then//если пауза
      btnPause.Click//нажимаем на паузу
    else//иначе - воспроизведение заново
    begin
      btnStop.Click;//нажимаем на стоп
      //открываем устройство
      iRes:=mciSendString(PChar('open "'+lblFileName.Caption+'" alias waveaudio'),nil,0,0);
      if iRes=0 then//если результат - без ошибок
        iRes:=mciSendString(PChar('play waveaudio'),nil,0,0);//играем
    end;
  end;
end;

procedure TfrmMain.btnOpenClick(Sender: TObject);
begin
  if dlgOpen.Execute then//если выбор состоялся
  begin
    if FileExists(dlgOpen.FileName) then//если файд существует
    begin
      lblFileName.Caption:=dlgOpen.FileName;//запоминаем имя файла в Caption метки
      bolPaused:=false;//не пауза
      btnPlay.Click;
    end;
  end;
end;

procedure TfrmMain.btnPauseClick(Sender: TObject);
begin
  if bolPaused then//если пауза
    mciSendString(PChar('resume waveaudio'),nil,0,0)//восстанавливаем воспроизведение
  else
    mciSendString(PChar('pause waveaudio'),nil,0,0);//пауза
  bolPaused:=not bolPaused;//пауза
end;

procedure TfrmMain.btnStopClick(Sender: TObject);
begin
  mciSendString(PChar('stop waveaudio'),nil,0,0);//останавливаем воспроизведение
  mciSendString(PChar('close waveaudio'),nil,0,0);//закрываем устройство
  bolPaused:=false;//не пауза
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  btnStop.Click;//на всякий случай:)
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  bolPaused:=false;//инициализация
end;

end.