怎样读硬盘序列号?

wtfdnvxa 2003-07-09 08:36:46
我想用VFP编一段程序读取硬盘的序列号,但不知道怎么做?望各位不惜赐招,谢谢!
...全文
70 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
wtfdnvxa 2003-08-12
  • 打赏
  • 举报
回复
谢谢各位的帮忙!
给分了
十月鹰飞 2003-07-15
  • 打赏
  • 举报
回复
以上是收集的,用着还不错
十月鹰飞 2003-07-15
  • 打赏
  • 举报
回复
用API试试
PUBLIC lpRootPathName, ;
lpVolumeNameBuffer, ;
nVolumeNameSize, ;
lpVolumeSerialNumber, ;
lpMaximumComponentLength, ;
lpFileSystemFlags, ;
lpFileSystemNameBuffer, ;
nFileSystemNameSize

lpRootPathName = "c:\" && Drive and directory path
lpVolumeNameBuffer = SPACE(256) && lpVolumeName return buffer
nVolumeNameSize = 256 && Size of/lpVolumeNameBuffer
lpVolumeSerialNumber = 0 && lpVolumeSerialNumber buffer
lpMaximumComponentLength = 256
lpFileSystemFlags = 0
lpFileSystemNameBuffer = SPACE(256)
nFileSystemNameSize = 256

DECLARE INTEGER GetVolumeInformation IN Win32API AS GetVolInfo ;
STRING @lpRootPathName, ;
STRING @lpVolumeNameBuffer, ;
INTEGER nVolumeNameSize, ;
INTEGER @lpVolumeSerialNumber, ;
INTEGER @lpMaximumComponentLength, ;
INTEGER @lpFileSystemFlags, ;
STRING @lpFileSystemNameBuffer, ;
INTEGER nFileSystemNameSize

RetVal=GetVolInfo(@lpRootPathName, @lpVolumeNameBuffer, ;
nVolumeNameSize, @lpVolumeSerialNumber, ;
@lpMaximumComponentLength, @lpFileSystemFlags, ;
@lpFileSystemNameBuffer, nFileSystemNameSize)
a=alltrim(STR(lpVolumeSerialNumber))
magnetmoon 2003-07-15
  • 打赏
  • 举报
回复
PUBLIC lpRootPathName, ;
lpVolumeNameBuffer, ;
nVolumeNameSize, ;
lpVolumeSerialNumber, ;
lpMaximumComponentLength, ;
lpFileSystemFlags, ;
lpFileSystemNameBuffer, ;
nFileSystemNameSize

lpRootPathName = "c:\" && Drive and directory path
lpVolumeNameBuffer = SPACE(256) && lpVolumeName return buffer
nVolumeNameSize = 256 && Size of/lpVolumeNameBuffer
lpVolumeSerialNumber = 0 && lpVolumeSerialNumber buffer
lpMaximumComponentLength = 256
lpFileSystemFlags = 0
lpFileSystemNameBuffer = SPACE(256)
nFileSystemNameSize = 256

DECLARE INTEGER GetVolumeInformation IN Win32API AS GetVolInfo ;
STRING @lpRootPathName, ;
STRING @lpVolumeNameBuffer, ;
INTEGER nVolumeNameSize, ;
INTEGER @lpVolumeSerialNumber, ;
INTEGER @lpMaximumComponentLength, ;
INTEGER @lpFileSystemFlags, ;
STRING @lpFileSystemNameBuffer, ;
INTEGER nFileSystemNameSize

RetVal=GetVolInfo(@lpRootPathName, @lpVolumeNameBuffer, ;
nVolumeNameSize, @lpVolumeSerialNumber, ;
@lpMaximumComponentLength, @lpFileSystemFlags, ;
@lpFileSystemNameBuffer, nFileSystemNameSize)
a=alltrim(STR(lpVolumeSerialNumber))
?a
----------------------------
其實是卷標號,并非真的序列號!
jackielueng 2003-07-14
  • 打赏
  • 举报
回复
有这样的DLL呀。可以到HTTP://WWW.FOXER.NET找到的。
wtfdnvxa 2003-07-09
  • 打赏
  • 举报
回复
请问 fj_jiangqi(死掉了) VC又怎么样实现呢?谢谢!
heavenmusic 2003-07-09
  • 打赏
  • 举报
回复
请问:硬盘的序列号 是什么意思?? 谢谢!!
fj_jiangqi 2003-07-09
  • 打赏
  • 举报
回复
只能调用外来程序来实现,vfp本身并不直接具备这些功能。
你可以用vc实现这样功能,然后用vfp来调用。
-------------------------
我流落在凄凉的世界里-孤苦伶仃
我过着动荡无助的生活-四处漂泊
fj_jiangqi 2003-07-09
  • 打赏
  • 举报
回复
我知道有这个功能,但没试过,主要思想是读取硬盘基础数据,也许会有这样的dll,如果有的话,在vfp下直接就能调用了。
这方面资料也许在其它论坛里更容易找到。
-------------------------
我流落在凄凉的世界里-孤苦伶仃
我过着动荡无助的生活-四处漂泊

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧