Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Вниз

Диск в СД роме   Найти похожие ветки 

 
Dmitriy_R   (2003-02-26 09:18) [0]

Как определить что за диск в сидироме(Аудио, Дата) и есть ли он там вообще?


 
Dmitriy_R   (2003-02-28 07:31) [1]

Ну неужели некто не знает? Ну тогда хоть как в моей программе сделать чтобы она авто определяла диск при вставке его в СД.
Даже если в винде авто определение выключено.


 
Alexandr B.   (2003-02-28 11:53) [2]


> Dmitriy_R (28.02.03 07:31)
> Ну неужели некто не знает? Ну тогда хоть как в моей программе
> сделать чтобы она авто определяла диск при вставке его в
> СД.
> Даже если в винде авто определение выключено

МЕсага некая шлется, запусти wsinsigh32 и помтори что там приходит окошку.


 
nomshar   (2003-02-28 14:06) [3]

Во-первых, посмотри юнит MPlayer.pas. Обрати особое внимание на процедуру TMediaPlayer.Open. Там есть такая запись:

const
DeviceName: array[TMPDeviceTypes] of PChar = ("", "AVIVideo", "CDAudio", "DAT", "DigitalVideo", "MMMovie",
"Other", "Overlay", "Scanner", "Sequencer", "VCR", "Videodisc", "WaveAudio");


Далее, если посмотришь выше, в 33 строке увидишь следующее:

TMPDeviceTypes = (dtAutoSelect, dtAVIVideo, dtCDAudio, dtDAT, dtDigitalVideo, dtMMMovie, dtOther, dtOverlay, dtScanner, dtSequencer, dtVCR, dtVideodisc, dtWaveAudio);


Далее: строчка 212. Догадается и слепой.

property DeviceType: TMPDeviceTypes
read FDeviceType
write SetDeviceType
default dtAutoSelect;

Вот в принципе и все. Смотри реализацию процедуры SetDeviceType, лмбо пользуйся TMediaPlayer.
Удачи.


 
An   (2003-02-28 17:31) [4]

// Используй GetVolumeInformation
// или обратись к документации SCSI (www.t10.org);
// --------------------------------------------------
// Пример из RC4WA ( http://rc4wa.narod.ru)

{ Определение AudioCD }
Function IsAudioCD(Drive: Char): Boolean;
Const
AudioCDVol = "Audio CD";
Var
DrivePath: String;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
VolumeName: String;
begin
Result:= False;
DrivePath:= Drive + ":\";
if GetDriveType(PChar(DrivePath))<>DRIVE_CDROM then
Exit;
SetLength(VolumeName, 64);
GetVolumeInformation(PChar(DrivePath),
PChar(VolumeName),
Length(VolumeName),
nil,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
Result:= (lStrCmp(PChar(VolumeName), AudioCDVol)=0) and (MaximumComponentLength <= $FF);
end;



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

Форум: "Система";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.01 c
1-67239
td
2003-04-10 18:33
2003.04.21
про ворд и сохранить как


14-67444
Evgeny
2003-04-04 07:07
2003.04.21
метод POST


1-67353
MystiX
2003-04-09 16:17
2003.04.21
Прозрачность формы


1-67360
veb
2003-04-09 17:03
2003.04.21
Как компонентам присвоить иконки


14-67496
Hirara
2003-04-01 22:42
2003.04.21
Метод наискорейшего спуска





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский