Функциия, определяющая серийный номер диска...
Option Compare Database Option Explicit Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" _ (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _ lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _ ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long Const MAX_FILENAME_LEN = 256 Function DriveSerial(ByVal sDrv As String) As Long Dim RetVal As Long Dim str As String * MAX_FILENAME_LEN Dim str2 As String * MAX_FILENAME_LEN Dim a As Long Dim b As Long Call GetVolumeInformation(sDrv & ":", str, MAX_FILENAME_LEN, _ RetVal, a, b, str2, MAX_FILENAME_LEN) DriveSerial = RetVal End Function Просмотров: 6040
Ваш коментарий будет первым | | |