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