Показать сообщение отдельно
  #3  
Старый 14.01.2012, 08:49
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

вариантов много. к примеру:

Код:
uses
  MCIPlayer,

MCIPlayer.Open('d:\Музыка\Ennio Morricone\Chi Mai.mp3');
MCIPlayer.Play;
MCIPlayer.Stop;
MCIPlayer.Close;
MCIPlayer.Pause;
MCIPlayer.Resume;
MCIPlayer.TriggerPause;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=IntToStr(GetLength);
  Label2.Caption:=IntToStr(GetPosition);
  Label3.Caption:=IntToStr(Integer(GetMode));
end;

http://data.cod.ru/139012
__________________
Пишу программы за еду.
__________________
Ответить с цитированием