CD/DVD-Laufwerk prüfen

[hoika]

Hallo,

das Array sollte nach deinem Code aber so bleiben.
Aber ich würde das einfacher machen.

Delphi-Quellcode:

procedure GetDrives(const AItems: TStrings);
var
   Drive: Char;
   DriveType: Integer;
   DriveMask: Integer;
   Flag: Integer;
   S1: String;
begin
   AItems.Clear;
   DriveMask := GetLogicalDrives; //Bitmaske holen
   flag := 1; //Startflag setzen
   for Drive := 'A' to 'Z' do //Jeden Buchstaben gegenprüfen
   begin
     if (flag and DriveMask) <> 0 then
     begin
       DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
       if DriveType=DRIVE_CDROM then
       begin
         AItems.Add(Drive);  

         // falls das nicht klappt
         S1 := Drive;
         AItems.Add(S1);
       
       end;
     end;
     flag := flag shl 1; //Ein Bit weiter nach links gehen ( = flag * 2)
   end;
end;

Code ist nicht getestet.
Im Ergebnis sind die Buchstaben aller CD-/ DVD-Laufwerke in der StringList.

Heiko

[Luki206]

Danke für deine Antwort. Nur benötige ich die Variable in einem String und nicht in einer Listbox.. Ich habe das jetzt so um geschrieben wie ich denke es sollte richtig sein:

Delphi-Quellcode:

procedure GetDrives(const AItems: String);
var
    Drive: Char;
    DriveType: Integer;
    DriveMask: Integer;
    Flag: Integer;
    S1: String;
begin
    DriveMask := GetLogicalDrives; //Bitmaske holen
    flag := 1; //Startflag setzen
    for Drive := 'A' to 'Z' do //Jeden Buchstaben gegenprüfen
    begin
      if (flag and DriveMask) <> 0 then
      begin
        DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
        if DriveType=DRIVE_CDROM then
        begin
          AItems := (Drive);
        end;
      end;
      flag := flag shl 1; //Ein Bit weiter nach links gehen ( = flag * 2)
    end;
end;

Nur kommt folgende Fehlermeldung:
[dcc32 Fehler] Unit1.pas(44): E2064 Der linken Seite kann nichts zugewiesen werden

[Luki206]

Hat sich erledigt Habe es jetzt so hinbekommen:

Delphi-Quellcode:

procedure GetDrives(var Item: String);
var
    Drive: Char;
    DriveType: Integer;
    DriveMask: Integer;
    Flag: Integer;
begin
    DriveMask := GetLogicalDrives; //Bitmaske holen
    flag := 1; //Startflag setzen
    for Drive := 'A' to 'Z' do //Jeden Buchstaben gegenprüfen
    begin
      if (flag and DriveMask) <> 0 then
      begin
        DriveType := GetDriveType(PChar(Format('%S:\',[Drive]) ) ) ;
        if DriveType=DRIVE_CDROM then
        begin
         Item := (Drive);
        end;
      end;
      flag := flag shl 1; //Ein Bit weiter nach links gehen ( = flag * 2)
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var show: String;
begin
GetDrives(show);
Label1.Caption := show;
end;

[DeddyH]

Und was machst Du bei mehreren CD-/DVD-Laufwerken? Es soll ja auch Leute geben, die einen separaten Brenner verbaut haben.

[sx2008]

Ich glaube ja du machst dir Probleme wo keine sind und triffst Annahmen die in der Praxis wiederum Probleme machen.
Aber das du nicht geschrieben hast was du eigentlich vorhast kann ich nur raten.

Also: manche Firmen betreiben CD-ROM-Server.
Häufig benötigte CDs/DVDs (z.B. MS Office) werden in Serverlaufwerke eingelegt und können von Client-Rechner im LAN gelesen werden.
Oder der gesamte Inhalt wird irgendwo auf einem Netzwerkverzeichnis abgelegt.
Software Updates werden zunehmend gar nicht mehr auf DVD ausgeliefert sondern müssen heruntergeladen werden.

Es spielt heutzutage keine Rolle mehr auf welchem Medium irgendwelche Installation oder Daten vorliegen.
Daher ist es sinnlos zu prüfen ob ein Laufwerk ein CD/DVD Medium oder vielleicht ein USB-Memorystick ist.

[hoika]

Hallo,

also mein Code lieferte eine Liste aller CD-DVD-Laufwerke.
Du übergibst der Funktino eine vorher erzeugte StringListe:

Delphi-Quellcode:

var
  SL: TStringList;
  iDrive : Integer;
  sDrive : String;
begin
  SL := TStringList.Create;

  GetDrives(SL);

  // hier geht es weiter mit dem Durchsuchen
  for iDrive := 0 to SL.Count-1 do
  begin
    sDrive := SL[iDrive];
    if FileExists ...
  end;
end;

Heiko