Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Как узнать номер проигрываемой композиции компакт-диска?

Delphi FAQ >> Система

Обычные музыкальные компакт-диски уже редко используются. Но все же если делать аудио-проигрыватель, то нужно предусмотреть и такой режим проигрывания дисков. Создание простого проигрывателя аудио cd подробно описано в статье Мультимедиа под контролем или Функция mciSendString. Эта функция возвращает номер проигрываемой композиции музыкалього компакт-диска:

...
uses MMSystem;
...

// возвращает номер композиции, проигрываемой в
// музыкальном компакт-диске
function GetCurrentTrack: Byte;
var
  com: PChar;
  sbReturn: array[1..64] of char;
  st: String;
begin
  result := 0;
  // посылаем запрос устройству cdaudio
  com := 'status cdaudio current track wait';
  if mciSendString(com, @sbReturn, 64, 0)<>0 then
    exit;
  //получаем результат в виде массива символов
  st := trim(sbReturn);
  // если результат непустой,
  if length(st)>0 then
    //то возвращаем номер текущей композиции
    result := strtoint(st);
end;


Земля - это, пожалуй, самое надежное вложение средств. В основном, участки земли в густонаселенных районах постоянно повышаются в цене. Исключение составляют только экономические кризисы.