VB资源编辑器打包视频及调用问题----在线等

Question

昨天请教了一个视频文件打包的问题，有人告诉我使用资源编辑器将视频文件打包到里边，然后调用，用户就看不到源文件了。现在有以下几个问题：
1、尺寸在4、5M的音乐可以放入资源编辑器，变成RES，但是我的视频时330M，mpg格式的放不进去。
2、使用Media Player控件播放，不知道怎么调用。使用WindowsMediaPlayer.URL = LoadResData(101, "MUC")无法播放。
请高手指教。

Answer 1

(1)资源文件特大的东东.
(2)音频、视频文件大多不能直接播放，需先释放再播放；下面是一个示例：
Private Sub Form_Load()'资源文件是个mp3
Dim bArr() As Byte ' 定义一个空的Byte数组
bArr = LoadResData(101, "CUSTOM")'将资源文件放入Byte数组
Open App.Path & "\101.mp3" For Binary Access Write As #1
Put #1, , bArr'释放资源文件
Close #1
WindowsMediaPlayer1.URL = App.Path & "\101.mp3"'播放
End Sub

Answer 2

再说,哪有写个程序,带330M视频文件的?这样的一个小EXE就几百兆.不可思议.