delphi 获取驱动盘的卷标号

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

标签：style http color strong io for cti ar

{获取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 获取驱动盘的卷标号

标签：style http color strong io for cti ar

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

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

delphi 获取驱动盘的卷标 号

delphi 获取驱动盘的卷标号