Anzahl der CD ROM Laufwerke herausfinden

[Chris P]

Hi Leute,

wie kann ich herausfinden, wieviele CD ROM Laufwerke vorhanden sind und welchen Laufwerksbuchstaben sie haben???

[Nicolai1234]

Ich habe folgenden Auszug aus EDH gefunden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I,Typ: Integer;
  s: String;
begin
  For i := 0 To 25 do
    begin
      s := Chr(i + 65) + ':\';
      typ := GetDriveType(PChar(s));
      If Typ <> 0 Then
        Case Typ of
          DRIVE_REMOVABLE :
            Listbox1.Items.Add(Chr(i + 65) + ': Diskette');

          DRIVE_FIXED :
            Listbox1.Items.Add(Chr(i + 65) + ': Festplatte');

          DRIVE_CDROM :
            Listbox1.Items.Add(Chr(i + 65) + ': CDROM');

          DRIVE_RAMDISK :
            Listbox1.Items.Add(Chr(i + 65) + ': RAMDisk');

          DRIVE_REMOTE :
            Listbox1.Items.Add(Chr(i + 65) + ': Netzlaufwerk');
        end;
    end;
end;

Jetzt kannst du die Listbox nach "CD-Rom" durchsuchen und diese zählen.


Oder du nimmst diese Function(diese liefert die Anzahl als Integer);

Aufruf z.B.: showmessage(inttostr(anzahl));

Delphi-Quellcode:

function anzahl:integer;
var
  I,Typ,i2: Integer;
  s: String;
begin
i2 := 0;
  For i := 0 To 25 do
    begin
      s := Chr(i + 65) + ':\';
      typ := GetDriveType(PChar(s));
      If Typ <> 0 Then
        Case Typ of
          DRIVE_CDROM :
            inc(i2);
            end;
    end;
  result := i2;
end;