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