怎么别人的EXE在哪个文件夹都可以运行,包括音乐

来源：百度知道 编辑：UC知道 时间：2024/06/30 21:43:36
我想用VB做的EXE在哪个文件夹.或是任何一个磁盘都可以运行,包括音乐.就象正版软光盘一样。
有些麻烦.弄不到.下面两位都不怎么样.我的意思是要把
自已的软件象绿色那样,很多游戏都是这样的,无论放到
任何一个磁盘.或移动.都可以在运行,包括在软件里添加的
音乐也可播放.现在移动了就没声音了.有没好一些的软件可以实现啊
liaoaimin520 这位楼主说对了一半.差不多了.不过我要代码.如下列代码如何更改

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

Private Sub Form_Load()
mciSendString "open c:\万水千山总是情.mp3 alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub
如果生成的EXE如何打开同一文件夹内的MP3

你在编写程序时要注意像图片，flash，或是音乐文件的路径要写相对路径，不要写绝对路径。最好是像app.path+"/yinyue.mp3"的样式，app.path是获取当前路径的意思。比如插入一个flash文件，用ShockwaveFlash1.Movie = App.Path+"\swf\up.swf"这个"up.swf"文件就放在你运行程序的文件夹内的一个叫做swf的文件夹内，再比如插入声音PlaySound app+"sound\123.wav", 3, 1；图片用Image1.Picture = LoadPicture(app+"bg.jpg")，这样处理就可以了。不知是不是你问的意思。

答复第2次
先把你“万水千山总是情.mp3 ”文件放到生成文件夹内。
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

Private Sub Form_Load()
Dim mp3path As String
mp3path = App.Path + "\万水千山总是情.mp3 "
mciSendString "open " & mp3path & " alias mc", 0, 0, 0
mciSendString "play mc", 0, 0, 0
End Sub
测试我的可以。

找个软件也可以
名字忘了

没看明白你的意思?你是说想让vb产