CD-Laufwerke in Drivecombobox

[Uncle Cracker]

Wie kann man nur die CD-Laufwerke in einer Drivecombobox anzeigen lassen. Oder ist das nicht möglich?

[Stanlay Hanks]

Also ich weiß leidern nicht, wie man nur die CD Laufwerke filtern kann, aber in der CodeLibrary gibt es einen Beitrag wie man Laufwerke sucht und erkennt. Hier

Vielleicht hilft dir das ja trozdem weiter.
Man liest sich, Stanlay

[Uncle Cracker]

@Stanlay Hanks

nicht ganz das was ich suche aber trotzdem Danke.

Vielleicht kennt ja jemand eine Komponente die ähnlich Combobox ist, aber nur die CD-Laufwerke anzeigt.

[s14]

Wenn die beiden Funktionen aus der Code-Library wie von Stanlay vorgeschlagen verwendet werden, kann mit folgender Prozedur eine Liste der CD-Laufwerke ausgegeben werden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 25 do
    if DriveExists(I) and (GetDriveType(PChar(Chr(I + Ord('A')) + ':\')) = DRIVE_CDROM) then
      ComboBox1.Items.Add(Chr(I + Ord('A')) + ':\  (' + DriveType(I) + ')');
end;

Die ComboBox muss natürlich existieren

Gruß
s14

[flomei]

Kann man statt CD/DVD vielleicht auch den Namen des Gerätes anzeigen lassen? Also nicht den Typ sondern den Namen?

Danke im Vorraus!

MfG Florian

[Christian Seehase]

Moin Florian,

schau Dir mal GetVolumeInformation an.
Vielleicht meinst Du das.