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

CD-ROM   Найти похожие ветки 

← →
Андрей   (2007-10-16 17:16) [0]

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

---

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

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

---

← →
@Ujin   (2007-10-16 17:57) [2]

Как вариант:

Получаем список 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. Возможно есть и другая команда...

---

← →
clickmaker ©   (2007-10-16 18:01) [3]

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

---

← →
Jeer ©   (2007-10-16 18:01) [4]

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


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

---

← →
Jeer ©   (2007-10-16 18:02) [5]

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

---

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

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



Память: 0.46 MB
Время: 0.014 c