7,789
社区成员
发帖
与我相关
我的任务
分享有请然也，有请然也，有请然也，有请然也，有请然也
这是陈年问题了，抓紧机会一问你啊
1。我想在程序启动时注册所有需要的DLL，OCX，退出时注消所有，来实现不用安装也能运行，请问怎么写好呢？
2。能否推荐一个简单一点的安装程序制作工具，我用WISE INSTALLATION，结果老出错，看不懂的错，不会用
谢谢！！！
1。我想在程序启动时注册所有需要的DLL，OCX，退出时注消所有，来实现不用安装也能运行，请问怎么写好呢？
2。能否推荐一个简单一点的安装程序制作工具，我用WISE INSTALLATION，结果老出错，看不懂的错，不会用
谢谢！！！
...全文
请发表友善的回复…
发表回复
chanet 2003-02-21
- 打赏
- 举报
自带的不可以吗?
还想懒够 2003-02-21
- 打赏
- 举报
用createinstall，这是一个小而巧的工具
smartluwei 2003-02-21
- 打赏
- 举报
installshield
chenyu5188 2003-02-20
- 打赏
- 举报
用setupfactory来打包
jerry_huang 2003-02-20
- 打赏
- 举报
可是VB自带的在2000下老是说“文件太旧，需要重启更新”，重启一百次也是报这句话，装不下去：（
Sean918 2003-02-19
- 打赏
- 举报
1.不推荐这样的做法，实在要这样的话，看下面吧，刚写的
Private Sub Form_Load()
Shell "regsvr32 c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32 c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32 c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
End Sub
Public Sub Delay(mSec As Long)
On Error GoTo ShowErr
Dim TStart As Single
TStart = Timer
While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend
Exit Sub
ShowErr:
MsgBox Err.Source & "------" & Err.Description
Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell "regsvr32/u c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32/u c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32/u c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
End Sub
2.要简单的话，vb 自带的就行阿
Private Sub Form_Load()
Shell "regsvr32 c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32 c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32 c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
End Sub
Public Sub Delay(mSec As Long)
On Error GoTo ShowErr
Dim TStart As Single
TStart = Timer
While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend
Exit Sub
ShowErr:
MsgBox Err.Source & "------" & Err.Description
Exit Sub
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell "regsvr32/u c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32/u c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
Shell "regsvr32/u c:\ocx.ocx"
SendKeys "{ENTER}"
Delay 1000
End Sub
2.要简单的话，vb 自带的就行阿
