delphi 获取驱动盘的卷标号

时间：2014-08-01 12:57:51 阅读：676 评论：0 收藏：0 [点我收藏+]

{获取C盘的卷标格式化硬盘卷标改变}
//GetHardDiskSerial(‘c:\‘)
function GetHardDiskSerial(Drive: string): string;
var VolumeSerialNumber: DWORD;
  MaximumComponentLength: DWORD;
  FileSystemFlags: DWORD;
begin
  if Drive[Length(Drive)]=‘:‘ then Drive := Drive + ‘\‘;
  GetVolumeInformation(PChar(Drive), nil, 0, @VolumeSerialNumber, MaximumComponentLength, FileSystemFlags, nil, 0);
  Result := IntToHex(HiWord(VolumeSerialNumber), 4) + ‘-‘ + IntToHex(LoWord(VolumeSerialNumber), 4);
end;

来自为知笔记(Wiz)

delphi 获取驱动盘的卷标号,布布扣,bubuko.com

delphi 获取驱动盘的卷标号

原文：http://www.cnblogs.com/xe2011/p/3884432.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)

delphi 获取驱动盘的卷标 号

delphi 获取驱动盘的卷标号