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.
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only