lReturn=mciExecute(“open C:\Mydocu~1\Music01.dat alias OpenFile type
MPEGVideo”) (2)
那么,在以后的MCI Command String中lpszDevice参数必须指定为OpenFile。例如,关闭该文件的代码如下:
lReturn=mciExecute(“close OpenFile”) (3)
如果我们没有为打开的文件设定别名,则以后调用的MCI Command String中lpszDevice参数为DOS路径名加文件名。例子如下:
dim lReturn as long (4)
lReturn=mciExecute(“open C:\Mydocu~1\Music01.dat type MPEGVideo”) (5)
lReturn=mciExecute(“close C:\Mydocu~1\Music01.dat type MPEGVideo”) (6)
从这里可以看出,设定别名的好处是减少了代码的输入。