在pb中如何得到硬盘序列号！或信息，，答对就给分!!

[clj630]

我是一个初学者，想在程序中得到硬盘的信息，请问怎么做，最好是能有原代码！！！

[clj630]

自己顶，，请大家帮忙啊

[lmby]

函数声明:
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"


/******************* 程序代码 ************************/
String ls_Rootpath, ls_volumnename
ls_Rootpath = "C:" // 指定要得到序列号的硬盘，
// 一般情况都是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
beep(1)
boolean lb_rtn
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
MessageBox("提示","函数调用成功!")
else
MessageBox("提示","函数调用失败!")
end if
sle_1.text = String(lul_VolumeSerialNumber) // 得到硬盘序列号
/********************* 结束 *************************/

[zzutligang]

楼上的方法获得的不是硬盘的物理ID，建议楼主到www.pdriver.com上搜索一下，很多的！

[mittee]

在www.kejx.com上有
调用dll，注意使用：

ls_volumnename = Space(256) // 分配足够的空间，

[clj630]

lmby(鹿门布衣) 谢谢你，我现在问题解决了，结帖!!!!