Сайт Алексея Муртазина (Star Cat) E-mail: starcat-rus@yandex.ru
Мои программы Новости сайта Мои идеи Мои стихи Форум Об авторе Мой ЖЖ
VB коды Статьи о VB6 API функции Самоучитель по VB.NET
Собрания сочинений Обмен ссылками Все работы с фото и видео
О моём деде Муртазине ГР Картинная галерея «Дыхание души»
Звёздный Кот

45 Определение серийного номера диска
Private Declare Function GetVolumeSerialNumber 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

Public Function NomerDiska() As String
Dim RootPath As String
Dim VolLabel As String
Dim VolSize As Long
Dim Serial As Long
Dim MaxLen As Long
Dim Flags As Long
Dim Name As String
Dim NameSize As Long
Dim S As String
Dim ret As Boolean
RootPath = Left$(AppPath, 3)
ret = GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize)
If ret Then
S = Format(Hex(Serial), "00000000")
NomerDiska = Left(S, 4) & "-" & Right(S, 4)
Else
S = "Файл ""kernel32.dll"" не найден." & vbCrLf
S = S & "Если же не работавт API функция," & vbCrLf
S = S & "тогда зарегистрировать программу нельзя."
MsgBox S, vbCritical, "Error"
End
End If
End Function

Private Sub Form_Load()
Caption = NomerDiska
End Sub

Инфо
Сайт создан: 20 июня 2015 г.
Рейтинг@Mail.ru
Главная страница