ＣＤトレイを開閉する

CDトレイを開閉する

■使用するコンポーネント

Button1
Button2

■使用するAPI関数

mciSendString（デバイスにコマンド文字列を送る）

■コマンド文字列

set cdaudio door open	CDトレイをオープンする
set cdaudio door Closed	CDトレイをクローズする

■ソースは下記のようになります。

■CDトレイを開閉する処理

//mciSendString関数をインポートする
Function


mciSendString(lpstrCommand: string; lpSectorsPerCluster : string ; uReturnLength
: Integer; hwndCallback : integer): integer;Stdcall;

external 'winmm.dll' Name 'mciSendStringA';



procedure TForm1.Button1Click(Sender: TObject);

var

　Command :String;
//コマンド文字列

begin



　//コマンド文字列をセット

　Command :='set cdaudio door open' ;

　//CDトレイをオープンする

　mciSendString(Command,'' ,0 ,0)



end;



procedure TForm1.Button2Click(Sender: TObject);

var

Command :String; //コマンド文字列

begin



　//コマンド文字列をセット

　Command :='set cdaudio door Closed';

　//CDトレイを閉じる

　mciSendString(Command,'' ,0 ,0);



end;

Win32APIのページへ

ホーム PV ランキング