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
Private Sub Form_Load()
Dim Serial As Long, VName As String, FSName As String
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
MsgBox "The Volume name of C:\ is '" + VName + "', the File system name of C:\ is '" + FSName + "' and the serial number of C:\ is '" + Trim(Str$(Serial)) + "'", vbInformation + vbOKOnly, App.Title
End Sub
Bolje ti je da se u tom smislu vezujes za serijski broj samog diska posto se serijski broj particije koji se generise pri svakom formatiranju lako moze promeniti rucno :eyebrows:bancho je napisao(la):Da, bas taj broj sa nalepnice. Evo o cemu se radi, ortak je mislio da preko tog serijskog broja onemoguci da se neki programcic koji radi u firmi instalira na drugi komp. E sad da li je to dobra ideja i da li je moguce je pitanje, ako postoji neki bolji nacin vi kazite.
Mozda za to moze i da posluzi i ovo sto je napisao BeastMaster jer se i ti brojevi valjda razlikuju u dovoljnoj meri od harda do harda
hvala svima, videcu sa njim pa vas mozda budem jos malo gnjavio![]()
Follow along with the video below to see how to install our site as a web app on your home screen.
Napomena: this_feature_currently_requires_accessing_site_using_safari