|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (Miscelâneas)
|
|
 |
Título da Dica: Instalando / desinstalando MSI usando VB.NET
|
 |
|
|
|
Postada em 9/10/2003 por ~Ð@®£@Ñ
Uma vez que o Windows Installer Object Model não funciona apropriadamente quando usado com o .NET, eu encontrei um modo mais fácil para controlar a instalação, etc. de MSIs. É usando a API disponível em msi.dll.
Const ERROR_SUCCESS = 0
Declare Function MsiInstallProduct Lib "msi.dll" Alias "MsiInstallProductA"
(ByVal szPackagePath As String, ByVal szCommandLine As String) As Long
Sub InstallMSI(ByVal remove As Boolean, ByVal MSIFile As String)
Select Case remove
Case True
If MsiInstallProduct("MSIFileName", "REMOVE=ALL") =
ERROR_SUCCESS Then MsgBox("OK")
Case False
If MsiInstallProduct("MSIFileName", "property1=value1
property2=value2") = ERROR_SUCCESS Then MsgBox("OK")
End Select
End Sub
|
|
|
|
|
