GetDriveTypeA() 查看驱动器类型
2012-07-26 08:50
176 查看
{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;
通过 为知笔记 发布
//调用 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;
通过 为知笔记 发布
附件列表
flash.png相关文章推荐
- 利用GetLogicalDrives和GetDriveType获取驱动器盘符及类型
- 获取驱动器类型信息 GetDriveType
- GetLogicalDrives|GetLogicalDriveStrings|GetDriveType-穷举系统所有驱动器
- 磁盘类型 GetDriveType
- 利用GetDriveType来得到驱动器信息
- WinAPI: GetDriveType - 获取磁盘类型
- WindowsAPI详解——GetDriveType 获得逻辑驱动器的类型
- GetDriveType 功能:判断一个磁盘驱动器的类型
- 磁盘类型 GetDriveType
- Windows API 逐个逐个学MessageBox(5) 遍历驱动器并获取驱动器属性 GetLogicalDriveStrings、GetDriveTypeA
- WindowsAPI详解——GetDriveType 获得逻辑驱动器的类型
- 获取磁盘类型及剩余空间 GetDiskFreeSpaceEx GetDriveTypeW GetVolumeInformation
- 正确检查上传文件类型或者get mine type from file
- window api之 GetDriveType
- 用GetLogicalDriveStrings或FindFirstVoum两种方法获取主机驱动器列表
- Flex进行数据类型判断:is typeof ObjectUtil.getClassInfo
- Windows API一日一练(61)GetDriveType函数
- GetLogicalDriveStrings和GetDriveType
- 使用GetLogicalDriveStrings获取驱动器根路径
- 通过封装编写Book类。要求:类具有私有属性书名title、页数pageNum、类型type(默认为计算机类),并为这三个属性分别编写set和get方法。其中,页数不能少于200页,否则输出错误信息,