| Вопрос: Серийный номер. | Добавлено: 29.05.03 12:54 |
Автор вопроса:  SDL | Web-сайт: StarTeleport.Narod.Ru | ICQ: 272678283 |
| Подскажите, как определить серийный номер диска? Windows Control его определяет, но я не хочу тащить за собой лишние файлы. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Emigrant Вопросов: 7 Ответов: 22 |
Профиль | | #1 | Добавлено: 29.05.03 18:26 |
|
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 Private Function VolumeSerialNumber(ByVal RootPath As String) 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 ret = GetVolumeSerialNumber(RootPath, VolLabel, VolSize, _ Serial, MaxLen, Flags, Name, NameSize) If ret Then 'Create an 8 character string s = Format(Hex(Serial), "00000000") 'Adds the '-' between the first 4 characters and the last 4 characters VolumeSerialNumber = Left(s, 4) + "-" + Right(s, 4) Else 'If the call to API function fails the function returns a zero serial number VolumeSerialNumber = "0000-0000" End If End Function Private Sub Command1_Click() MsgBox VolumeSerialNumber("C:\") 'Shows the serial number of your Hard Disk End Sub Дерзай!!! |
||
Страница: 1 |