- Creating a self-extracting archive
- Creating a self-extracting archive
Creating a self-extracting archive The following code is used to create a self-extracting archive. The archived files are extracted from the current directory. The "Icon.ICO" file is located in the runtime directory of the application.
// Declare and initialize the variables
ErrorCodeOpening is int
ErrorCodeExe is int
// Open an archive
ErrorCodeOpening = zipOpen("MyArchive", "C:\MyArchives\MyArchive.WDZ")
IF ErrorCodeOpening = 0 THEN
// Create a self-extracting archive
ErrorCodeExe = zipCreateExe("MyArchive", ...
"D:\Backups\Archive.EXE", zipCurrentDirectory, "Icon.ICO")
// Display the error message
// if the self-extracting archive was not created
IF ErrorCodeExe <> 0 THEN
Error(zipMsgError(ErrorCodeExe))
END
ELSE
// Display an error message if the opening was not performed
Error(zipMsgError(ErrorCodeOpening))
END
Creating a self-extracting archive The following code is used to create an archive containing a file, then a self-extracting archive.
// Declare and initialize the variables
ErrorCodeOpening is int
ErrorCodeExe is int
// Create the archive
nResCreate is int = zipCreate("MyArchive","C:\Temp\MyArchive.WDZ")
IF nResCreate = 0 THEN
// Add a file into an archive
nResAddFile is int = zipAddFile("MyArchive", ...
CompleteDir(fExeDir) + "Test.txt", zipDrive)
END
zipClose("MyArchive")
ErrorCodeOpening = zipOpen("MyArchive", "C:\Temp\MyArchive.WDZ")
IF ErrorCodeOpening = 0 THEN
// Create a self-extracting archive
ErrorCodeExe = zipCreateExe("MyArchive", "C:\Temp\Archive.EXE", ...
zipCurrentDirectory, "Icon.ICO")
// Display the error message
// if the self-extracting archive was not created
IF ErrorCodeExe <> 0 THEN
Error(zipMsgError(ErrorCodeExe))
END
ELSE
// Display an error message if the opening was not performed
Error(zipMsgError(ErrorCodeOpening))
END
This page is also available for…
|
|
|
|