CD-Laufwerk für Audio-CD-Wiedergabe festlegen

[Delphi Star]

Mit diesem Source kann man, mit dem TMediaPlayer, eine Audio-CD abspielen kann, die nicht im CD-Rom-Laufwerk mit dem niedrigsten Laufwerkbuchstaben ist.

1. Mit MediaPlayer
MediaPlayer1.Filename := 'g:'; // Laufwerk G: 2. Ohne MediaPlayer:

Delphi-Quellcode:

uses MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
var
  Laufwerk : String;
  Befehl   : String;
begin
  Laufwerk := 'k:';
  Befehl := 'open ' + Laufwerk + ' type cdaudio alias geraet';
  MCISendString(PChar(Befehl), nil, 0, 0);
  // tmsf = Track, Minuten, Sekunden, Frames
  MCISendString('set geraet time format tmsf', nil, 0, 0);
  // from 11 to 12 = nur 11. Lied abspielen
  MCISendString('play geraet from 11 to 12', nil, 0, 0);
  MCISendString('close geraet', nil, 0, 0);
end;

[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]