This example allows you to convert an already existing zip file (c:\Temp\TEST.zip) into a Self-Extracting zip file (c:\Temp\zip.exe). The example requires that you place a button and an Xceed Zip control on a form. Assign the following code to the button's click event. A Message box will display the result code.
| Delphi |
 Copy Code |
procedure TForm1.Button1Click(Sender: TObject);
var
ResultCode : XcdError;
begin
XceedZip1.License( 'your license key' );
{Specify the full path and name of the zip file which we wish to convert.}
XceedZip1.ZipFilename := 'c:\temp\test.zip';
{Specify the path to the Self-Extractor Module binary that you want to use.}
{ For this example we use the 32-bit binary }
Xceedzip1.SfxBinaryModule := 'c:\temp\xcdsfx32.bin';
{Convert the zip file, while specifying the new filename}
ResultCode := Xceedzip1.Convert ('c:\temp\test.exe');
{Check if it worked successfully}
If ResultCode <> xerSuccess Then
ShowMessage ('Unsuccessful. Error # ' + inttostr(ResultCode))
Else
ShowMessage ('Operation successful!')
end;
end. |