调用API的问题!

wumylove1234 wumylove1234 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
'''''''''''''''''''''调用部分''''''''''''''''''''''''''''''''''''''''
Dim stru As mdlGlobal.SHELLEXECUTEINFO


stru.cbSize = Len(stru)
stru.fMask = 0
stru.hwnd = Me.hwnd
stru.lpVerb = vbNullString

stru.lpFile = strAppMgr
stru.lpDirectory = vbNullString
stru.nShow = SW_SHOWDEFAULT
stru.hInstApp = App.hInstance

stru.lpParameters = App.Path & "\" & files
If ShellExecuteEx(stru) = ERROR_SUCCESS Then

'''''''''''''''''''''声明''''''''''''''''''''''''''''''''''''''''''
Public Type SHELLEXECUTEINFO
cbSize As Long
' fields
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
lpVerb As String
lpFile As String
hwnd As Long
fMask As Long

End Type

Public Const SW_SHOWDEFAULT = 10
Public Declare Function ShellExecuteEx Lib "shell32.dll" (lpExecInfo As SHELLEXECUTEINFO) As Long

调用外部程序的API,报内存冲突,我查了半天也查不到原因.哪位帮忙看看,万谢.
其中:
strAppMgr=C:\Program Files\Microsoft ActiveSync\CEAPPMGR.EXE
stru.lpParameters=E:\SetupCAB\Setup-0.ini
...全文
评论 3
收藏 已收藏
分享
返回顶部
wumylove1234
VB基础类 7,788 成员 197,583 内容