获取驱动器的类型

最新推荐文章于 2022-10-20 19:13:24 发布

kaguo

最新推荐文章于 2022-10-20 19:13:24 发布

阅读量510

点赞数

分类专栏： Delphi CSDN Answer 文章标签： string function disk

本文链接：https://blog.csdn.net/kaguo/article/details/100383

版权

Delphi CSDN Answer 专栏收录该内容

32 篇文章 0 订阅

订阅专栏

function Get_DiskSerialNo(DriveID : char) : string;
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
ps:PChar;
st:String;
dt:DWORD;
begin
ps:=PChar(DriveID + ':/');
GetVolumeInformation(ps,nil, 0, @VolumeSerialNumber,MaximumComponentLength, FileSystemFlags,nil, 0);
DT:=GetDriveType(ps);
st:='';
Case dt of
    0:st:='Can not determined';
    1:st:='Disk not existsed';
    DRIVE_REMOVABLE:st:='REMOVABLED';
    DRIVE_FIXED:st:='FIXED';
    DRIVE_REMOTE:st:='REMOTE';
    DRIVE_CDROM:st:='CDROM';
    DRIVE_RAMDISK:st:='RAMDISK';
end;
result := IntToHex(HiWord(VolumeSerialNumber), 4) +'-' + IntToHex(LoWord(VolumeSerialNumber), 4)+' Type:'+st;
end;