试一下
If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If
回复：（b13690976754）[求助]声音可以集在exe里面吗？...
这个控件可以做到么？
2007-04-23 01:20
2007-04-23 01:26
可以使用资源文件，给你写个实例：
1 首先建立一个资源文件，将要播放的音乐放在里面
外接程序－>外接程序管理器->双击"Resource Editor"然后确定
点击工具栏中的"Resource Editor"图标打开"Resource Editor"
添加一个资源（就是你要播放的声音）资源id为101
2 添加一个窗体 一个命令按钮 并添加如下代码
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Sub Command1_Click()
Dim cells() As Byte
cells = LoadResData(101, "wave") '从资源文件中载入需要的数据放在指定的字节数组中
sndPlaySound cells(0), SND_ASYNC Or SND_MEMORY '该函数可要播放内存中的声音
End Sub
2007-04-23 13:44
2007-04-23 14:10
2007-04-23 14:17
2007-04-23 17:50
2007-04-23 18:04
2007-04-23 18:11
2007-04-23 19:54
2007-04-23 21:40
这样也要用到API啊 。。