この発言に対し以下のコメントが寄せられています

#01289　Fermion         さん　RE:CD-ROM Drive の開閉






■概要
　CD-ROM Drive の開閉を行う関数です。OpenCloseCDROMDrive( False ) で
Open、OpenCloseCDROMDrive( True ) で Close します。

■注意事項
　・Windows98SE + Delphi5 Pro で動作確認。
　・MCI_SET_DOOR_OPEN = 256、 MCI_SET_DOOR_CLOSED = 512 なので、下記
　　{* 註１*} の様にまとめてありますが、バグの源となるかも知れません、
　　ご注意下さい。＿(x_*( )／ ≡))  ☆○＝(｀´;)q
　・例外処理等は適当に補って下さい。
　・本サンプルは、ご自身の責任においてお試し下さい。m(_"_)m

■サンプルコード
//=========================================================================
uses
  MMSystem;
{...略...}
procedure OpenCloseCDROMDrive( fClose: Boolean );
var
  MCI: TMCI_Open_Parms;
begin
  FillChar( MCI, SizeOf(MCI), 0 );
  with MCI do begin
    lpstrDeviceType := PChar('CDAudio');
    mciSendCommand( 0, MCI_OPEN, MCI_OPEN_TYPE, DWORD(@MCI) );
    try
     {* 註１*}
      mciSendCommand( wDeviceID, MCI_SET, ( Ord(fClose) + 1 ) shl 8, 0 );
    finally
      mciSendCommand( wDeviceID, MCI_CLOSE, 0, 0 );
    end;{try..finally..}
  end;{with MCI do}
end;
{...略...}
//=========================================================================

                              01/03/09(Fri) 10:46pm  Fermion [KHF03264]

 


Original document by Fermion         氏 ID:(KHF03264)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。