Subversion Repositories autosfx

(******************************************************************)

(* SFX for DelZip v1.8                                            *)

(* ZipSFX                                                         *)

(* Copyright 1997, Carl Bunton  Twojags@cris.com                  *)

(*                                                                *)

(* 1998-1901 maintained by Chris Vleghert                         *)

(*                                                                *)

(* 2002-? maintained again by Markus Stephany                     *)

(* mailto:delphizip@mirkes.de                                     *)

(* http://delphizip.mirkes.de                                     *)

(*                                                                *)

(* Credits: see CREDITS.TXT                                       *)

(*                                                                *)

(* last changed: 09/19/2005                                       *)

(*                                                                *)

(* In memory of Chris Vleghert                                    *)

(*                                                                *)

(* modified by Russell Peters, Roger Aelbrecht

  This library is free software; you can redistribute it and/or

  modify it under the terms of the GNU Lesser General Public

  License as published by the Free Software Foundation; either

  version 2.1 of the License, or (at your option) any later version.

  This library is distributed in the hope that it will be useful,

  but WITHOUT ANY WARRANTY; without even the implied warranty of

  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

  Lesser General Public License (licence.txt) for more details.

  You should have received a copy of the GNU Lesser General Public

  License along with this library; if not, write to the Free Software

  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

  contact: problems AT delphizip DOT org

  updates: http://www.delphizip.org

  modified 22-Nov-2008

---------------------------------------------------------------------------*)

// Changes RCV:

// Jan. 10, 1999  Adapted for D4 beta v0.99f=now v1.60

// Feb. 10, 1999  Changed the Initialization and Finalization sections

//                to include file close and CRC table.

//                ( The Crc table was not freed after an Halt. )

// Jun. 15, 2000  Added code to Dialog.pas to free a pidl, bug found by

//                Lucjan Lukasik

// Sep. 01, 2000  Added version Checked for Delphi 5 and BCB 4 and 5

// Oct. 09, 2000  Added DirExists to the function FileExists because

//                FindFirstFile does not work when there is no file on

//                a drive (e.g. an empty 'A' drive) extract to that drive

//                would not work, found by Clyde England clyde@conres.com.au

// changes mst:

// apr 2002       almost completely rewritten (or better re-cut'n'pasted...)

//                - moved routines/types/variables to appropriate units

//                - added progress bar, ability to (initially) hide the files listview

//                - removed "new directory" handling (this is handled by newer windows' themselves)

//                - added the ability to expand environment variables

//                - uses a new sfxheader instead of the MPV header; it's now a pascal record

//                - added the ability to interrupt extraction (by pressing the "X" in the caption bar)

// may 01, 2002   added the GetExeSize function from Angus Johnson's TZip-SFX to get rid of

//                caring about the executable's size

// further changes: see history.txt in the ..\doc\ directory

{ Notes:

the initial release of zipsfx comes from Carl Bunton (see above).

the first modifications came from Eric W. Engler, the author of the great freeware

delphi-vcl delzip that can handle zip-archives and -sfx's. (EEngler@zcsterling.com)

original zip-code comes from the infozip-group, they developped a free implementation

of the zip/unzip-code for unix and later for other platforms.

  Info-Zip home page:

  http://freesoftware.com/pub/infozip/Info-ZIP.html

regards, Markus Stephany

saarbrücken, saarland, germany, january 2004/september 2005

please read SFXInterface.pas for further details.

}

  (* the structure of a zipsfx-file :

  - zipsfx-executable code (0-xxxxx)

  - TSFXFileHeader record (see above)

  - possibly one or more strings (depending on the headers' properties) (not #0 terminated)

  Caption                             sfx dialog caption

  Path                                sfx default extraction path

  CmdLine                             command line to execute after extraction

  RegFailPath                         default extract path if Path could not be read from registry

  StartMsg                            startup message

  NOTE: the complete header (including the strings) must be DWORD-aligned!

  if not detached from the archive:

  - the zip archive

  if detached from the archive:

  - TSFXDetachedHeader + filename + TSFXDetachedHeader

  - centraldirectories[] + endofcentraldir of the zip archive

  *)

program ZMSFX19;

{$IFDEF UNICODE}

  cannot use Delphi 2009 or later

{$ENDIF}

{$R 'ZMSFXDLG19.res' 'ZMSFXDLG19.rc'}

{$R 'ZMSFX19.res' 'ZMSFX19.rc'}

uses

  Windows,

  ZMSFXDialogs19 in 'ZMSFXDialogs19.pas',

  ZMSFXProcs19 in 'ZMSFXProcs19.pas',

  ZMSFXInflate19 in 'ZMSFXInflate19.pas',

  ZMSFXDefs19 in 'ZMSFXDefs19.pas',

  ZMSFXInt19 in '..\ZMSFXInt19.pas',

  ZMSFXStructs19 in 'ZMSFXStructs19.pas',

  ZMSFXVars19 in 'ZMSFXVars19.pas',

  ZMSFXStrings19 in 'ZMSFXStrings19.pas',

  nvWinTrust in 'nvWinTrust.pas';

begin

  Run;

end.