delphi GetDriveTypeA() 查看驱动器类型
{GetDriveType}
//调用 GetDriveTypeA(Memo1);
procedure GetDriveTypeA(Memo:TMemo);
var
i: Integer;
C:String;
DType: Integer;
DriveString:String;
begin
//通过循环依次判断各盘符的类型
Memo.Clear;
for i:=65 to 90 do
begin
C:=chr(i)+':\';
DType:=GetDriveType(PChar(C));
case DType of
0: DriveString :=C+' 不能判断的驱动器类型.';
1:
DriveString :=C+' 根目录不存在.';
DRIVE_REMOVABLE: DriveString:=C+' 可移动驱动器';
DRIVE_FIXED : DriveString:=C+' 硬盘驱动器.';
DRIVE_REMOTE : DriveString:=C+' 网络驱动器.';
DRIVE_CDROM : DriveString:=C+' 光盘驱动器.';
DRIVE_RAMDISK : DriveString:=C+' 虚拟硬盘.';
end;
Memo.Lines.Add(DriveString);
end;
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.85643792152405 seconds