Zitat von
Tommy1988:
ok. ds mit dem ordner, das weis ich wie geht.
aber mit dem laufwerk leider nicht.
Delphi-Quellcode:
var
Drives: Array of Array[0..3] of Char;
i: integer;
begin
SetLength(Drives, 26);
SetLength(Drives, GetLogicalDriveStrings(length(Drives), @Drives[0]) div 4);
for i:= Low(Drives) to High(Drives) do
if GetDriveType(Pchar(String(Drives[i])))= DRIVE_FIXED then
listbox1.Items.Add(String(Drives[i]))