source: trunk/mzxemu.lpr

Last change on this file was 3, checked in by chronos, 16 months ago
  • Added: Ignore for dynamically created files.
File size: 804 bytes
Line 
1program mzxemu;
2
3{$mode objfpc}{$H+}
4
5uses
6 {$IFDEF UNIX}
7 cthreads, clocale,
8 {$ENDIF}
9 {$IFDEF HASAMIGA}
10 athreads,
11 {$ENDIF}
12 SysUtils, Interfaces, // this includes the LCL widgetset
13 Forms, FormMain, FormMemory, FormDisassembler, CpuZ80, SharpMz800, Memory,
14 Core, Instructions, Disassembler, FormCpu, FormScreen
15 { you can add units after this };
16
17{$if declared(UseHeapTrace)}
18const
19 HeapTraceLog = 'heaptrclog.trc';
20{$ENDIF}
21{$R *.res}
22
23begin
24 {$if declared(UseHeapTrace)}
25 // Heap trace
26 DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
27 SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
28 {$ENDIF}
29
30 RequireDerivedFormResource:=True;
31 Application.Scaled:=True;
32 Application.Initialize;
33 Application.CreateForm(TCore, Core.Core);
34 Application.Run;
35end.
36
Note: See TracBrowser for help on using the repository browser.