|
|
| 如何使用 VB 编写自动反安装的程序？ |
| 作者：佚名 来源：vscodes.com整理 发布时间：2005-12-16 13:42:52 发布人：Polaris |
 减小字体
 增大字体
| <--mstheme-->如何使用 VB 编写自动反安装的程序？<--mstheme--> | <--mstheme-->如果您安装了某一个软件之后，想要反安装，您有二个方法：
1、打开【控制面板】中的【添加删除新程序】，选择该软件?矸窗沧啊?
2、选择【开始】【程序集】中软件所产生的程序?M中的反安装。
上面的第一种方法，您不需要作任何处理，一般软件在安装完后，都会在【控制面板】中的【添加删除新程序】多一个该软件的选项。而第二种方法，就必须要我们编写程序?斫饩隽耍?
假设，今天我们编写了一个程序叫 Test，当您完成 Test.exe 之后，您必须再多编写一个自动反安装的程序，我们?⑽募?名称设为 unTest.exe(先不要管如何编写，后面会?f明)。二支程序都完成后，您使用 VB 提供的应用程序安装向导(Application Setup Wizard) ?碇谱靼沧俺绦??r，必须额外再加入 unTest.exe！
加入 unTest.exe 之后，使用者安装后，安装程序?K不会在【开始】【程序集】中该系?y所产生的程序?M【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:WINDOWSST5UNST.EXE -n "
' "C:Program FilesApp NameST5UNST.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 可能必须改变！<--mstheme-->
End of《如何使用 VB 编写自动反安装的程序？》
|
|
[]
[返回上一页]
[打 印]
[收 藏] |
|
|
|
|
|
|
| ∷相关“如何使用 VB 编写自动反安装的程序？”文章评论∷ |
| （评论内容只代表网友观点，与本站立场无关！） [更多评论...] |
|
|
|
设为首页
加入收藏
联系我们
