API-ji
U 6- je ovo radilo. U msdn-u ima price o declare da posle njega treba staviti parametar "auto" ,ne radi ni tako. Kako se sada deklarisu apiji? Evo ovo sam dole probao to je ona fora iz 6-tice da registrujes exe da moze da radi samo na tom hard disku ciji seriski broj ti definises. Znaci funkcija bi trebalo da podesi izmedju ostalog i promenljivu drvserialno medjutim u .NET-u mi on uvek podesava na nulu umesto serial od hadra.
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 drvserialno As Long
Dim mydrvlabel As String
Dim myfilesys As String
Dim i As Long
Dim j As Long
Dim x As Long
Dim number as Long
x = GetVolumeInformation("C:\", mydrvlabel, 256, drvserialno, i, j, myfilesys, 256)
If drvserialno <> number Then
End
End If
End Sub
 |  |
 |
