Открываем лоток CD-ROMa программно ?

← →
Ciber SLasH © (2003-02-13 01:43) [0]

Ув. дельфисты! Подскажите plz, почему в моей функции закрытия CD-ROM"a при попытке закрыть лоток, когда он уже закрыт, mci - не выдаёт ни какой ошибки, Err всегда равен нулю, не зависимо была ошибка или не была:

{ Функция закрытия CD-ROM"а }
function ClosedCD(Drive: Char): boolean;
var
Err: MciError;
OpenParm: TMCI_Open_Parms;
Flags: DWord;
S: String;
DeviceID, dType: Word;
ErST: PChar;
begin
Result := false;
if not GetCD(Drive, dType) then //Функция получения буквы CD-ROM"a
exit;
S := Drive+":";
Flags := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT;
with OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Err := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm));
if Err <> 0 then
exit;
DeviceID := OpenParm.wDeviceID;
try
Err := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
if Err = 0 then
exit;
Result := True
finally
{ Сюда я пытался поместить функцию mciGetErrorString(Err, ErST, 128),
но в переменную ErST она все возвращала строку: "Указанная
команда выполнена", даже при попытке закрыть уже закрытый CD-ROM }
mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm))
end
end;

← →
Ihor Osov'yak © (2003-02-13 02:07) [1]

блин, делать вам нефиг больше как дверцой сидирома хлопать. Где Шевченко? :-).

← →
Внук © (2003-02-13 09:12) [2]

Это к Игорю :)))) Он скажет...

← →
Игорь Шевченко © (2003-02-13 10:44) [3]

:-)

← →
DiamondShark © (2003-02-13 11:35) [4]

Все правильно.
Команда выполняется асинхронно, поэтому результат следует интерпретировать не как "мы успешно закрыли крышку", а как "мы успешно попросили закрыть крышку".
См. справку, раздел "The Wait, Notify, and Test Flags"

← →
zzet © (2003-02-13 11:37) [5]

> как "мы успешно попросили закрыть крышку"

Гы.. :-)

крышка закрылись. сверху ее забили гвоздями, а гроб закопали.

Satanas Nobiscum! 13-Feb-XXXVIII A.S.

Открываем лоток CD-ROMa программно ? Найти похожие ветки