rm解码器问题(只要解决就立刻给分)

Question

1 我有一个Realone解码器的安装文件,但是我想在我安装我软件同时也静安装这个解码器(安装的时候看不见)
2 怎样才能使一个程序一开机就运行呢?好象天网那样.
3  如何只显示mediaplayer的进度条,因为我是播放MP3,所以也想把播放\暂停\停止也去掉,只留下进度条

Answer 1

我有一个Realone解码器的安装文件,但是我想在我安装我软件同时也静安装这个解码器(安装的时候看不见)
//一般情况下是一定要求对方先安装，就象sqlserver这是必须的。
2 怎样才能使一个程序一开机就运行呢?好象天网那样.
//自启动，2种办法
  a,把你的程序exe路径放进启动这个文件夹中。
  b，写注册表，写在HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run)下
Option Explicit
'---------------处理注册表的函数-----------------------
Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As LongConst HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1'HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
Private Sub Command1_Click()
    '声明变量
    Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String
    Dim Ret As Integer, lphKey As Long    sKeyName = "Software\Microsoft\Windows\CurrentVersion\Run"
    sKeyValue = App.Path & IIf(Len(App.Path) > 3, "\" & "form1.exe", "form1.exe")
    Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey)
    Ret = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)End Sub
3  如何只显示mediaplayer的进度条,因为我是播放MP3,所以也想把播放\暂停\停止也去掉,只留下进度条
//这个明天试，太饿了，先回家:)

Answer 2

我有一个Realone解码器的安装文件,但是我想在我安装我软件同时也静安装这个解码器(安装的时候看不见)
//有个笨办法，可以试验观测解码器在安装时都装了哪些文件，以及修改了注册表哪些地方，然后你把它解压后的文件打进安装包，以及注册相应的文件即可。
2 怎样才能使一个程序一开机就运行呢?好象天网那样.
//建议采用　 daisy8675(莫依) 　提供的解决方案。
3 如何只显示mediaplayer的进度条,因为我是播放MP3,所以也想把播放\暂停\停止也去掉,只留下进度条
//干脆把mediaplayer彻底隐藏，然后自己做进度条以及相应的控制按钮算了。呵呵。