delphi 磁盘类型 GetDriveType

本文整理自网络，侵删。

 //磁盘类型 GetDriveType
var
Drive: Char;
DriveLetter: String[4];
begin
for Drive := 'A' to 'Z' do
begin
DriveLetter := Drive + ':\';
case GetDriveType(PChar(Drive + ':\')) of
DRIVE_REMOVABLE:
Memo1.Lines.Add(DriveLetter + ' Floppy Drive');
DRIVE_FIXED:
Memo1.Lines.Add(DriveLetter + ' Fixed Drive');
DRIVE_REMOTE:
Memo1.Lines.Add(DriveLetter + ' Network Drive');
DRIVE_CDROM:
Memo1.Lines.Add(DriveLetter + ' CD-ROM Drive');
DRIVE_RAMDISK:
Memo1.Lines.Add(DriveLetter + ' RAM Disk');
end;
end;
end; 

相关阅读 >>

Delphi xe 分割字符串太方便了

Delphi在64位系统下写注册表注意事项

Delphi 解析Delphi中的loadlibrary,getprocaddress,freelibrary

Delphi tstringlist的delimitedtext的空格问题

Delphi文件分割合并

Delphi 获取带分隔符字符串中的字段值

用tidftp控件实现ftp协议

Delphi xe5实现按android的back键无法退出关闭程序

Delphi webbroker 上传文件

Delphi 2009 之 tcategorypanelgroup[1]: chevronalignment 等

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

转载请注明出处：木庄网络博客 » delphi 磁盘类型 GetDriveType