Download the CryptoAPI class from the files section for
encryption, and here is the code to get the drive serial #

DECLARE INTEGER GetVolumeInformation IN WIN32API AS GetVolInfo STRING@, STRING@, INTEGER, INTEGER@, INTEGER@, INTEGER@, STRING@, INTEGER

lpRoot = SYS(5) + '\'
lpVolumeBuffer = SPACE(256)
nVolumeNameSize = 256
lpSerialNumber = 0
lMaxLength = 256
lpSystemFlag = 0
lpSystemBuffer = SPACE(256)
nSystemNameSize = 256

nSuccess = GetVolInfo(@lpRoot, @lpVolumeBuffer, nVolumeNameSize, @lpSerialNumber, @lMaxLength, @lpSystemFlag, @lpSystemBuffer, nSystemNameSize)

cVolumeName = LEFT(ALLTRIM(lpVolumeBuffer),LEN(ALLTRIM(lpVolumeBuffer))-1)
cSerialNumber = ALLTRIM(STR(lpSerialNumber))


>Hello all,
>
>Do you no program, command or function to get serial number of the HardDrive?
>
>Also... a good Encryption function.
>
>Any suggest, comment, URL are welcome....
>
>Tkx.