VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何使用 VB 编写自动反安装的程序?
发表评论(0)作者:, 平台:, 阅读:9641, 日期:2000-04-06
主题: 如何使用 VB 编写自动反安装的程序?

来源:Cairns

版本:VB6 / VB5 / VB4-32

资料整理:影子 VB爱好者乐园 yingzi007.126.com





如果您安装了某一个软件之后,想要反安装,您有二个方法:

1、打开【控制面板】中的【添加删除新程序】,选择该软件來反安装。

2、选择【开始】【程序集】中软件所产生的程序組中的反安装。


上面的第一种方法,您不需要作任何处理,一般软件在安装完后,都会在【控制面板】中的【添加删除新程序】多一个该软件的选项。而第二种方法,就必须要我们编写程序來解决了!


假设,今天我们编写了一个程序叫 Test,当您完成 Test.exe 之后,您必须再多编写一个自动反安装的程序,我们將文件名称设为 unTest.exe(先不要管如何编写,后面会說明)。二支程序都完成后,您使用 VB 提供的应用程序安装向导(Application Setup Wizard) 來制作安装程序時,必须额外再加入 unTest.exe!


加入 unTest.exe 之后,使用者安装后,安装程序並不会在【开始】【程序集】中该系統所产生的程序組【Test】中加入这个自动反安装程序 unTest.exe 的捷径,安装程序只会將unTest.exe 连同 Test.exe 一起复制到应用程序的目录中而已!所以如果您想产生unTest.exe 的捷径,您可能需要稍微修改一下 VB 提供的应用程序安装向导程序!


以下我们就实际來看看 unTest.exe 程序如何编写:


在 VB 中建立一个新文档,取名为 unTest.vbp,表单为 unTest.frm,不需要任何控制项,在表单中加入以下程序代码:


Private Declare Function GetWindowsDirectory Lib "kernel32" _

Alias "GetWindowsDirectoryA" _

(ByVal lpBuffer As String, ByVal nSize As Long) As Long


Private Sub Form_Load()

On Error Goto BaddUn

Dim X&

Dim buffer As String * 128

Dim UnStr As String

Dim size As Integer

Dim retval As Integer

buffer = Space$(128)

size = 128

retval = GetWindowsDirectory(ByVal buffer, ByVal size)

Me.Caption = buffer

'以下的程序代码必须编写在同一行中

''''''''''''''''''''''''''''''''''''''''

UnStr = Me.Caption & "\ST5UNST.EXE -n " & Chr(34) & App.Path & "\ST5UNST.LOG" & Chr(34)

''''''''''''''''''''''''''''''''''''''''

'MsgBox UnStr '可显示可不显示, 只是测试用

'X& = Shell("C:\WINDOWS\ST5UNST.EXE -n "

' "C:\Program Files\App Name\ST5UNST.LOG""

' ", vbNormalFocus)

X& = Shell(UnStr, vbNormalFocus)

Unload Me

Exit Sub

BaddUn:

MsgBox "for some reason UnInstall can not run."

Exit Sub

End Sub

由以上的程序代码中,您是否发现, unTest.exe 必须和 St5unst.log 放在同一个目录中,不过这只要和上面的程序一样使用 App.Path 就可以解决了!


注:这个示例是使用 VB5 來做测试的,如果是其他版本的 VB,ST5UNST.LOG 可能必须改变!