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]

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

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

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

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

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