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

Written on 16 Сентября 2006. Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 33 из 86

Как выдвинуть дверцу 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