Delphi 获取系统所有磁盘盘符

本文整理自网络，侵删。

 
//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.
 

相关阅读 >>

Delphi将xm音乐文件嵌入自己的程序

Delphi中使用内联变量(inline variables) 的5个理由

Delphi idhttp中application/x-www-form-urlencoded字符说明

Delphi eof 判断文件指针是否移动到了文件未尾

Delphi 将dbgrid的数据导出到excel文件保存

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi 程序嵌入桌面效果的实现

Delphi读写文本文件 assignfile reset append

Delphi 一句话获取文件的最新修改时间

Delphi tfont类型和json互相转换的函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取系统所有磁盘盘符