Ordner ermittlen

[bitsetter]

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]))