FUNCTION CDSerialNumber() AS STRING

               //Permite obtener el Nº de serie del HD.

    LOCAL cNumber AS STRING

    LOCAL pszVolumeNameBuffer AS PSZ

    LOCAL dwVolumeSerialNumber AS DWORD

    pszVolumeNameBuffer:= String2Psz(Space(50))

    IF GetVolumeInformation(String2Psz("F:\"), pszVolumeNameBuffer,;

                            50,@dwVolumeSerialNumber, 0, 0, NULL_PSZ, 0)

        cNumber := NTrim(dwVolumeSerialNumber)

    ELSE

        cNumber := NULL_STRING

    ENDIF

RETURN cNumber