Menampilkan Serial Hardisk

*!* FUNCTION DiskSerial
LPARAMETER cDisk
DECLARE SHORT GetVolumeInformation IN Win32API ;
STRING wroot, ;
STRING wnombuf, ;
LONG wnomsize, ;
STRING wnumero, ;
STRING wmx, ;
STRING wflag, ;
STRING wsysbuf, ;
INTEGER wsyssize
LOCAL wroot, wnombuf, wnumero, wmx
LOCAL wflag, wsysbuf, wnomsize, wsyssize
LOCAL n1,n2,n3,n4, w1,w2,w3,w4
wroot = IIF(EMPTY(cDisk), SYS(5), cDisk + ':') + "\"
wnombuf = SPACE(255)
wnumero = SPACE(10)
wmx = SPACE(255)
wflag = SPACE(255)
wsysbuf = SPACE(255)
wnomsize = 255
wsyssize = 255
GetVolumeInformation (wroot, @wnombuf, @wnomsize, @wnumero, ;
@wmx, @wflag, @wsysbuf, @wsyssize)
n4 = ASC(SUBSTR(wnumero,1,1))
n3 = ASC(SUBSTR(wnumero,2,1))
n2 = ASC(SUBSTR(wnumero,3,1))
n1 = ASC(SUBSTR(wnumero,4,1))
w1 = TRANSFORM(n1,'@0')
w2 = TRANSFORM(n2,'@0')
w3 = TRANSFORM(n3,'@0')
w4 = TRANSFORM(n4,'@0')
thisform.text7.value=RIGHT(w1,2)+"-" + RIGHT(w2,2) + "-" + RIGHT(w3,2) + RIGHT(w4,2)
*!* +DTOC(DATE())+TIME()