Prüfen ob sich eine Audio-CD im Laufwerk befindet

[Daniel B]

Hallo,

hiermit kann man testen ob sich eine Audio-CD im Laufwerk befindet. Ist dies der Fall, so gibt die Funktion ein True zurück.

Delphi-Quellcode:

function TBlupp.AudioCDInDrive(sDrive: String): Boolean;
var
  SR: TSearchRec;
begin
  Result := SysUtils.FindFirst(sDrive + '\*.cda', faAnyFile, SR) = 0;
  SysUtils.FindClose(SR);
end;

Und so könnte der Aufruf aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if AudioCDInDrive('D:') then
    ShowMessage('Juhuu, Audio-CD vorhanden! :->')
  else
    ShowMessage('Keine Audio-CD, oder Daten-CD im Laufwerk,' + #13#10 +
      'oder irgend ein Held hat die CD aus dem Laufwerk geklaut! :-(');
end;

Grüsse, Daniel :hi: