Open topic with navigation

Using Build Status Events

InstallShield 2015

The automation interface includes build status events—ProgressIncrement, ProgressMax, and StatusMessage—that you can use to show the progress of the build and see status updates.

Example for Basic MSI, InstallScript, and InstallScript MSI Projects

The following Visual Basic 6 code demonstrates how to use these events in a build script in Basic MSI, InstallScript, and InstallScript MSI projects.

Public WithEvents pISWiRelease As ISWiAuto22.ISWiRelease

Private Sub Foo()

    Dim pISWiProject As IswiAuto22.ISWiProject

    Set pISWiProject = CreateObject("IswiAuto22.ISWiProject")

    pISWiProject.OpenProject "C:\InstallShield 2015 Projects\My Project Name-1.ism", False

    Set pISWiRelease = pISWiProject.ISWiProductConfigs("Product Configuration 1").ISWiReleases("Release 1")

    pISWiRelease.Build

    pISWiProject.CloseProject

    Set pISWiRelease = Nothing

    Set pISWiProject = Nothing

End Sub

Private Sub pISWiRelease_ProgressIncrement(ByVal lIncrement As Long, pbCancel As Boolean)

    ' Place your code here

End Sub

Private Sub pISWiRelease_ProgressMax(ByVal lMax As Long, pbCancel As Boolean)

    ' Place your code here

End Sub

Private Sub pISWiRelease_StatusMessage(ByVal sMessage As String, pbCancel As Boolean)

    ' Place your code here

End Sub

Example for Advanced UI and Suite/Advanced UI Projects

The following Visual Basic 6 code demonstrates how to use these events in a build script in Advanced UI and Suite/Advanced UI projects.

Public WithEvents pISWiSuiteRelease As ISWiAutoSuite22.ISWiSuiteRelease

Private Sub Foo()

    Dim pISWiProject As ISWiAutoSuite22.ISWiProject

    Set pISWiProject = CreateObject("ISWiAutoSuite22.ISWiProject")

    pISWiProject.OpenProject "C:\InstallShield 2015 Projects\My Project Name-1.issuite", False

    Set pISWiRelease = pISWiProject.ISWiSuiteReleases("Release 1")

    pISWiSuiteRelease.Build

    pISWiProject.CloseProject

    Set pISWiSuiteRelease = Nothing

    Set pISWiProject = Nothing

End Sub

Private Sub pISWiSuiteRelease_ProgressIncrement(ByVal lIncrement As Long, pbCancel As Boolean)

    ' Place your code here

End Sub

Private Sub pISWiSuiteRelease_ProgressMax(ByVal lMax As Long, pbCancel As Boolean)

    ' Place your code here

End Sub

Private Sub pISWiSuiteRelease_StatusMessage(ByVal sMessage As String, pbCancel As Boolean)

    ' Place your code here

End Sub