1 {

2 Copyright (C) 2003 &> by Meillo r e t u r n s

3

4 This program is free software; you can redistribute it and/or modify

5 it under the terms of the GNU General Public License as published by

6 the Free Software Foundation; either version 2 of the License, or

7 (at your option) any later version.

8

9 This program is distributed in the hope that it will be useful,

10 but WITHOUT ANY WARRANTY; without even the implied warranty of

11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

12 GNU General Public License for more details.

13

14 You should have received a copy of the GNU General Public License along

15 with this program; if not, write to the Free Software Foundation, Inc.,

16 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

17 }

18 program CDAR;

19

20 uses

21 Forms,

22 unit_Welcome in 'unit_Welcome.pas' {form_Welcome},

23 unit_Start in 'unit_Start.pas' {form_Start},

24 unit_Editor in 'unit_Editor.pas' {form_Editor},

25 modul_allgemein in 'modul_allgemein.pas',

26 unit_Editor_ws in 'unit_Editor_ws.pas' {form_Editor_ws},

27 unit_Editor_as in 'unit_Editor_as.pas' {form_Editor_as},

28 unit_Editor_tutorial in 'unit_Editor_tutorial.pas' {form_editor_tutorial},

29 unit_Editor_CreateAR in 'unit_Editor_CreateAR.pas' {form_editor_CreateAR},

30 unit_Easteregg in 'unit_Easteregg.pas' {form_easteregg},

31 unit_Editor_as_BrowseDir in 'unit_Editor_as_BrowseDir.pas' {form_Editor_as_BrowseDir};

32

33 {$R *.res}

34

35 begin

36 Application.Initialize;

37 Application.Title := 'CD-Autorunner';

38 Application.CreateForm(Tform_Start, form_Start);

39 if paramstr(1) <> '' then //About-Fenster ausblenden

40 begin

41 Application.ShowMainForm := False;

42 Form_start.Visible := False;

43 end;

44 Application.Run;

45 end.