- Revenera Community
- :
- InstallShield
- :
- InstallShield Knowledge Base
- :
- Update Suite Progress Bar using InstallScript CustomAction
- Mark as New
- Mark as Read
- Subscribe
- Printer Friendly Page
- Report Inappropriate Content
Update Suite Progress Bar using InstallScript CustomAction
Update Suite Progress Bar using InstallScript CustomAction
Summary
To Update Suite Progress bar using InstallScript CustomAction
Synopsis:
This information applies to the following InstallShield project types:
- Suite
Cause:
On Installing a suite setup with an installscript custom action added it takes more time to do its action, at this time there wont be any progress shown in suite progress bar, which will look like the setup is hanging.
Resolution:
In your suite project:
Go to Installscript and create your script, Sample code:
function MyFunction(oExtension)
// To Do: Declare local variables.
begin
// To Do: Write script that will be executed when MyFunction is called.
USER32.MessageBoxW(GetWindowHandle(HWND_INSTALL), "First installing Message box version already exist. Aborting", "Same Build", MB_OK|MB_ICONSTOP);
if(IsObject(SuiteHost)) then
SuiteHost.SendProgressMessage("Status message here goes to suite progress window", 50,100,2);
//USER32.MessageBoxW(GetWindowHandle(HWND_INSTALL), "progress change", "Same Build", MB_OK|MB_ICONSTOP);
SuiteHost.SendProgressMessage("Status message here goes to suite progress window", 50,100,1);
endif;
USER32.MessageBoxW(GetWindowHandle(HWND_INSTALL), "Last installing Message box version already exist. Aborting", "Same Build", MB_OK|MB_ICONSTOP);
end;
Go to Events and create a Action and add it as per requirement(EX: Onpackages Configured)
Then go to the Wizard Interface view
We need to create a custom progress bar in wizard pages --> Installation progress dialog
We need to set the property under Content section to --> ISParcelProgress
Need to set the visible under Appearance to below values:
Any
|
--> Property comparison
Name --> ISInstallMode
Conversion --> String
Comparison --> Not Equal to
Compare to --> update
Set Anchor size x to TRUE
Style WS_CLIPSIBLINGS to TRUE
Refer the attached sample project