QAD GUI 界面通过Progress语法实现DLL调用发声音

adminelvis · 发表于 2014-12-3 16:26:48

&GLOB SND_ASYNC 1
&GLOB SND_NODEFAULT 2
&GLOB SND_LOOP 8
&GLOB SND_PURGE 64
&GLOB SND_APPLICATION 128
&GLOB SND_ALIAS 65536
&GLOB SND_FILENAME 131072
&GLOB SND_RESOURCE 262148

PROCEDURE PlaySoundA EXTERNAL "winmm.dll" PERSISTENT :
  DEFINE INPUT PARAMETER  pszSound AS LONG.
  DEFINE INPUT PARAMETER  hmod       AS LONG.
  DEFINE INPUT PARAMETER  fdwSound AS LONG.
  DEFINE RETURN PARAMETER ReturnValue AS LONG.
END PROCEDURE.

DEFINE VARIABLE ReturnValue AS INTEGER NO-UNDO.
DEFINE VARIABLE szSound    AS MEMPTR  NO-UNDO.
DEFINE VARIABLE wavfile    AS CHARACTER NO-UNDO.

游客，如果您要查看本帖隐藏内容请回复

zwl_qq · 发表于 2014-12-3 20:28:04

楼主帮我们大忙了。谢谢！

老海窟天 · 发表于 2014-12-4 09:16:58

好东西!学习

老海窟天 · 发表于 2014-12-4 09:17:13

好东西!学习了!谢谢搂住!!

zhangcool888 · 发表于 2014-12-4 09:22:23

学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习

ALEX_G · 发表于 2014-12-4 16:21:09

可以测试一下。

ALEX_G · 发表于 2014-12-4 16:32:38

&GLOB 那段的作用是什么？

东南风 · 发表于 2014-12-15 20:35:23

谢谢坛主慷慨无私.

zhrwanderhao001 · 发表于 2015-1-9 16:13:35

学习了。学习了。学习了。学习了。学习了。

chinapenguin · 发表于 2015-10-24 09:20:36

终于能看贴发言了。完美

		自动登录	找回密码
密码			立即注册