source: tags/1.0.0/tunneler.lpr

Last change on this file was 73, checked in by chronos, 20 months ago
  • Modified: Removed U prefix from unit names.
File size: 864 bytes
Line 
1program tunneler;
2
3{$mode delphi}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 cthreads, clocale,
8 {$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, TemplateGenerics, Platform, FileUtil, SysUtils, Common, FormNewGame,
11 FormMain, FormMap, FormGameResult, Core, World, Matter, FastPixel,
12 Sound, AsyncProcess2
13 { you can add units after this };
14
15{$R *.res}
16
17{$if declared(UseHeapTrace)}
18const
19 HeapTraceLog = 'heaptrclog.trc';
20{$ENDIF}
21
22begin
23 {$if declared(UseHeapTrace)}
24 // Heap trace
25 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
26 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
27 {$ENDIF}
28
29 Application.Title:='';
30 Application.Scaled:=True;
31 Application.Initialize;
32 Application.CreateForm(TCore, Core.Core);
33 Application.CreateForm(TFormMain, FormMain.FormMain);
34 {$IFDEF DEBUG}
35 {$ENDIF}
36 Application.Run;
37end.
38
Note: See TracBrowser for help on using the repository browser.