delphi获得硬盘所有分区

本文整理自网络，侵删。

 //delphi获得硬盘所有分区

procedure GetDrives(Drives: TStrings);
var
Drive: Char;
DriveLetter: string[4];
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
if GetDriveType(PChar(Drive + ':\')) = DRIVE_FIXED then
Drives.Add(DriveLetter);
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
GetDrives(ListBox1.Items);
end;
 

相关阅读 >>

Delphi图表控件tchart使用faq

Delphi webbroker iis cgi 的配置

Delphi xe5 android listview

Delphi xe2创建apple ios程序

Delphi xe6 grid试用结果

Delphi 快速检测是否联网

Delphi memo 内容每n行分批处理

Delphi 模拟按键的一些误解

Delphi 只用一条语句就能使tbitmap反色

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

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

转载请注明出处：木庄网络博客 » delphi获得硬盘所有分区