Разработка приложений в системе Delphi. Шейкер Т.Д. - 131 стр.

implementation

{$R *.dfm}
var
  file_name:string;//строковая переменная для хранения имени файла

procedure TForm1.Button1Click(Sender: TObject);
begin
                    //Воспроизведение звука
 case RadioGroup1.ItemIndex of
  0: Beep;
  1: MessageBeep(mb_iconhand);
  2: if file_name<>''
       then PlaySound(pChar(file_name), 0, snd_async)
       else ShowMessage('Файл не задан');
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup2.ItemIndex:=0; //Начальное положение переключателя
RadioGroup2Click(Sender);
           //Вызов процедуры обработки положения переключателя
end;

procedure TForm1.N1Click(Sender: TObject);
begin
           //Обработка пункта меню «Выбрать файл»
 if OpenDialog1.Execute then
  begin
   file_name:= OpenDialog1.FileName; //запоминание имени файла
   MediaPlayer1.FileName:= file_name;
             //Подготовка медиаплеера к работе
    MediaPlayer1.DeviceType:=dtAutoSelect;
    MediaPlayer1.open;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
      //воспроизведение файла компонентом Animate
 try
  if file_name<>''
        then
          begin
           Animate1.FileName:= file_name;   //Задание имени
           Animate1.Active:=true;   //Запуск воспроизведения
          end
        else ShowMessage('Файл не задан');
 except
   ShowMessage('Воспроизведение невозможно');
 end;


                                131