meillo@0: { meillo@0: Copyright (C) 2003 &> by Meillo r e t u r n s meillo@0: meillo@0: This program is free software; you can redistribute it and/or modify meillo@0: it under the terms of the GNU General Public License as published by meillo@0: the Free Software Foundation; either version 2 of the License, or meillo@0: (at your option) any later version. meillo@0: meillo@0: This program is distributed in the hope that it will be useful, meillo@0: but WITHOUT ANY WARRANTY; without even the implied warranty of meillo@0: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the meillo@0: GNU General Public License for more details. meillo@0: meillo@0: You should have received a copy of the GNU General Public License along meillo@0: with this program; if not, write to the Free Software Foundation, Inc., meillo@0: 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. meillo@0: } meillo@0: program CDAR; meillo@0: meillo@0: uses meillo@0: Forms, meillo@0: unit_Welcome in 'unit_Welcome.pas' {form_Welcome}, meillo@0: unit_Start in 'unit_Start.pas' {form_Start}, meillo@0: unit_Editor in 'unit_Editor.pas' {form_Editor}, meillo@0: modul_allgemein in 'modul_allgemein.pas', meillo@0: unit_Editor_ws in 'unit_Editor_ws.pas' {form_Editor_ws}, meillo@0: unit_Editor_as in 'unit_Editor_as.pas' {form_Editor_as}, meillo@0: unit_Editor_tutorial in 'unit_Editor_tutorial.pas' {form_editor_tutorial}, meillo@0: unit_Editor_CreateAR in 'unit_Editor_CreateAR.pas' {form_editor_CreateAR}, meillo@0: unit_Easteregg in 'unit_Easteregg.pas' {form_easteregg}, meillo@0: unit_Editor_as_BrowseDir in 'unit_Editor_as_BrowseDir.pas' {form_Editor_as_BrowseDir}; meillo@0: meillo@0: {$R *.res} meillo@0: meillo@0: begin meillo@0: Application.Initialize; meillo@0: Application.Title := 'CD-Autorunner'; meillo@0: Application.CreateForm(Tform_Start, form_Start); meillo@0: if paramstr(1) <> '' then //About-Fenster ausblenden meillo@0: begin meillo@0: Application.ShowMainForm := False; meillo@0: Form_start.Visible := False; meillo@0: end; meillo@0: Application.Run; meillo@0: end.