CD-Laufwerk für Audio-CD-Wiedergabe festlegen
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
Delphi-Quellcode:
2. Ohne MediaPlayer:
MediaPlayer1.Filename := 'g:'; // Laufwerk G:
Delphi-Quellcode:
[edit=flomei]Wir "räumen auf", daher Titel geändert... Mfg, flomei[/edit]
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:49 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz