source: branches/Independent/Independent.lpr

Last change on this file was 67, checked in by chronos, 3 weeks ago
  • Modified: Apps split into separate units.
  • Modified: SystemApi moved into separate unit.
File size: 709 bytes
Line 
1program Independent;
2
3uses
4 {$IFDEF UNIX}
5 cthreads, clocale,
6 {$ENDIF}
7 {$IFDEF HASAMIGA}
8 athreads,
9 {$ENDIF}
10 Interfaces, // this includes the LCL widgetset
11 Forms, FormMain, FormScreen, SysUtils, AppCode, SystemApi
12 { you can add units after this };
13
14{$R *.res}
15
16{$if declared(UseHeapTrace)}
17const
18 HeapTraceLog = 'heaptrclog.trc';
19{$ENDIF}
20
21begin
22 {$if declared(UseHeapTrace)}
23 // Heap trace
24 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
25 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
26 {$ENDIF}
27
28 RequireDerivedFormResource:=True;
29 Application.Scaled:=True;
30 Application.Initialize;
31 Application.CreateForm(TFormName, FormName);
32 Application.Run;
33end.
34
Note: See TracBrowser for help on using the repository browser.