MCI指令应用实用例程

系统结构:取文件信息,取TAG信息,发送指令,出错信息,取短文件名,

======窗口程序集1
           |  |
           |  |------ _浏览按钮_被单击
           |  |
           |  |------ 取文件信息
           |  |
           |  |------ 取TAG信息
           |  |
           |  |------ _播放按钮_被单击
           |  |
           |  |------ _停止按钮_被单击
           |  |
           |  |------ _时钟_周期事件
           |  |
           |  |------ _进度滑块条_位置被改变
           |  |
           |  |
======子程序集
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   发送指令
           |  |
           |  |---[dll]------   出错信息
           |  |
           |  |---[dll]------   取短文件名

调用的DLL命令:

.DLL命令 发送指令, 整数型, "winmm.dll", "mciSendStringA"
    .参数 参数1, 文本型
    .参数 参数2, 文本型
    .参数 参数3, 整数型
    .参数 参数4, 整数型

.DLL命令 出错信息, , "winmm.dll", "mciGetErrorStringA"
    .参数 错误代码, 整数型
    .参数 出错信息, 文本型
    .参数 信息长度, 整数型

.DLL命令 取短文件名, 整数型, "kernel32.dll", "GetShortPathNameA"
    .参数 长文件名, 文本型
    .参数 短文件名, 文本型
    .参数 缓冲区长度, 整数型