Create a Self-Extracting Executable with Custom Icon

How to create a self-extracting EXE with a custom icon.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

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);

#  To create an EXE with a custom icon, set the ExeIconFile property:
$zip->put_ExeIconFile("apple.ico");

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

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