FoxPro/Visual FoxPro - Obtener Serie del Disco duro

*------------------------------------------

*****************************

FUNCTION seriedisco()   &&&& RETORNA EL NUMERO DE SERIE DEL DISCO POR DEFAULT

!* Retorna numero de serie del disco, para controlar licencias de uso del sistema

*****************************

#DEFINE MAX_FILENAME_LEN 256

LOCAL ser,i,j,s,s2

DECLARE integer GetVolumeInformation in Win32API;

	string lpRootPathName,;

	string lpVolumeNameBuffer,;

	integer nVolumeNameSize,;

	integer @lpVolumeSerialNumber,;

	integer @lpMaximumComponentLength,;

	integer @lpFileSystemFlags,;

	string lpFileSystemNameBuffer ,;

	integer nFileSystemNameSize

STORE 0 to ser,i,j

STORE space(128) to s,s2

*DRIVE='C:\'

DRIVE = _dunidad+":\"

x=GetVolumeInformation(drive,s,MAX_FILENAME_LEN,@ser,@i,@j,s2,MAX_FILENAME_LEN)

ser=alltrim(str(ser))

RETURN ser

ENDFUNC