Для получения кол-ва трэков на CD делаю так:

← →
iNew (2002-11-03 10:32) [0]

var hw : windows.HWND;
lp : windows.LPTSTR;
begin
mciSendString("open cdaudio wait", nil, 0, hw);
mciSendString("status cdaudio number of audio tracks",lp, 9, hw);
end;

Только непонятно куда возвращается это число. В lp какая-то фигня.

← →
Иван Ширко (2002-11-03 14:25) [1]

Лови функцию! Перед использыванием устройство нужно открыть.
function GetTracksNum:integer;
begin
sbReturn:="";
mciSendString("status cdaudio number of tracks wait", sbReturn, 64, 0);
if length(sbReturn)>0 then
result:=strtoint(sbReturn)
else
result:=0;
end;

Для получения кол-ва трэков на CD делаю так: Найти похожие ветки