Class TMainform (unit mainunit)

Inherits from

TForm

Constructors



Functions

procedure AddButClick(Sender: TObject);

end with

procedure CloseButClick(Sender: TObject);

if mil > 9 then smil := inttostr(mil) else smil := '0' + inttostr(mil);

procedure ConvertButClick(Sender: TObject);


procedure DeleteButClick(Sender: TObject);

reset the progress bar and filename } { ShowMessage('In OnProgress type 3');

procedure DeleteZipButClick(Sender: TObject);

end with

procedure ExtractButClick(Sender: TObject);

Don't use the new name

procedure FillGrid;

If we had args on the cmd line, then try to open the first one as a zip/exe file.

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Put this message into the message form's memo

procedure MsgButClick(Sender: TObject);

This will really do a test

procedure NewZipButClick(Sender: TObject);

Set the caption after assigning the filename.

procedure StringGrid1ClickSort(Sender: TObject; Col, Row: Longint; var SortOptions: TSortOptions);

Convert .

procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure TestButClick(Sender: TObject);


procedure ZipMaster1DirUpdate(Sender: TObject);

end with

procedure ZipMaster1Message(Sender: TObject; ErrCode: Integer; Message: string);

This is the "OnMessage" event handler

procedure ZipMaster1Progress(Sender: TObject; ProgrType: ProgressType; FileName: string; FileSize: Longint);


procedure ZipOpenButClick(Sender: TObject);


procedure SetZipFName( aCaption: String );


Properties

Events

Variables

AddBut : TButton;


Bevel1 : TBevel;


Bevel2 : TBevel;


CloseBut : TButton;


ConvertBut : TButton;


DeleteBut : TButton;


DeleteZipBut : TButton;


ExtractBut : TButton;


FilesLabel : TLabel;


ImageList1 : TImageList;


Label1 : TLabel;


Label2 : TLabel;


Label4 : TLabel;


MsgBut : TButton;


NewZipBut : TButton;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


StringGrid1 : TSortGrid;


TestBut : TButton;


TimeLabel : TLabel;


TraceCB : TCheckBox;


VerboseCB : TCheckBox;


ZipFName : TLabel;


ZipMaster1 : TZipMaster;


ZipOpenBut : TButton;


DoIt : Boolean;

Public declarations

GSortCol : Longint;


GSortOptions : TSortOptions;



Constructors


Functions


procedure AddButClick(Sender: TObject);

end with


procedure CloseButClick(Sender: TObject);

if mil > 9 then smil := inttostr(mil) else smil := '0' + inttostr(mil);


procedure ConvertButClick(Sender: TObject);


procedure DeleteButClick(Sender: TObject);

reset the progress bar and filename } { ShowMessage('In OnProgress type 3');


procedure DeleteZipButClick(Sender: TObject);

end with


procedure ExtractButClick(Sender: TObject);

Don't use the new name


procedure FillGrid;

If we had args on the cmd line, then try to open the first one as a zip/exe file. This is most useful in case user has an association to ".zip" that causes this program to run when user dble clicks on a zip file in Explorer.


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

Put this message into the message form's memo


procedure MsgButClick(Sender: TObject);

This will really do a test


procedure NewZipButClick(Sender: TObject);

Set the caption after assigning the filename. This way, the filename will be null if the open failed.


procedure StringGrid1ClickSort(Sender: TObject; Col, Row: Longint; var SortOptions: TSortOptions);

Convert .ZIP to .EXE } { NOTE: If you put the ZIPSFX.BIN file into the WINDOWS or WINDOWS SYSTEM dir, then you don't need to set the SFXPath property below: } { ZipMaster1.SFXPath:='c:\windows\system\zipsfx.bin';


procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState);


procedure TestButClick(Sender: TObject);


procedure ZipMaster1DirUpdate(Sender: TObject);

end with


procedure ZipMaster1Message(Sender: TObject; ErrCode: Integer; Message: string);

This is the "OnMessage" event handler


procedure ZipMaster1Progress(Sender: TObject; ProgrType: ProgressType; FileName: string; FileSize: Longint);


procedure ZipOpenButClick(Sender: TObject);


procedure SetZipFName( aCaption: String );


Properties


Events


Variables


AddBut : TButton;


Bevel1 : TBevel;


Bevel2 : TBevel;


CloseBut : TButton;


ConvertBut : TButton;


DeleteBut : TButton;


DeleteZipBut : TButton;


ExtractBut : TButton;


FilesLabel : TLabel;


ImageList1 : TImageList;


Label1 : TLabel;


Label2 : TLabel;


Label4 : TLabel;


MsgBut : TButton;


NewZipBut : TButton;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


StringGrid1 : TSortGrid;


TestBut : TButton;


TimeLabel : TLabel;


TraceCB : TCheckBox;


VerboseCB : TCheckBox;


ZipFName : TLabel;


ZipMaster1 : TZipMaster;


ZipOpenBut : TButton;


DoIt : Boolean;

Public declarations


GSortCol : Longint;


GSortOptions : TSortOptions;