Create EXE that Downloads Zip from URL and Extracts

Creates an EXE that downloads a .zip from a URL and extracts.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess

loZip = CreateObject('Chilkat.Zip2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loZip.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  This example creates a .exe that downloads the .zip from
*  http://www.chilkatsoft.com/testData/testWithSetup.zip,
*  unzips it, and runs the setup.exe contained within.
*  This is an actual URL that can be tested. The setup.exe
*  is a do-nothing program that simply displays a dialog box
*  with an "OK" button.
loZip.ExeSourceUrl = "http://www.chilkatsoft.com/testData/testWithSetup.zip"

*  Set the AutoTemp property to create an EXE that
*  extracts to an auto-chosen temp directory:
loZip.AutoTemp = 1

*  Indicate the file within the .zip that should be run after
*  extraction:
*  Note: You may download the .zip at http://www.chilkatsoft.com/testData/testWithSetup.zip
*  and examine it. You'll see that the "setup.exe" has a path
*  within the .zip, therefore you must specify the path as it
*  exists within the .zip:
loZip.AutoRun = "bin/setup.exe"

*  Indicate that we do not want a main dialog, but we *do* want
*  a progress dialog.
loZip.SetExeConfigParam("ShowMain","0")
loZip.SetExeConfigParam("ShowProgress","1")

*  Customize the progress dialog:
loZip.SetExeConfigParam("ProgressTitle","This is the progress dialog title")
loZip.SetExeConfigParam("ProgressCaption","This is the progress dialog caption")

*  Write "mySfx.exe"

lnSuccess = loZip.WriteExe("mySfx.exe")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

=MESSAGEBOX("EXE Created!")