(* ***** BEGIN LICENSE BLOCK ***** * Version: MPL 1.1 * * The contents of this file are subject to the Mozilla Public License Version * 1.1 (the "License"); you may not use this file except in compliance with * the License. You may obtain a copy of the License at * http://www.mozilla.org/MPL/ * * Software distributed under the License is distributed on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License * for the specific language governing rights and limitations under the * License. * * The Original Code is TurboPower Abbrevia * * The Initial Developer of the Original Code is * TurboPower Software * * Portions created by the Initial Developer are Copyright (C) 1997-2002 * the Initial Developer. All Rights Reserved. * * Contributor(s): * * ***** END LICENSE BLOCK ***** *) {*********************************************************} {* ABBREVIA: TPZIP.DPR *} {*********************************************************} {* ABBREVIA Example program file *} {*********************************************************} program TPZip; uses Forms, ubasedlg in 'UBASEDLG.PAS' {BaseDirDlg}, udemodlg in 'UDEMODLG.PAS' {DemoDlg}, dgAbout in 'DGABOUT.PAS' {dlgAboutBox}, usplash in 'USPLASH.PAS' {Splash}, UMain in 'Umain.pas' {Form1}; {$R *.R32} begin Application.Title := 'TP Zip'; Application.HelpFile := 'Tpzip31.hlp'; Application.CreateForm(TForm1, Form1); Splash := TSplash.Create( Application ); Splash.Show; Splash.Refresh; Application.Run; end.