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