VB¶ÁÈ¡Ó²ÅÌϵÁкÅÎÊÌâ - VB / »ù´¡Àà

ÐèҪŪ¸ö¶ÁÈ¡Ó²ÅÌϵÁкŵijÌÐò£¨»úÆ÷ÖпÉÄÜ»áÓг¬¹ý4¿éÓ²ÅÌ£©£¬Äܲ»ÄÜͨ¹ýÅÌ·û»ñÈ¡¸Ã´ÅÅÌËùÔÚÎïÀíÓ²Å̵ÄϵÁкÅ
Çë°ïæŪ¸ö´úÂëѧϰÏ£¬Ð»Ð»£¿

---

ËÑÒ»ÏÂÓкܶà,¸øÒ»¶Î´úÂë²Î¿¼

Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long  
   
  Public Type SerHdInfo  
  strLabel As String  
  strType As String  
  serNum As String  
  End Type  
   
  Public Function GetSerialNumber(sRoot As String) As SerHdInfo  
  Dim lSerialNum As Long  
  Dim R As Long  
  Dim RevVal As SerHdInfo  
   
   
  RevVal.strLabel = String$(255, Chr$(0))  
  ' ´ÅÅ̾í±ê  
  RevVal.strType = String$(255, Chr$(0))  
  ' ÎÄ