Скачать: CL | DM;

Для получения кол-ва трэков на 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.011 c