Laufwerkbuchstaben auslesen

[sakura]

Es kann mit all den genannten Stichworten doch nicht so schwer zu sein, sich ein bisschen damit zu befassen oder Wir haben alle mal angefangen...

Delphi-Quellcode:

var 
  Drive: Char; 
  Drives: array of string;
  Idx: Integer;
begin
  SetLength(Drives, 0);
  Idx := 0;
  for Drive := 'A' to 'Z' do 
  begin 
    if GetDriveType(PChar(Drive + ':/')) = DRIVE_FIXED then
    begin
      SetLength(Drives, Idx + 1);
      Drives[Idx] := Drive + ':\';
      Idx := Idx + 1;
    end;
  end;

  if Length(Drives) > 0 then
    for Idx := Low(Drives) to High(Drives) do
      WriteLn(Drives[Idx]);
end;

......