哪位高手提供一个只查询C:盘所在硬盘物理ＩＤ号？

luolzd

在论谈上有关于硬盘物理ＩＤ号查询程序，他们提供的功能非常多．可我只想要一个查询Ｃ盘所在硬盘的物理ＩＤ号程序，不知哪位高手＼哪位版主肯预以赐教！先谢过！

plxmm

加以修改即可啊。即 查找到 C:并取到 Sn 号码后退出程序吖。

prince

Public Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)
Public Const MAX_FILENAME_LEN = 256

Public Function DriveSerial(ByVal sDrv As String) As Long
Dim RetVal As Long
Dim str As String * MAX_FILENAME_LEN
Dim str2 As String * MAX_FILENAME_LEN
Dim a As Long
Dim b As Long

Call GetVolumeInformation(sDrv & ":\", str, MAX_FILENAME_LEN, RetVal, a, b, str2, MAX_FILENAME_LEN)
DriveSerial = RetVal
End Function

这是我原来收集的一个API

luolzd

改了，水平太菜没成功，只好求助各位了。三楼老兄的程序我试试，谢了！

luolzd

三楼老师，我该怎样使用你这个程序? 最好让它显示在某一单元格中（sheet1("a1"))汗。。。。[em04]

[此贴子已经被作者于2005-11-28 16:50:51编辑过]

SWFWIND

强！~API不懂！~~

huyongapple

怎么我用MSINFO32.EXE(Wimdows系统信息）和SI32.EXE(Norton SystemWorks Premier的System Infomation)都不能查到物理硬盘的ID，只能查到卷（逻辑盘）序列号，物理硬盘存在ID吗？

prince

你要查看C:盘的只有卷（逻辑盘）序列号,因为它是格式化时产生的,每次格式化以后都会不同.

而物理ID号应该用API好像都不行!