VFP 愛用者社區

David Lee · 註冊時間: 2003-12-14 文章: 4 來自: Heong Kong 第 1 樓

請問各位高手,如何取得HardDisk 的 Serial Number
我明白一定要用DLL 或Active-x ,請問在什麼地方可download
Tks

Ruey · 發表於: 星期三三月 31, 2004 12:11 pm 文章主題:

http://vfp.sunyear.com.tw/search.php
key-->"mydll"

syntech · 發表於: 星期三三月 31, 2004 12:30 pm 文章主題:

修改自msdn . 兩年前的作品

FUNCTION GetVolNO
LPARAMETERS m.rootpath

DECLARE GetVolumeInformation IN win32api STRING, STRING @, ;
INTEGER, INTEGER @, INTEGER @, INTEGER @, STRING @, INTEGER

m.volname = SPACE(255)
m.volnamelen = LEN(m.volname)
m.volumeserialnumber = 0
m.maxfilenamelen = 0
m.filesystemflags = 0
m.filesystemname = SPACE(255)
m.fsnamelen = LEN(m.filesystemname)

=GetVolumeInformation(m.rootpath, @m.volname, m.volnamelen, ;
@m.volumeserialnumber, @m.maxfilenamelen, ;
@m.filesystemflags, @m.filesystemname, m.fsnamelen)

RETURN m.volumeserialnumber