九色鹿年会抽奖系统易语言源码

系统结构:放烟花,放恭喜,显示奖品,播放背景,读配置,调整位置,写出中奖值,中奖程序,打开媒体,播放媒体,暂停播放,继续播放,停止播放,关闭媒体,当前播放位置,取媒体长度,循环播放,播放进度,获取音量,设置音量,指定播放位置,GetShortPathName,MciSendString,

======窗口程序集1
           |  |
           |  |------ 放烟花
           |  |
           |  |------ 放恭喜
           |  |
           |  |------ 显示奖品
           |  |
           |  |------ 播放背景
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 读配置
           |  |
           |  |------ 调整位置
           |  |
           |  |------ _最前显示_被单击
           |  |
           |  |------ _超级按钮6_被单击
           |  |
           |  |------ _超级按钮7_被单击
           |  |
           |  |------ _超级按钮2_被单击
           |  |
           |  |------ _超级按钮1_被单击
           |  |
           |  |------ _超级按钮3_被单击
           |  |
           |  |------ _选号标签_鼠标左键被按下
           |  |
           |  |------ _动画框1_按下某键
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 写出中奖值
           |  |
           |  |------ 中奖程序
           |  |
           |  |------ _超级按钮4_被单击
           |  |
           |  |------ _超级按钮8_被单击
           |  |
           |  |------ _选择夹1_子夹被改变
           |  |
           |  |
======MP3类
           |  |
           |  |------ 打开媒体
           |  |
           |  |------ 播放媒体
           |  |
           |  |------ 暂停播放
           |  |
           |  |------ 继续播放
           |  |
           |  |------ 停止播放
           |  |
           |  |------ 关闭媒体
           |  |
           |  |------ 当前播放位置
           |  |
           |  |------ 取媒体长度
           |  |
           |  |------ 循环播放
           |  |
           |  |------ 播放进度
           |  |
           |  |------ 获取音量
           |  |
           |  |------ 设置音量
           |  |
           |  |------ 指定播放位置
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetShortPathName
           |  |
           |  |---[dll]------   MciSendString

调用的DLL命令:

.DLL命令 GetShortPathName, 整数型, "kernel32.dll", "GetShortPathNameA"
    .参数 lpszLongPath, 文本型
    .参数 lpszShortPath, 文本型
    .参数 cchBuffer, 整数型

.DLL命令 MciSendString, 整数型, "winmm.dll", "mciSendStringA"
    .参数 lpstrCommand, 文本型
    .参数 lpstrRetumString, 文本型
    .参数 uReturnLength, 整数型
    .参数 hwndCallback, 整数型