biosid.bas

Delphi里 用于读取计算机的BIOS信息

Attribute VB_Name = "BiosId"
Option Explicit

Private Declare Function GetBiosIdA Lib "BiosId.Dll" Alias "GetBiosId" (ByVal S As String) As Long
Private Declare Function GetBiosTypeA Lib "BiosId.Dll" Alias "GetBiosType" (ByVal S As String) As Long
Private Declare Function GetBiosDateA Lib "BiosId.Dll" Alias "GetBiosDate" (ByVal S As String) As Long

Public Function GetBiosId() As String
    Dim C256 As String * 256
    Dim S As String
    GetBiosIdA C256
    S = Left(C256, InStr(C256, Chr(0)) - 1)
    GetBiosId = S
End Function

Public Function GetBiosType() As String
    Dim C256 As String * 256
    Dim S As String
    GetBiosTypeA C256
    S = Left(C256, InStr(C256, Chr(0)) - 1)
    GetBiosType = S
End Function

Public Function GetBiosDate() As String
    Dim C256 As String * 256
    Dim S As String
    GetBiosDateA C256
    S = Left(C256, InStr(C256, Chr(0)) - 1)
    GetBiosDate = S
End Function