Laufwerks-Dialog

[Hansa]

Hi,

ich brauche einen Dialog, der mir nur die Laufwerke ausflistet. Ich habe mir mal alle angesehen, aber irgendwie finde ich nichts brauchbares. Es sollen nur die verfügbaren Laufwerke aufgelistet werden, eventuell noch mit Typ, also CD (wegen R/O), Netzlaufwerk usw. Vorerst würden mir allerdings auch nur die Laufwerksbuchstaben reichen. 8) Wer weiß mehr ?

[Dax]

In der JVCL3.0 gibt es eine Combobox, die sowas macht. Vielleicht kannst du die zum Dialog umbauen.

[Duffy]

Hallo Hansa,
das reicht Dir?

Delphi-Quellcode:

procedure GetLogicalDriveList(List: TStrings);
var
  Drive: Integer;
  Bits: set of 0..25;
begin
  List.Clear;
  Integer(Bits) := Windows.GetLogicalDrives;
  for Drive := 0 to 25 do
  begin
     if Drive in Bits then
     begin
       GetDriveType(PChar(Char(Drive + Ord('A')) + ':\'));
       List.Add(Char(Drive + Ord('A')) + ':');
     end;
  end;
end;

bye
Claus

[Hansa]

Thx, das reicht, fast. 8) Ich habe das in eine ComboBox umgebaut. Aber noch 2 Fragen :

Zitat von Duffy:

GetDriveType(PChar(Char(Drive + Ord('A')) + ':\'));
List.Add(Char(Drive + Ord('A')) + ':');
[/delphi]

1. was soll das "Ord ('A')" ?
2. GetDriveType, was macht das ?

Wie gesagt, es geht schon, aber ich weíß nicht warum.

[Union]

Zitat von Hansa:

Thx, das reicht, fast. 8) Ich habe das in eine ComboBox umgebaut. Aber noch 2 Fragen :

Zitat von Duffy:

GetDriveType(PChar(Char(Drive + Ord('A')) + ':\'));
List.Add(Char(Drive + Ord('A')) + ':');
[/delphi]

1. was soll das "Ord ('A')" ?
2. GetDriveType, was macht das ?

Wie gesagt, es geht schon, aber ich weíß nicht warum.

Hi Hansa,

1. Ord() gibt einen Ordinalwert als integer zurück, in diesem Fall den ASCII-Code von 'A' = 65.
2. GetDriveType gibt den Laufwerkstyp zurück, z.b. CD, Netzlaufwerk, RamDisk usw.

[Hansa]

Hi,

ich hatte die Schleife nicht gesehen. 8) Jetzt ist nur noch der Typ interessant. Wo kriege ich den noch her ?

[SirThornberry]

auf dem Reiter "win 3.1" gibts bei mir "TDriveCombobox". Aber wie der Name der Reiters schon sagt ist diese komponente etwas veraltet, wird also vermutlich in zukünftigen versionen mal weg sein

[Union]

Zitat von Hansa:

Hi,

ich hatte die Schleife nicht gesehen. 8) Jetzt ist nur noch der Typ interessant. Wo kriege ich den noch her ?

Code:

Value   Meaning
0   The drive type cannot be determined.
1   The root directory does not exist.
DRIVE_REMOVABLE   The drive can be removed from the drive.
DRIVE_FIXED   The disk cannot be removed from the drive.
DRIVE_REMOTE   The drive is a remote (network) drive.
DRIVE_CDROM   The drive is a CD-ROM drive.
DRIVE_RAMDISK   The drive is a RAM disk.

[Duffy]

Hallo Hansa,
sorry mit dem GetDriveType. Es war noch garnicht fertig. Ich habe es vergessen wieder herauszulöschen.

bye
Claus