cdar

annotate CDAR.dpr @ 1:87b91371db05

removed files from hg-test
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:56:21 +0100
parents
children
rev   line source
meillo@0 1 {
meillo@0 2 Copyright (C) 2003 &> by Meillo r e t u r n s
meillo@0 3
meillo@0 4 This program is free software; you can redistribute it and/or modify
meillo@0 5 it under the terms of the GNU General Public License as published by
meillo@0 6 the Free Software Foundation; either version 2 of the License, or
meillo@0 7 (at your option) any later version.
meillo@0 8
meillo@0 9 This program is distributed in the hope that it will be useful,
meillo@0 10 but WITHOUT ANY WARRANTY; without even the implied warranty of
meillo@0 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
meillo@0 12 GNU General Public License for more details.
meillo@0 13
meillo@0 14 You should have received a copy of the GNU General Public License along
meillo@0 15 with this program; if not, write to the Free Software Foundation, Inc.,
meillo@0 16 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
meillo@0 17 }
meillo@0 18 program CDAR;
meillo@0 19
meillo@0 20 uses
meillo@0 21 Forms,
meillo@0 22 unit_Welcome in 'unit_Welcome.pas' {form_Welcome},
meillo@0 23 unit_Start in 'unit_Start.pas' {form_Start},
meillo@0 24 unit_Editor in 'unit_Editor.pas' {form_Editor},
meillo@0 25 modul_allgemein in 'modul_allgemein.pas',
meillo@0 26 unit_Editor_ws in 'unit_Editor_ws.pas' {form_Editor_ws},
meillo@0 27 unit_Editor_as in 'unit_Editor_as.pas' {form_Editor_as},
meillo@0 28 unit_Editor_tutorial in 'unit_Editor_tutorial.pas' {form_editor_tutorial},
meillo@0 29 unit_Editor_CreateAR in 'unit_Editor_CreateAR.pas' {form_editor_CreateAR},
meillo@0 30 unit_Easteregg in 'unit_Easteregg.pas' {form_easteregg},
meillo@0 31 unit_Editor_as_BrowseDir in 'unit_Editor_as_BrowseDir.pas' {form_Editor_as_BrowseDir};
meillo@0 32
meillo@0 33 {$R *.res}
meillo@0 34
meillo@0 35 begin
meillo@0 36 Application.Initialize;
meillo@0 37 Application.Title := 'CD-Autorunner';
meillo@0 38 Application.CreateForm(Tform_Start, form_Start);
meillo@0 39 if paramstr(1) <> '' then //About-Fenster ausblenden
meillo@0 40 begin
meillo@0 41 Application.ShowMainForm := False;
meillo@0 42 Form_start.Visible := False;
meillo@0 43 end;
meillo@0 44 Application.Run;
meillo@0 45 end.