この発言に対し以下のコメントが寄せられています

#00072　青木　栄        さん　RE:音楽ＣＤの指定された番号の曲だけ演奏

#00101　酔伯            さん　RE:音楽ＣＤの指定された番号の曲だけ演奏






//  まだ、完全なコードではありませんが。Ｗｉｎ９５，ＷｉｎＮＴ４．０
//  で動作確認済みの物です。
//
//  プロパティーの設定
//    DeviceType = dtCDAudio
//
//  指定されたインデクス番号の曲だけを演奏

procedure TForm1.PlayAudio(Index : Integer);
var
  I, J: Integer;
begin
  with MediaPlayer1 do
  begin
    Wait := True;
    Close;
    Wait := True;
    Open;
    for I := 2 to Index do
    begin
      Next;
      j := TrackPosition[I];
      while I <> Position do Application.ProcessMessages;
    end;
    Play;
    I := TrackPosition[Index + 1];
    while I <> Position do
      Application.ProcessMessages;
    Wait := True;
    Stop;
  end;
end;


Original document by 青木　栄        氏 ID:(CXC05164)

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