• Home
 · 
• Miscellaneous
 · 
• Getting the Serial Number of a Harddisk using API call.

Getting the Serial Number of a Harddisk using API call.

Getting the Serial Number of a Harddisk using API call.

API Declarations


Public Function GetSerial(str As String) As Long
Dim Buf$, Name$, Flags&, Length&
Dim Serial As Long
GetVolumeInformation str, Buf$, 255, Serial, Length, Flags, Name$, 255
GetSerial = Serial
End Function




Rate Getting the Serial Number of a Harddisk using API call.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

label1.caption = GetSerial("C:\")