Hallo und guten Abend,
ich bastle nun schon eine ganze Weile an einer eigentich einfachen Sache, komme aber mangels Erfahrung nicht weiter.
Folgender Umstand:
Ich lese vorhandene Laufwerke in eine Listbox ein, wo diese dann per Auswahl des jeweiligen Items angesprochen werden sollen.
Das Problem dabei ist nur, dass sich beim Anstecken bzw. Entfernen von USB oder Netzlaufwerken der Index ändert, sodass ich den Wert nicht dem Laufwerk zuordnen kann.
Meines Erachtens müsste ich die Laufwerksbuchstaben temporär speichern, um dann die Zuordnung zu bekommen. Vielleicht bin ich aber auch auf'm Holzweg.
Hier mal kurz was bisher passiert.
Suche nach den Laufwerken:
Delphi-Quellcode:
function DriveExists(DriveByte: Byte): Boolean;
begin
Result := GetLogicalDrives
and (1
shl DriveByte) <> 0;
end;
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;
Übertrag an die Listbox:
Delphi-Quellcode:
var
I: Integer;
begin
for I := 0 to 25 do
if DriveExists(I) then
listbox1.Items.Add(Chr(I + Ord('A')) + ':\ (' + DriveType(I) + ')');
end;
Nur um zu gucken ob's bis hier geht, frage ich dann die Items ab:
Delphi-Quellcode:
begin
case ListBox1.ItemIndex of
0 : ShowMessage('LW C:\');
1 : ShowMessage('DVD');
2 : ShowMessage('USB Platte');
end;
Ändert sich nun die Reihenfolge der Laufwerke, ändert sich ja auch der Index.. wie gehe ich das am besten an?
Danke schon mal!
PM