Feststellen, ob CD oder DVD-Laufwerk

[hoika]

Hallo #,

mit SHGetFileInfo kann ich den Displaynamen (wird im Explorer angezeigt) und den TypeNamen
eines CD- bzw. DVD-Laufwerkes ermitteln.
Dummerweise liefert mir szTypeName immer "CD-Laufwerk" und szDisplayName
zwar DVD-RAM-Laufwerk, wenn keine DVD im DVD-Laufwerk liegt,
liegt aber eine DVD drin wird der Volumen-Name der DVD zurückgegeben.

Wie bekomme ich also raus, ob es ein CD oder DVD-Laufwerk ist ?

Danke



Heiko

[Bernhard Geyer]

Ich würde sagen: WMI ist dein Freund

[hoika]

Hallo,

nicht schon wieder ;(
Lese ich aber ein paar Threads darüber,
hat es mit WMI auch noch keiner geschafft.


#Update:#
Ich checke jetzt, ob im szDiplayName der String DVD steht,
nicht 100% zuverlässig, aber mir reichts


Heiko

[CCRDude]

Man muss doch nicht für alles mit WMI-Kanonen auf Spatzen schießen!

Warum nicht if GetDriveType('C:\')=DRIVE_CDROM then ...

(siehe GetDriveType)

Oder geht es darum, zwischen CD und DVD zu unterscheiden?

[DeddyH]

Sieht wohl so aus:

Zitat:

Wie bekomme ich also raus, ob es ein CD oder DVD-Laufwerk ist ?

[Bummi]

hat zwar nicht direkt etwas damit zu tun, vielleicht bisweilen doch als Krücke zu missbrauchen
DiskSize(Ord('E') - 64) div 1024 div 1024

[CCRDude]

Zitat von DeddyH:

Sieht wohl so aus:

Zitat:

Wie bekomme ich also raus, ob es ein CD oder DVD-Laufwerk ist ?

Hmm... warum zitierst Du ausgerechnet das? Das war der Grund, warum ich überhaupt auf die Frage kam, weil da nicht klar hervorgeht, ob es ein exlusives "oder" ist.

Wenn ich mir jetzt aber alles durchlese - im Kontext betrachtet dürftest Du recht haben

[ASM]

Zitat von hoika:

Wie bekomme ich also raus, ob es ein CD oder DVD-Laufwerk ist ?

Dies und weit mehr geht hervorragend mit der TIsoLib, die komplett im Quellcode vorliegt.
Letzte Version ist v0.03a und stammt zwar schon aus 2004, funktioniert aber unter WinXP und zumindestens mit D7 bei mir problemlos (siehe beigefügte, von mir erweiterte Exe-Demo, getestet auf 4 verschiedenen Rechnern).

Allerdings bestehen systembedingt folgende zwei Voraussetzungen, um diese CD/DVD-Drive Infos tief aus dem System heraus auslesen zu können:
(1) man muss mit Administratorrechten eingeloggt sein
(2) es muss eine Disk (CD oder DVD im Laufwerk liegen)

[Luckie]

Ich hätte jetzt noch die SetupAPI vorgeschlagen.

[ASM]

Zitat von Luckie:

Ich hätte jetzt noch die SetupAPI vorgeschlagen.

Mit der SetAPI, jedenfalls der zu Jedi gehörigen, lassen sich - soweit ich erkennen kann - nur die im System installierten Treiber anzeigen. Und zwar dabei kollektiv subsummiert als "DVD/CD-ROM Laufwerke".
Eine Differenzierung, welches Laufwerk nun ein CDROM ist und welches ein DVD-Lw,, scheint aber damit nicht zu gehen. Ebenso nicht wie weitergehende Abfragen, ob es sich dabei um ein CD bzw. DVD-Lw mit nur READ- oder um eines mit READ/WRITE-Option (also um einen Brenner) handelt, usw. Die von mir genannte TIsoLib kann das aber alles.

Jetzt habe ich die TIsoLib ergänzend auch einmal in Delphi XE eingesetzt (bisher hatte ich sie immer nur in D7 verwendet): nach nur geringfügigen Korrekturen im Quelltext der Library funktioniert diese ebenso im XE einwandfrei (unter WinXP getestet) und mit dem exakt gleichen Ergebnis wie zuvor bei ihrer Verwendung in D7. Zwingend notwendig zum Einsatz mit XE sind nur einige Korrekturen in der Library hinsichtlich der Deklaration von String (AnsiString vs. Widestring) und PChar (PAnsiChar vs. PWideChar).