| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

CD-ROM [D6, WinXP]

Андрей ©   (2007-10-16 17:16:00) 

Подскажите пожалуста, как узнать положение CD-ROM (DVD-ROM)
За ранее благодарен.

---

Jeer   (2007-10-16 18:02:00) [1]

P.S.
Но если через него видны соседкины коленки, то опять же горизонтально, но соседка у Вас на коленях, заметим.

---

clickmaker   (2007-10-16 18:01:00) [2]

в подавляющем большинстве случаев горизонтальное

---

Jeer   (2007-10-16 18:01:00) [3]

> Андрей   (16.10.07 17:16)


Если при выдвижении лотка на него можно поставить чашку кофе, то прибор расположен горизонтально, если через него видна соседка - вертикально.

---

@Ujin   (2007-10-16 17:57:00) [4]

Как вариант:

Получаем список ID устройств и ищем среди них CD-ROM.

procedure GetDriveList(DriveList: TStrings; const Tag: array of DWORD);
var D: Char;
   i: Integer;
   DT: DWORD;
   DriveStr: string;
begin
 if Assigned(DriveList) then begin
   DriveList.Clear;
   if Length(Tag) <> 0 then
     for D := 'A' to 'Z' do begin
       DriveStr := D + ':\';
       DT := GetDriveType(PChar(DriveStr));
       for i:=0 to Length(Tag)-1 do
         if DT = Tag[i] then begin
           DriveList.Add(D);
           break;
         end;
     end
   else
     for D := 'A' to 'Z' do begin
       DriveStr := D + ':\';
       if GetDriveType(PChar(DriveStr)) <> 1 then
         DriveList.Add(D);
     end;    
 end;
end;


Потом вызываем: mciSendCommand(mp.DeviceID, MCI_SET, MCI_INFO, 0);

Далее роемся в справке и ищем структуру: MCI_INFO_PARMS. Изучаем ее состояния и ставим следственный эксперимент с CD-ROM. Возможно есть и другая команда...

---

Правильный_Вася   (2007-10-16 17:40:00) [5]

справа от монитора или слева?

---

Наверх