'function GSGW32_Mount(idx:Integer; Drive:Char; a3:Int64; const
'ImgFile:PChar):Cardinal;stdcall; external 'RNDINTER.dll';
'
'function GSGW32_Umount(Drive:Char):Cardinal;stdcall; external 'RNDINTER1.dll';
'
'function GSGW32_GetStatus(Driver:Char; idx:Integer; a3:Integer;
'ImgFile:PChar):Cardinal;stdcall; external 'RNDINTER.dll';
'
'function GSGW32_LoadDriver:Integer;stdcall; external 'RNDINTER.dll';
'
'function GSGW32_UnloadDriver:Integer;stdcall; external 'RNDINTER.dll';
'
'function GSGW32_GetAllNetDiskDrive(
'lpOutBuffer:PChar):Cardinal;stdcall;external 'RNDINTER.dll';

解决方案 »

  1.   

    这么久没人来回答呀,献丑一下:Option Explicit'function GSGW32_Mount(idx:Integer; Drive:Char; a3:Int64; const
    'ImgFile:PChar):Cardinal;stdcall; external 'RNDINTER.dll';
    Private Type Int64
        LOW_DWORD As Long
        HIG_DWORD As Long
    End Type
    Private Declare Sub GSGW32_Mount Lib "RNDINTER.dll" (idx As Long, Drive As Byte, a3 As Int64, ImgFile As String)
    '
    'function GSGW32_Umount(Drive:Char):Cardinal;stdcall; external 'RNDINTER1.dll';
    Private Declare Sub GSGW32_Umount Lib "RNDINTER1.dll" (Drive As Byte)
    '
    'function GSGW32_GetStatus(Driver:Char; idx:Integer; a3:Integer;    '这里的 a3 怎么不是 Int64 了?
    'ImgFile:PChar):Cardinal;stdcall; external 'RNDINTER.dll';
    Private Declare Sub GSGW32_GetStatus Lib "RNDINTER.dll" (Driver As Byte, idx As Integer, a3 As Integer, ImgFile As String)
    '
    'function GSGW32_LoadDriver:Integer;stdcall; external 'RNDINTER.dll';
    Private Declare Function GSGW32_LoadDriver Lib "RNDINTER.dll" () As Long
    '
    'function GSGW32_UnloadDriver:Integer;stdcall; external 'RNDINTER.dll';
    Private Declare Function GSGW32_UnloadDriver Lib "RNDINTER.dll" () As Long
    '
    'function GSGW32_GetAllNetDiskDrive(lpOutBuffer:PChar):Cardinal;stdcall;external 'RNDINTER.dll';
    Private Declare Sub GSGW32_GetAllNetDiskDrive Lib "RNDINTER.dll" (lpOutBuffer As String)
      

  2.   

    这里的 Integer 都换成 Long.