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;