source: trunk/Packages/TemplateGenerics/Demo/Demo.lpr

Last change on this file was 2, checked in by chronos, 9 years ago
  • Added: TPakFile class for extraction PAK files from original game.
File size: 513 bytes
Line 
1program Demo;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}{$IFDEF UseCThreads}
7 cthreads,
8 {$ENDIF}{$ENDIF}
9 Interfaces, // this includes the LCL widgetset
10 Forms, SysUtils, UMainForm, TemplateGenerics;
11
12{$R *.res}
13
14const
15 HeapTraceLogFileName = 'heaptrclog.trc';
16begin
17 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName);
18 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName);
19 Application.Initialize;
20 Application.CreateForm(TMainForm, MainForm);
21 Application.Run;
22end.
23
Note: See TracBrowser for help on using the repository browser.