做個mp3播放器，用realplay和WMP做出來的程序內存佔用太大。
如果你僅僅是播放MP3，建議使用API函數mciSendString，我把該函數的詳細資料羅列如下供你參考。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
mciSendString是用來播放多媒體文件的API指令，可以播放MPEG,AVI,WAV,MP3,等等，下面介紹
它的使用方法：
該函數有四個參數：
第一個參數：要發送的命令字符串。字符串結構是:[命令][設備別名][命令參數].
第二個參數：返回信息的緩衝區,爲一指定了大小的字符串變量.
第三個參數：緩衝區的大小,就是字符變量的長度.
第四個參數：回調方式，一般設爲零
返回值：函數執行成功返回零，否則返回錯誤代碼
一、常用命令
1.打開（Open），格式：Open 設備名 [type 設備型式][alias 別名]
Dim mName as string
mName = "f://mpeg//mpeg1.avi"
mciSendString "open mName type MPEGVideo Alias movie parent %u Style %u notify",0&, 0, 0
其中：
open 操作命令
mName 全路徑文件名
type MPEGVideo 是指打開MPEG,AVI等類型，如果不加這一句，就是打開WAV,MP3等
Alias movie 定義了該操作的別名爲movie，後續操作只要指明別名即可
parent %u 源
Style %u 樣式
notify 通知
2.播放（Play），格式：Play 設備名 [from 起點][to 終點]
mciSendString "play movie", 0&, 0, 0
mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
3.暫停（Pause）：
mciSendString "pause movie", 0&, 0, 0
4.繼續（Resume）：
mciSendString "resume movie", 0&, 0, 0
5.停止（Stop）：
mciSendString "stop movie", 0&, 0, 0
6.關閉（Colse）：
mciSendString "close movie", 0&, 0, 0
7.前進到下一個位置：
mciSendString "step movie", 0&, 0, 0
8.後退到上一個位置：
mciSendString "step movie reverse", 0&, 0, 0
9.前進或後退 N 個位置(其中 N<0 即表示後退)
mciSendString "step movie by " & str(N), 0&, 0, 0
10.獲取當前播放位置：
Dim ST As String*64
mciSendString "status movie position", st, len(st), 0
11. 獲取媒體的總長度：
mciSendString "status movie length", st, len(st), 0
l=val(st) 'l就是所播放文件的長度
12.獲取播放當前狀態：
Dim ST As String*64
mciSendString "status movie mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (處理代碼) '播放完畢
13.循環播放：
mciSendString "play movie repeat", 0&, 0, 0
二、控制聲音大小(1-1000)：
Dim V As Long
mciSendString "status movie volume",&V, len(v), 0 'V是獲取的音量大小值。
V = 50
mciSendString "setaudio movie volume to 數值", 0, 0, 0 'V是設置的音量值
三、設置播放位置.(需事先設定時間格式)，格式：Seek 設備名 [to 位置 | to start | to end]
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek movie to ", P1, 0, 0 'P1是當前起始位置，單位：毫秒
mciSendString "seek movie to start", 0&, 0, 0 '定位到開頭位置
mciSendString "play movie", 0&, 0, 0 '定位後再播放
或者：
mciSendString "play movie FROM P1 to P2",0&, 0, 0 'P1是起始位置，P2是停止位置。單位：毫秒
mciSendString "seek movie to end", 0&, 0, 0 '定位到最後位置
四、在指定控件上播放視頻：
mciSendString "open AVI 文件名 parent hWnd style child", 0&, 0, 0
其中，hWnd 是控件的句柄
執行上述命令之後，影片會被放置在控件的左上角，且影片的大小不受控件大小的影響，如果想要改變
影片播放的位置及大小，可以在執行 play 指令前先執行 put 指令，格式如下：
mcisendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
其中：X、Y爲影片左上角座標，Width、Height爲影片的寬高度
五、如果播放視頻還可控制亮度(1-2000)
Dim B As Long
mciSendString "status movie brightness", B, 0, 0 'B是獲取的亮度值。
B = 50
mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是設置的亮度值
六、錄音設置：
錄音前，用以下語句初始化
1.設爲8位：
mciSendString "set wave bitpersample 8", "", 0, 0
2.設爲11025Hz
mciSendString "set wave samplespersec 11025", "", 0, 0
3.設爲立體聲：
mciSendString "set wave channels 2", "", 0, 0
4.實現PCM格式（不一定正確）：
MCISENDSTRING "set wave format tag pcm","", 0, 0
5.開始錄音：
mciSendString "close movie",0&,0,0
mciSendString "open new type WAVEAudio alias movie",0&,0,0
mciSendString "record movie",0&,0,0
6.保存錄音到c:/123.wav
mciSendString "stop movie",0&,0,0
mciSendString "save movie C://123.wav",0&,0,0
mciSendString "close movie",0&,0,0
七、開關光驅：
mciSendString "set cdaudio door open", "", 0, 0 '打開
mciSendString "set cdaudio door close", "", 0, 0 '關閉
八、其它
1.設置設備的各種狀態（Set）
Set alias_name[audio all off][audio all on][time format ms]:
Set命令用來設置設備的各種狀態.如:靜音,有聲音,時間格式爲毫秒等.
2.取得設備的狀態（Status）
Status alias_name[length][mode][position]:
Status命令用來取得設備的狀態.如:該媒體文件的長度,該媒體文件所處狀態,該媒體文件的當前位置等. 的長度,該媒體文件所處狀態,該
媒體文件的當前位置等.
參考代碼：
TCHAR fileName[]="D://俺的文檔//my music//爺爺泡的茶.mp3";
TCHAR shortName[MAX_PATH];
GetShortPathName(fileName,shortName,sizeof(shortName)/sizeof(TCHAR));
TCHAR cmd[MAX_PATH+10];
wsprintf(cmd,"play %s",shortName);
mciSendString(cmd,"",NULL,NULL);
（調用mciSendString第一個參數傳“play 文件全路徑”就可以，“文件全路徑”最好傳絕對路徑，不建議wanghepeng10那樣值傳遞文件名。
另外如果文件全路徑中含有空格的話要使用GetShortPathName轉換成短路徑。）
如果你僅僅是播放MP3，建議使用API函數mciSendString，我把該函數的詳細資料羅列如下供你參考。
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
mciSendString是用來播放多媒體文件的API指令，可以播放MPEG,AVI,WAV,MP3,等等，下面介紹
它的使用方法：
該函數有四個參數：
第一個參數：要發送的命令字符串。字符串結構是:[命令][設備別名][命令參數].
第二個參數：返回信息的緩衝區,爲一指定了大小的字符串變量.
第三個參數：緩衝區的大小,就是字符變量的長度.
第四個參數：回調方式，一般設爲零
返回值：函數執行成功返回零，否則返回錯誤代碼
一、常用命令
1.打開（Open），格式：Open 設備名 [type 設備型式][alias 別名]
Dim mName as string
mName = "f://mpeg//mpeg1.avi"
mciSendString "open mName type MPEGVideo Alias movie parent %u Style %u notify",0&, 0, 0
其中：
open 操作命令
mName 全路徑文件名
type MPEGVideo 是指打開MPEG,AVI等類型，如果不加這一句，就是打開WAV,MP3等
Alias movie 定義了該操作的別名爲movie，後續操作只要指明別名即可
parent %u 源
Style %u 樣式
notify 通知
2.播放（Play），格式：Play 設備名 [from 起點][to 終點]
mciSendString "play movie", 0&, 0, 0
mciSendString "play movie fullscreen", 0&, 0, 0 '全屏播放
3.暫停（Pause）：
mciSendString "pause movie", 0&, 0, 0
4.繼續（Resume）：
mciSendString "resume movie", 0&, 0, 0
5.停止（Stop）：
mciSendString "stop movie", 0&, 0, 0
6.關閉（Colse）：
mciSendString "close movie", 0&, 0, 0
7.前進到下一個位置：
mciSendString "step movie", 0&, 0, 0
8.後退到上一個位置：
mciSendString "step movie reverse", 0&, 0, 0
9.前進或後退 N 個位置(其中 N<0 即表示後退)
mciSendString "step movie by " & str(N), 0&, 0, 0
10.獲取當前播放位置：
Dim ST As String*64
mciSendString "status movie position", st, len(st), 0
11. 獲取媒體的總長度：
mciSendString "status movie length", st, len(st), 0
l=val(st) 'l就是所播放文件的長度
12.獲取播放當前狀態：
Dim ST As String*64
mciSendString "status movie mode", ST, Len(ST), 0
If Left(ST, 7) = "stopped" Then (處理代碼) '播放完畢
13.循環播放：
mciSendString "play movie repeat", 0&, 0, 0
二、控制聲音大小(1-1000)：
Dim V As Long
mciSendString "status movie volume",&V, len(v), 0 'V是獲取的音量大小值。
V = 50
mciSendString "setaudio movie volume to 數值", 0, 0, 0 'V是設置的音量值
三、設置播放位置.(需事先設定時間格式)，格式：Seek 設備名 [to 位置 | to start | to end]
Dim P1 as Long, P2 as Long
P1 = 100: P2 = 3000
mciSendString "seek movie to ", P1, 0, 0 'P1是當前起始位置，單位：毫秒
mciSendString "seek movie to start", 0&, 0, 0 '定位到開頭位置
mciSendString "play movie", 0&, 0, 0 '定位後再播放
或者：
mciSendString "play movie FROM P1 to P2",0&, 0, 0 'P1是起始位置，P2是停止位置。單位：毫秒
mciSendString "seek movie to end", 0&, 0, 0 '定位到最後位置
四、在指定控件上播放視頻：
mciSendString "open AVI 文件名 parent hWnd style child", 0&, 0, 0
其中，hWnd 是控件的句柄
執行上述命令之後，影片會被放置在控件的左上角，且影片的大小不受控件大小的影響，如果想要改變
影片播放的位置及大小，可以在執行 play 指令前先執行 put 指令，格式如下：
mcisendString "put AVI 文件名 window at X Y [Width Height]", 0&, 0, 0
其中：X、Y爲影片左上角座標，Width、Height爲影片的寬高度
五、如果播放視頻還可控制亮度(1-2000)
Dim B As Long
mciSendString "status movie brightness", B, 0, 0 'B是獲取的亮度值。
B = 50
mciSendString "setvideo movie brightness to " & B, &0, 0, 0 'B是設置的亮度值
六、錄音設置：
錄音前，用以下語句初始化
1.設爲8位：
mciSendString "set wave bitpersample 8", "", 0, 0
2.設爲11025Hz
mciSendString "set wave samplespersec 11025", "", 0, 0
3.設爲立體聲：
mciSendString "set wave channels 2", "", 0, 0
4.實現PCM格式（不一定正確）：
MCISENDSTRING "set wave format tag pcm","", 0, 0
5.開始錄音：
mciSendString "close movie",0&,0,0
mciSendString "open new type WAVEAudio alias movie",0&,0,0
mciSendString "record movie",0&,0,0
6.保存錄音到c:/123.wav
mciSendString "stop movie",0&,0,0
mciSendString "save movie C://123.wav",0&,0,0
mciSendString "close movie",0&,0,0
七、開關光驅：
mciSendString "set cdaudio door open", "", 0, 0 '打開
mciSendString "set cdaudio door close", "", 0, 0 '關閉
八、其它
1.設置設備的各種狀態（Set）
Set alias_name[audio all off][audio all on][time format ms]:
Set命令用來設置設備的各種狀態.如:靜音,有聲音,時間格式爲毫秒等.
2.取得設備的狀態（Status）
Status alias_name[length][mode][position]:
Status命令用來取得設備的狀態.如:該媒體文件的長度,該媒體文件所處狀態,該媒體文件的當前位置等. 的長度,該媒體文件所處狀態,該
媒體文件的當前位置等.
參考代碼：
TCHAR fileName[]="D://俺的文檔//my music//爺爺泡的茶.mp3";
TCHAR shortName[MAX_PATH];
GetShortPathName(fileName,shortName,sizeof(shortName)/sizeof(TCHAR));
TCHAR cmd[MAX_PATH+10];
wsprintf(cmd,"play %s",shortName);
mciSendString(cmd,"",NULL,NULL);
（調用mciSendString第一個參數傳“play 文件全路徑”就可以，“文件全路徑”最好傳絕對路徑，不建議wanghepeng10那樣值傳遞文件名。
另外如果文件全路徑中含有空格的話要使用GetShortPathName轉換成短路徑。）
