Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: 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 вся ветка

Текущий архив: 2003.01.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
3-36939
std79
2002-12-18 09:57
2003.01.13
Database not assigned, Обновление данных


14-37326
very_need_book
2002-12-23 21:30
2003.01.13
delphi book


6-37237
biocron
2002-11-13 09:18
2003.01.13
Надо узнать имя компа и его узера


3-36958
Ольга
2002-12-16 17:17
2003.01.13
DbChart


4-37439
raven79
2002-11-24 21:00
2003.01.13
замена TStringList на WinApi