Mercurial > cdar

comparison CDAR.dpr @ 0:ef71164288c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
begin of using hg for cdar
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:54:43 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:ef71164288c1
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.