获得硬盘序列号

来源：百度文库编辑：神马文学网时间：2024/04/28 04:28:00

Private Declare Function 获得硬盘序列号 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()
On Error GoTo Err_Form_Load
Dim AA, 硬盘序列号, Maxlen, Sysflag As Long: Dim VolName, FsysName As String
AA = 获得硬盘序列号("c:\", VolName, 256, 硬盘序列号, Maxlen, Sysflag, FsysName, 256)
Form1.Caption = "C硬盘序列号(16制): " & Hex(硬盘序列号)
Exit Sub
Err_Form_Load:
End Sub

获得硬盘序列号 delphi 获取硬盘序列号、cpu号、bios号、网卡号巧夺光盘序列号游戏序列号大全巧取光盘序列号取得CPU序列号巧取光盘序列号播放器序列号 Microsoft 产品序列号巧取光盘序列号巧取光盘序列号的方法巧取光盘序列号的方法巧取光盘序列号的方法 ERP实务：序列号管理模型 ERP条码序列号管理应用专题 ERP条码序列号管理应用专题制作个性的播放器（序列号） Handspring 序列号 - TREO600 - TREOCN 的个人空间 Delphi中获取CPU序列号信息利用磁盘的序列号进行软件加密请问买的新手机怎么查序列号？诺基亚的 VB6的安装序列号算法太幼稚了序列号管理在电子制造企业中的应用网络硬盘