delphi中的这个调用在vb中该怎么写呢?

MOODSKY2002 2009-05-13 12:28:30

'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';

...全文

161 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

MOODSKY2002 2009-05-31

打赏
举报

试了一下没成功....真奇怪了

贝隆 2009-05-30

打赏
举报

[Quote=引用 1 楼 Chen8013 的回复:]
这么久没人来回答呀，献丑一下：

VB codeOption 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_…
[/Quote]

牛人！定一个

MOODSKY2002 2009-05-23

打赏
举报

谢谢朋友哟,马上就去试试

舉杯邀明月 2009-05-16

打赏
举报

[Quote=引用 1 楼 Chen8013 的回复:]
Private Declare Sub GSGW32_GetStatus Lib "RNDINTER.dll" (Driver As Byte, idx As Integer, a3 As Integer, ImgFile As String)
[/Quote]
这里的 Integer 都换成 Long.

舉杯邀明月 2009-05-16

打赏
举报

这么久没人来回答呀，献丑一下：

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)