HDD Seri Numarası

Yazar jawscod2

Option Explicit
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

Function SeriNoAl(strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInformation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
SeriNoAl = SerialNum
End Function

Private Sub Drive1_Change()
Label1.Caption = Trim(Str(Abs(SeriNoAl(Left(Drive1.Drive, 2) & “\”))))
End Sub

Private Sub Form_Load()
Label1.Caption = Trim(Str(Abs(SeriNoAl(Left(Drive1.Drive, 2) & “\”))))
End Sub

Bu yazı toplamda 33, bugün ise 0 kez görüntülenmiş