Laufwerkspfad

[Tpercon]

Wie findet man heraus, welche Laufwerke ( A:; C:; D:;...) es gibt?

[sakura]

Folgende Funktion testet die Laufwerke

Code:

function DriveExists(DriveByte: Byte): Boolean;
begin
  Result := GetLogicalDrives and (1 shl DriveByte) <> 0;
end;

A = 0
B = 1
C = 2
...

[sakura]

und dieser Code liefert den Laufwerkstyp zurück

Code:

function DriveType(DriveByte: Byte): String;
begin
  case GetDriveType(PChar(Chr(DriveByte + Ord('A')) + ':\')) of
    DRIVE_UNKNOWN: Result := 'unbekannt';
    DRIVE_NO_ROOT_DIR: Result := 'Laufwerk existiert nicht';
    DRIVE_REMOVABLE: Result := 'Wechselmedium';
    DRIVE_FIXED: Result := 'Festplatte';
    DRIVE_REMOTE: Result := 'Netzwerk';
    DRIVE_CDROM: Result := 'CD-ROM/DVD';
    DRIVE_RAMDISK: Result := 'RAM Disk';
  else
    Result := 'anderer Laufwerkstyp';
  end;
end;

--> und ab in die Code Bibliothek
:cat:

[Christian Seehase]

Moin Zusammen,

es ginge auch GetLogicalDriveStrings, wenn einem die Laufwerksbuchstaben genügen.
Die gibt's damit im Format C:\#00D:\#00...

[Daniel B]

Zitat:

Zitat von sakura

A = 0
B = 1
C = 2
...

Man hat aber auch z.B. A, B, C, H, Z. Was hat man da für Indexe? 0-4 oder die des Buchstaben? Was passiert wenn man im Betrieb neue Laufwerke anbindet und sich alles verschiebt!??!

[sakura]

Immer den entsprechenden Wert des Laufwerksbuchstaben. Die Funktion gibt dann entsprechen True oder False zurück. Funktioniert auch nach einer Neukonfiguration der Laufwerke. Schau mal in die Code-Bibliothek, da habe ich auch noch ein klitzekleines Beispiel dazu beigefügt.
:cat:

[Christian Seehase]

Moin Daniel B,

das hat sakura etwas unglücklich dargestellt.
GetLogicalDrives gibt eine Bitmaske für die Laufwerke zurück.
Die Liste beschreibt den Exponenten zur Basis 2.

Also existieren die Laufwerke A und C, so gibt die Funktion 5 zurück
101 Binär. Linke 1 = C rechte = A.

Als Metacode:

if GetLogicalDrives and 2 hoch (ord(Upcase(Laufwerksbuchstabe))-65) <> 0 then
Laufwerk existiert.

[sakura]

Zitat:

Zitat von Christian Seehase

das hat sakura etwas unglücklich dargestellt.

:twisted: :twisted: :twisted:
So eine schöne Funktion und Du wagst es Dir...
:lol:
:cat:

[Tpercon]

@ Christian:
Was geb ich der GetLogicalDriveStrings Funktion für Parameter damit die mir die Laufwerksbuchstaben so auflistet?

Gruß

[Daniel B]

@Thomas

hast du den Beitrag dazu in den Faq's gesehen?

http://www.delphipraxis.de/viewtopic.php?t=403