为什么用这个函数,对于某些硬盘无法取出硬盘序列号出来？

[galiton]

//非常奇怪，有的硬盘能取出来，有的就取不出来。哪位大侠用过这个函数，请假一二！谢谢！！！

string ls_VolumeNameBuffer
ulong ll_VolumeSerialNumber
ulong ll_MaximumComponentLength
ulong ll_FileSystemFlags
string ls_FileSystemNameBuffer

as_RootPathName=Left(as_RootPathName,1)+":"
ls_VolumeNameBuffer=Space(20)
ls_FileSystemNameBuffer=Space(20)

IF not GetVolumeInformationA(as_RootPathName,ls_VolumeNameBuffer,20,ll_VolumeSerialNumber,ll_MaximumComponentLength,ll_FileSystemFlags,ls_FileSystemNameBuffer,20) THEN
SetNull(ll_VolumeSerialNumber)
END IF

RETURN String(ll_VolumeSerialNumber)

[galiton]

自己先up

[地狱余烬]

Function ulong GetVolumeInformationA ( string lpRootPathName , ref string pVolumeNameBuffer , long nVolumeNameSize , ref long lpVolumeSerialNumber , ref long lpMaximumComponentLength , ref long lpFileSystemFlags , ref string lpFileSystemNameBuffer , long nFileSystemNameSize ) Library "kernel32"


long retVal
string sdrv,str, str2
long a
long b
ulong ll_retval
sDrv = 'C:\'
str = space(256)
str2 = space(256)
ll_retval = GetVolumeInformationA(sDrv, str, 256, RetVal, a, b, str2, 256)

这是我的用了很长时间了，肯定行

[galiton]

没有什么区别啊？