TDirectory.GetLogicalDrives获取本地逻辑驱动器

使用函数：

　　System.IOUtils.TDirectory.GetLogicalDrives

class function GetLogicalDrives: TStringDynArray; static;

说明：返回一个动态数组驱动器列表如：C:\ D:\....

代码：

procedure TForm1.Button_GetDriClick(Sender: TObject);

var

    dyArr: TStringDynArray; //System.Types.TStringDynArray

    sDri: string;

begin

    dyArr := TDirectory.GetLogicalDrives;//返回逻辑驱动器如C:\ D:\只对Windows平台有效

    for sDri in dyArr do

        ListBox1.Items.Add(sDri);

    //无异常处理

end;