home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 March
/
Chip_1998-03_cd.bin
/
zkuste
/
delphi
/
komprese
/
zip
/
DELZIP12.ZIP
/
DEMO1.ZIP
/
ZIPDEMO1.DPR
< prev
next >
Wrap
Text File
|
1997-09-28
|
498b
|
21 lines
program zipdemo1;
uses
Forms,
mainunit in 'mainunit.pas' {Mainform},
msgunit in 'msgunit.pas' {Msgform},
extrunit in 'extrunit.pas' {Extract},
Addunit in 'Addunit.pas' {AddForm};
{$R *.RES}
begin
Application.Initialize;
Application.Title := 'Zip Demo 1';
Application.CreateForm(TMainform, Mainform);
Application.CreateForm(TMsgform, Msgform);
Application.CreateForm(TExtract, Extract);
Application.CreateForm(TAddForm, AddForm);
Application.Run;
end.