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
|
{$INCLUDE Switches.inc}
program Integrated;
uses
{$IFDEF UNIX}
cthreads, clocale,
{$ENDIF}
Forms, Interfaces, SysUtils, Protocol, GameServer, Direct, Start, Messg, Inp,
Back, Log, LocalPlayer, ClientTools, Tribes, IsoEngine, Term, CityScreen, Nego,
NoTerm, ScreenTools, Directories, LCLExceptionStackTrace;
{$if declared(UseHeapTrace)}
const
HeapTraceLog = '/tmp/heaptrclog.trc';
{$ENDIF}
{$R *.res}
begin
{$if declared(UseHeapTrace)}
// Heap trace
DeleteFile(HeapTraceLog);
SetHeapTraceOutput(HeapTraceLog);
{$ENDIF}
DotNetClient := nil;
Application.Initialize;
Application.Title := 'c-evo-dh';
Application.TaskBarBehavior := tbMultiButton;
Directories.UnitInit;
ScreenTools.UnitInit;
Application.CreateForm(TDirectDlg, DirectDlg);
Application.CreateForm(TStartDlg, StartDlg);
Application.CreateForm(TMessgDlg, MessgDlg);
Application.CreateForm(TInputDlg, InputDlg);
Application.CreateForm(TBackground, Background);
Application.CreateForm(TLogDlg, LogDlg);
Application.Run;
ScreenTools.UnitDone;
end.
|
