Обычные музыкальные компакт-диски уже редко используются. Но все же если делать аудио-проигрыватель, то нужно предусмотреть и такой режим проигрывания дисков. Создание простого проигрывателя аудио 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;
Земля — это, пожалуй, самое надежное вложение средств. В основном, участки земли в густонаселенных районах постоянно повышаются в цене. Исключение составляют только экономические кризисы.