音楽ＣＤを再生する

音楽CDを再生する

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

Button1(再生)
Button2（一時停止）
Button3（停止）

■使用するAPI関数

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

■コマンド文字列
　＊Flieの部分は自分で名前を決める

Open CDaudio	ポートを開く
Play CDaudio	再生する
Stop CDaudio	一時停止
Close CDaudio	デバイスを解放

■注意

他のアプリケーションが音楽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);

begin



　//デバイスを開く

　mciSendString('Open CDaudio', '', 0, 0);



　//CDを再生する

　mciSendString('Play CDaudio' , '', 0, 0);



end;



procedure TForm1.Button2Click(Sender: TObject);

begin



　//CD再生を一時停止

　mciSendString('Stop CDaudio', '', 0, 0) ;



end;



procedure TForm1.Button3Click(Sender: TObject);

begin



　//再生を中止する

　mciSendString('Stop CDaudio', '', 0, 0) ;



　//デバイスを解放

　mciSendString('Close CDaudio', '', 0, 0) ;

end;

Win32APIのページへ

ホーム PV ランキング