| 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.
|
