Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Для получения кол-ва трэков на CD делаю так: [D5, D6, Win95/98]

iNew © (2002-11-03 10:32:00)
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:00) [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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »