この発言は
#01287　Fermion         さんのCD-ROM Drive の開閉
に対するコメントです

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

#01364　おかぽん        さん　RE:CD-ROM Drive の開閉





　OpenCloseCDROMDrive( True ) で Open、OpenCloseCDROMDrive( False ) で
Close の方が何となく直感的で使い易そうですね。。。(((^^;)

//=========================================================================
procedure OpenCloseCDROMDrive( fOpen: 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, ( 2 - Ord(fOpen)) shl 8, 0 );
    finally
      mciSendCommand( wDeviceID, MCI_CLOSE, 0, 0 );
    end;{try..finally..}
  end;{with MCI do}
end;
//=========================================================================

　ちょっとゴチャゴチャするけどこちらの方が打たれ強いかも。。。(((;^^)

//=========================================================================
procedure OpenCloseCDROMDrive( fOpen: Boolean );
const
  OpenClosed: array[Boolean] of DWORD
                = ( MCI_SET_DOOR_CLOSED, MCI_SET_DOOR_OPEN );
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, OpenClosed[fOpen], 0 );
    finally
      mciSendCommand( wDeviceID, MCI_CLOSE, 0, 0 );
    end;{try..finally..}
  end;{with MCI do}
end;
//=========================================================================

                              01/03/10(Sat) 03:43pm  Fermion [KHF03264]

 



Original document by Fermion         氏 ID:(KHF03264)

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