Laufwerke anzeigen

[Sharky]

Ich habe jetzt einfach die eine Funktion so abgeändert das sie nur bei einem bestimmten LW-Typ ein TRUE zurück liefert.

Delphi-Quellcode:

function DriveExists(DriveByte: Byte; DriveType : Byte ): Boolean;
begin
  Result := (GetLogicalDrives and (1 shl DriveByte) <> 0)
            AND (DriveType = GetDriveType(PChar(Chr(DriveByte + Ord('A')) + ':\')));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 25 do
  begin
   if DriveExists(I,Drive_CDROM) then
   begin
      ListBox1.Items.Add(Chr(I + Ord('A')) + ':\  (CDROM / DVD)');
   end;
  end;
end;