Self-Extracting EXE with Custom Title Bar and Caption

Create a self-extracting EXE with custom title-bar and caption text.

Download Chilkat Perl Module

use chilkat;

$zip = new chilkat::CkZip();

#  Any string unlocks the component for the 1st 30-days.
$success = $zip->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  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.
$success = $zip->NewZip("notUsed.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

#  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.
$recurse = 1;
$zip->AppendFiles("c:/temp/a/*",$recurse);

#  Customize the title bar and caption of the EXE:
$zip->put_ExeTitle("My killer app");
$zip->put_ExeUnzipCaption("Press Unzip to unzip this killer app...");

#  Write "mySfx.exe"
$success = $zip->WriteExe("mySfx.exe");
if ($success != 1) {
    print $zip->lastErrorText() . "\n";
    exit;
}

print "EXE Created!" . "\n";