Delphi

Вопрос

Как выдвинуть дверцу CD-ROM'а?

Ответ

procedure EjectCDROM(aLetter : char);
const
AliasName = 'MyCoolCdrom';
var s : string;
begin
s := 'open ' + aLetter + ': type cdaudio alias ' + AliasName + aLetter + ' shareable wait';
if mciSendString(PChar(s), nil, 0, 0) <> 0 then exit; // fails to open
    try
s := 'set ' + AliasName + aLetter + ' door open wait';
      mciSendString(PChar(s), nil, 0, 0);
    finally
  s := 'close ' + AliasName + aLetter + ' wait';
      mciSendString(PChar(s), nil, 0, 0);
    end;
end;

Из конференции Delphi