MyFll.fll 不能获取ＸＰ硬盘序列号？？

[发现代码]

今天换了一台机子，发现执行：
Set Library To myFll
?GetDiskSerial()
Set Library To

不返回任何值，不知道是怎么回事？？？？请教各位老师帮助！！
我的系统信息如下图：

[zjm_dct]

一种可能：你设置了SET TALK OFF ，程序不能显示命令结果，你当然看不到任何返回值 另一种可能：你的硬盘确实没有ID，你附的系统信息图中并看不出你的硬盘ID 建议你试一下： 1、表单中新建text1 2、Set Library To myFll thisform.text1.value=GetDiskSerial() Set Library To 运行后看看text1中显示有没有内容 如果没有内容，说明你的硬盘确实没有ID 如果有内容，说明设置了SET TALK OFF

[发现代码]

谢谢，楼上的可以读出。但与上面读取工具读出的字符排列顺序不一样。

[zjm_dct]

学习了，咱收藏了

[发现代码]

确实读不出：

[发现代码]

[都市夜猫]

还没发现有哪款工具可以百分百的肯定在任何情形下都可以正确读出硬盘序列号 网上最早也最权威的是这个: http://www.winsim.com/diskid32/diskid32.html，它采用了多种方案来读取序列号，可以看到有些方案成功，有些会失败。网上大部分的取序列号dll都是基于它介绍的方法，myfll使用的是哪种咱不清楚。 此外，也可以试试用 WMI 来读取:

*//* vfp9 代码
Clear
oWMI = Getobject("winmgmts:\\.\root\CIMV2")
oItems = oWMI.ExecQuery("SELECT * FROM Win32_PhysicalMedia",,48)
For Each oItem In oItems
    ? "-----------------------------------"
    ? "Win32_PhysicalMedia instance"
    ? "-----------------------------------"
    ? "Caption: " + Transform(oItem.Caption)
    ? "Model: " + Transform(oItem.Model)
    ? "SerialNumber: " + Transform(oItem.SerialNumber)
Endfor

[十豆三]

GetDiskSerial()函数说明中注明了部分硬盘可能没有序列号，应该就是读不出。