“运行时错误'49',DLL调用约定错误。”,怎么解决?
Private Declare Function GetIdeSerialNumber Lib "D:\Project\GetHdSn\LGETHDSN.DLL" (ByVal driveno As Integer, ByRef SerialNo As String) As Long
Private Sub Command1_Click()
Dim dn As Integer
dn = 0
Dim sn As String
sn = String$(100, " ")
Call GetIdeSerialNumber(0, sn)
End Sub