查看完整版本: 如何使用VB编写自动反安装的程序

如何使用VB编写自动反安装的程序

如果您安装了某一个软件之后，想要反安装，您有二个方法：
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，不需要任何控制项，在表单中加入以下程序代码：

** Declare Function GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

** Sub Form_Load()
On Error Goto BaddUn
Dim X