//Delphi 获取系统所有驱动器列表
program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,System.IOUtils, Types, TypInfo;

  var
  s: string;
  arr: TStringDynArray;

begin
  try
  arr := TDirectory.GetLogicalDrives;

  for s in arr do
  begin
  Writeln(s);
end;

  Readln;
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.