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 access 从数据库里随机选择一行

Delphi文本文件读写

Delphi 判断文件是否被使用

Delphi firedac tfdconnection连接mysql数据库

Delphi win32_networkadapter 网卡 参数说明

Delphi 一个call应该如何写?

Delphi的with…do语句的用法

Delphi wmi 取硬件信息

Delphi运行时拖拉、改变元件大小

Delphi通过wmi获取系统信息

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

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