Как выдвинуть дверцу CD-ROM'а? mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);Также mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);В D6 следует указать uses MMsystem; Copyright © "Мастера DELPHI" E-mail: delphi@mastak.com http://www.delphimaster.ru Источник получения информации: http://www.delphimaster.ru