お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"CD-ROM Drive の開閉"

この発言に対し以下のコメントが寄せられています
#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 なので、下記   {* 註1*} の様にまとめてありますが、バグの源となるかも知れません、   ご注意下さい。_(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 {* 註1*} 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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum