Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
5. Jul 2002
Hi Christian,
deine Variante ist vielleicht nicht besonders schnell, strotzt aber vor Einfachheit. :) Mir gefällt Deine Lösung sehr gut und für interaktive (Client-)Programme ist diese ausreichend schnell. ;)
:cat:
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
4. Jul 2002
procedure LoadLogicalDrives(Strings: TStrings);
var
S: DWORD;
AllStrings, CurrentString: PChar;
begin
S := 255;
GetMem(AllStrings, Succ(S));
GetLogicalDriveStrings(S, AllStrings);
try
if AllStrings <> nil then
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
4. Jul 2002
:twisted: :twisted: :twisted:
So eine schöne Funktion und Du wagst es Dir...
:lol:
:cat:
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
4. Jul 2002
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:
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
4. Jul 2002
und dieser Code liefert den Laufwerkstyp zurückfunction 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 :=...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
4. Jul 2002
Folgende Funktion testet die Laufwerkefunction DriveExists(DriveByte: Byte): Boolean;
begin
Result := GetLogicalDrives and (1 shl DriveByte) <> 0;
end;
A = 0
B = 1
C = 2
...