-
Notifications
You must be signed in to change notification settings - Fork 6
/
life32.dpr
64 lines (58 loc) · 1.67 KB
/
life32.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
program life32;
(* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/. *)
uses
Windows,
Messages,
Dialogs,
SysUtils,
Forms,
ActiveX,
Unit1 in 'Unit1.pas' {Form1},
LifeLoad in 'LifeLoad.pas',
Prefs in 'Prefs.pas' {FormPrefs},
ProgCorn in 'ProgCorn.pas' {ProgCorner},
DDSurface in 'DDSurface.pas',
LifeCel in 'LifeCel.pas',
LifeUtil in 'LifeUtil.pas',
LifeConst in 'LifeConst.pas',
Lifegen in 'Lifegen.pas',
LifeBox in 'LifeBox.pas',
ScrollHint in 'ScrollHint.pas',
Snapshot in 'Snapshot.pas',
LifeHash in 'LifeHash.pas',
RuleConst in 'RuleConst.pas',
BenchMark in 'BenchMark.pas',
Life32_TLB in 'Life32_TLB.pas',
Unit2 in 'Unit2.pas' {LifeApplication: CoClass},
Ask in 'Ask.pas' {AskForm},
Splash in 'Splash.pas' {SplashForm},
gifimage in 'gifimage.pas',
LifeRules in 'LifeRules.pas',
WinHelpViewer;
{BenchMarkForm}
{$R *.TLB}
{$R *.RES}
var
SplashScreen: TSplashForm;
begin
Application.Initialize;
Application.HelpFile := ExtractFilePath(Application.ExeName)+'Life32.hlp';
SplashScreen:= TSplashForm.Create(Application);
try
//SplashScreen.Show;
//SplashScreen.update; {To paint the splash screen}
//if the following line says TForm1 change this to
//TLife32MainForm.
//Application.CreateForm(TLife32MainForm, Form1);
Application.CreateForm(TLife32MainForm, Form1);
//SplashScreen.Close;
finally
SplashScreen.Free;
end; {try}
Application.Run;
//sometimes the application hung here, due to OLE issues
//exitprocess prevents that.
ExitProcess(0);
end.