利用API函数 GetVolumeInformation 获取盘区信息

*利用API函数：GetVolumeInformation 获取盘区信息
delphi_database （其中'卷序列号'就是每个分区的序列号）

Clea
#Define FILE_CASE_SENSITIVE_SEARCH 1
#Define FILE_CASE_PRESERVED_NAMES 2
#Define FILE_UNICODE_ON_DISK 4
#Define FILE_PERSISTENT_ACLS 8
#Define FILE_FILE_COMPRESSION 16
#Define FILE_VOLUME_IS_COMPRESSED 32768 && &H8000

Declare INTEGER GetLastError IN kernel32
Declare SHORT GetVolumeInformation IN kernel32;
STRING lpRootPathName,;
STRING @ lpVolumeNameBuffer,;
INTEGER nVolumeNameSize,;
INTEGER @ lpVolumeSerialNumber,;
INTEGER @ lpMaximumComponentLength,;
INTEGER @ lpFlags,;
STRING @ lpFileSystemNameBuffer,;
INTEGER nFileSystemNameSize
lpRootPathName = "C:/" && 驱动器和目录名，此处可换成其他分区
lpVolumeNameBuffer = SPACE(256) && lpVolumeName 返回缓存
nVolumeNameSize = 256 && lpVolumeNameBuffer 的大小
lpVolumeSerialNumber = 0 && lpVolumeSerialNumber 缓存
lpMaximumComponentLength = 256
lpFileSystemFlags = 0
lpFileSystemNameBuffer = SPACE(256)
nFileSystemNameSize = 256

lnResult = GetVolumeInformation(@lpRootPathName, @lpVolumeNameBuffer, ;
nVolumeNameSize, @lpVolumeSerialNumber, ;
@lpMaximumComponentLength, @lpFileSystemFlags, ;
@lpFileSystemNameBuffer, nFileSystemNameSize)

If lnResult = 1
?"驱动器和目录名 : " + ALLTRIM(lpRootPathName)
?"卷名 : " + LEFT(ALLTRIM(lpVolumeNameBuffer),LEN(ALLTRIM(lpVolumeNameBuffer))-1)
?"卷名最大字符数 : " + ALLTRIM(STR(nVolumeNameSize))
?"卷序列号 : " + ALLTRIM(STR(lpVolumeSerialNumber))
?"文件/目录名的最大字符数 : " + ALLTRIM(STR(lpMaximumComponentLength))
?"文件系统标记 : " + ALLTRIM(STR(lpFileSystemFlags))
?"文件系统类型 : " + LEFT(ALLTRIM(lpFileSystemNameBuffer), LEN(ALLTRIM(lpFileSystemNameBuffer))-1)
?"文件系统名大小 : " + ALLTRIM(STR(nFileSystemNameSize))
Else
? "运行错误号: ", GetLastError()
Endif
Clea dlls
Retu