文件名称：取硬盘的逻辑id
文件大小：1KB
文件格式：TXT
更新时间：2009-03-15 02:52:39
另类其它 控件 源码 资源
Function Boolean GetVolumeInformationA(ref String ls_Rootpath,ref String ls_volumnename,Ulong lul_VolumeNameSize, ref Ulong lul_VolumeSerialNumber,ref Ulong lul_MaximumComponentLength,ref Ulong lul_FileSystemFlags,ref String ls_FileSystemNameBuffer,Ulong lul_FileSystemNameSize) Library "Kernel32.dll" /////////////////////////////////////////boolean lb_rtn String ls_Rootpath, ls_volumnename ls_Rootpath = "C:" ls_volumnename = Space(256) Ulong lul_VolumeNameSize lul_VolumeNameSize = 256 Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags lul_MaximumComponentLength = 256 String ls_FileSystemNameBuffer ls_FileSystemNameBuffer = space(256) Ulong lul_FileSystemNameSize lul_FileSystemNameSize = 256 lb_rtn = False lb_rtn = GetVolumeInformationA(ls_Rootpath, ls_volumnename, lul_VolumeNameSize,lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags,ls_FileSystemNameBuffer, lul_FileSystemNameSize) if lb_rtn = true then return String(lul_VolumeSerialNumber)else return "null"end if