Create a Self-Extracting Executable for Win98/NT4

How to create a self-extracting EXE that will run on Windows98/NT4.

The WriteExe method will create a self-extracting EXE that supports all languages. It can handle filenames in any language, as well as display customized titles and captions in any language. Unfortunately, it is not compatible with Windows 98 and NT4 for this reason. It is possible to create self-extracting EXEs that run on all systems from Win95/98/NT4 and up, including Vista, by calling WriteExe2, but the resulting EXE is not Unicode capable (it can only display ANSI strings in the EXE's user interface).

Download Chilkat Zip ActiveX

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @zip int
    EXEC @hr = sp_OACreate 'Chilkat.Zip2', @zip OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    --  Any string unlocks the component for the 1st 30-days.
    EXEC sp_OAMethod @zip, 'UnlockComponent', @success OUT, 'Anything for 30-day trial'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Initialize the zip object.  Because we're creating
    --  a self-extracting EXE in this example, the filename
    --  passed to NewZip will never actually be created.
    EXEC sp_OAMethod @zip, 'NewZip', @success OUT, 'notUsed.zip'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    --  Append a directory tree.  The AppendFiles does
    --  not read the file contents or append them to the zip
    --  object in memory.  It simply appends references
    --  to the files so that when WriteExe (or WriteZipAndClose,
    --  or WriteZip, etc.) is called, the files are compressed
    --  and added to the archive.
    DECLARE @recurse int

    SELECT @recurse = 1
    EXEC sp_OAMethod @zip, 'AppendFiles', NULL, 'c:/temp/a/*', @recurse

    --  The WriteExe2 method allows you to use an alternate
    --  self-extract program.  (The self-extracting EXE is an
    --  executable with data appended to it.  When the EXE runs,
    --  it locates the data and extracts (unzips) the contents.)

    --  You may download a Win98 compatible program at this URL:
    --  http://www.chilkatsoft.com/download/SaPayload98.zip.
    --  Unzip it to get SaPayload98.exe
    --  (It is called a payload because the Chilkat libs and DLLs
    --  contain the default payload (Unicode compable) within the
    --  .lib or DLL itself.)

    --  The 1st argument to WriteExe2 is the payload file (i.e. the
    --  self-extractor program).  The 2nd argument is the output file,
    --  the remaining arguments control encryption.

    EXEC sp_OAMethod @zip, 'WriteExe2', @success OUT, 'SaPayload98.exe', 'mySfx.exe', 0, 0, ''
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @zip, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        RETURN
      END

    PRINT 'EXE Created!'
END
GO