我就定义了一个API,然后再调用,就这几句，但是不知道哪里有问题了

Question

Declare Function OpenDriver Lib "winmm.dll" (ByVal szDriverName As String, ByVal szSectionName As String, ByVal lParam2 As Long) As Long  OpenDriver(strconv("reeldrv",vbunicode),strconv("driver32",vbunicode),0)却打不开设备，cb调用OpenDriver(L"reeldrv",L"driver32",0L)能正常打开设备love_u365s ,谢谢,你的这种方法我敢用过了,就是返回0,我在网上也找了很多,但是有些说这样就成功了,但是我就是不行,解压卡的驱动这些肯定装好了,CB的程序在机子上运行都好的,就是VB调用就是不行,里面的参数大小写我也试过的,不知道是哪出问题了

Answer 1

那真的是没有办法了,这个方法我试过了,在我机器上是好用的

dim wszdrivername() as byte  
dim wszsectionname() as byte  

wszdrivername = strconv("reeldrv", vbunicode)  
wszsectionname = strconv("drivers32", vbunicode)  

opendriver(wszdrivername(0), wszsectionname(0), 0)