Prüfen, ob eine Audio-CD eingelegt ist |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Die Beispielfunktion IsAudioCD erwartet das Root-Verzeichnis des CD-Laufwerks, das geprüft werden soll, als Parameter (z.B. 'D:').
function IsAudioCD(Drive: string): boolean;
var FSFlags: DWord;
MaxLength: DWord;
VolName: String;
begin
result:=false;
if GetDriveType(PChar(drive))=DRIVE_CDROM then begin
SetLength(VolName, 64);
GetVolumeInformation(PChar(Drive), PChar(VolName), Length(VolName), nil, MaxLength,
FSFlags, nil, 0);
if lStrCmp(PChar(VolName), 'Audio CD')=0 then result:=true;
end;
end;
Ähnliche Seiten:
- Aktuelle Position einer abspielenden CD erfahren
- Netzlaufwerke ohne Dialog verbinden
- Netzlaufwerke mit Dialog verbinden
- Feststellen, ob ein Medium eingelegt ist
- CD-Laufwerk öffnen/schließen
- Laufwerkstyp ermitteln (Festplatte, CD, Ram-Disk...)
- Namen einer Partition ermitteln
- Seriennummer einer Partition ermitteln
- Benachrichtigung bei CD-Wechsel
- Feststellen, ob ein Laufwerk bereit ist