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 dbgrid鼠标滚屏

Delphi xe6 取得app自己的版本号(横跨4个平台)

Delphi link() 精简打开网址

Delphi tstreamwriter快速写入文件

Delphi sqlite 自动编号的实现

Delphi memo 循环往上往下滚动

Delphi 用浏览器来显示带图片的邮件内容，图片无需保存为本地文件

Delphi 判断尾串是否匹配,不分大小写

Delphi 进程通讯之wm_copydata 发送程序（senddata.exe）

Delphi firemonkey在画布上绘制 imagelist图像

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

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