この発言は
#00066　青木　栄        さんの音楽ＣＤの指定された番号の曲だけ演奏
に対するコメントです



　こんにちは、青木　栄さん(^^)　こういうのはどうでしょう？

# Delphi1で使用していたソースですので、最近のでは確認していません(^^;



// トラックIndexを演奏します。

procedure PlayAudio( Index: integer );
begin
  with MediaPlayer1 do begin
    Devicetype:=dtCDAudio;
    TimeFormat:=tfTMSF;

    Notify := False;
    Open;
    StartPos := Index;
    EndPos := Index + (Tracklength[Index] shl 8);
    Notify := True;
    Play;
  end;
end;

// リピートする場合は、以下の手続きを追加して下さい。
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do begin
    if Notifyvalue=nvSuccessful then begin
       StartPos := Index;  // Index:トラック番号を指定する変数
       EndPos := Index + (Tracklength[Index] shl 8);
       Play;
     end else Notify:=false;
  end;
end;

　ではでは(^^)

　　　　　　　　　　　　　　　　　　JCD03351 酔伯

Original document by 酔伯            氏 ID:(JCD03351)

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