CDトレイを開閉する


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

■使用するAPI関数

■コマンド文字列

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 ランキング