string ls_volumenamebuffer
string ls_rootpathname
ulong ll_volumeserialnumber
ulong ll_maximumcomponentlength
ulong ll_filesystemflags
string ls_filesystemnamebuffer
string ls_id
ls_rootpathname = "c:"
ls_volumenamebuffer = space(20)
ls_filesystemnamebuffer = space(20)
if not getvolumeinformationa(ls_rootpathname,ls_volumenamebuffer,20,ll_volumeserialnumber,ll_maximumcomponentlength,ll_filesystemflags,ls_filesystemnamebuffer,20) then
ls_rootpathname = "d:"
if not getvolumeinformationa(ls_rootpathname,ls_volumenamebuffer,20,ll_volumeserialnumber,ll_maximumcomponentlength,ll_filesystemflags,ls_filesystemnamebuffer,20) then
setnull(ll_volumeserialnumber)
end if
end if
ls_id = trim(string(ll_volumeserialnumber))
使用过程中发现此方法对于有些硬盘号无法提取,请问下是什么原因,怎么解决? |