高手请进，帮忙分析代码，高分求救！！！

[evbsky]

以下代码中，能找到资源的句柄，就是不能播放它。头痛！
Dim hRsrc As Long
Dim hGlobal As Long
Dim lpString As String
Dim strCmd As String, strReturnVal As String
Dim nbuf As Long
Dim temp As Long

lpString = "about"

hInst = LoadLibrary(App.Path & "\lang936.dll")
hRsrc = FindResource(hInst, lpString, "wave")
hGlobal = LoadResource(hInst, hRsrc)
lpData = LockResource(hGlobal)
Debug.Print lpData

sndPlaySound lpData, SND_NODEFAULT + SND_SYNC + SND_MEMORY

FreeLibrary hInst

[wumy_ld]

关注！

[evbsky]

hGlobal = LoadResource(hInst, hRsrc)
上面这句就是加载的命令

[evbsky]

高手请进来！！！

[danielinbiti]

SND_MEMORY
你把声音文件加载到内存了吗？只有事先把声音文件加载到了内存才能用这个参数.
比如用资源文件里声音就需用这个参数。

[sxs69]

已经给你发过去了

[evbsky]

哈哈，解决了，谢谢，关键是要修改一下sndPlaySound 的参数(SND_NODEFAULT + SND_SYNC + SND_MEMORY)