使用函数:
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;