本文整理自网络,侵删。
uses System.Generics.Collections, System.Math, System.IOUtils;
procedure TForm1.Button5Click(Sender: TObject);var Lst: TStringList;begin Lst := TStringList.Create; try Lst.AddStrings(TDirectory.GetLogicalDrives); Memo1.LineS.AddStrings(Lst); finally FreeAndNil(Lst); end;
end;
相关阅读 >>
Delphi datasnap中间件如何控制长连接的客户端连接?
Delphi研究之驱动开发篇(六)--利用section与用户模式程
Delphi windows 编程[12] - 菜单与菜单资源(1-3)
Delphi windows 编程[17] - 更换菜单: loadmenu、destroymenu、setmenu
Delphi tdirectory.tfilterpredicate
更多相关阅读请进入《Delphi》频道 >>