program FioInfo; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, laz_synapse, UFioAPI, Common, TemplateGenerics, SysUtils, UFormSettings, UFormMain, UFormAbout, UFormAccounts, UCore, CoolTranslator; {$R *.res} {$IFDEF DEBUG} const HeapTraceLog = 'heaptrclog.trc'; {$ENDIF} begin {$IFDEF DEBUG} // Heap trace DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog); {$ENDIF} RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TCore, Core); Application.CreateForm(TFormMain, FormMain); Application.CreateForm(TFormSettings, FormSettings); Application.CreateForm(TFormAbout, FormAbout); Application.CreateForm(TFormAccounts, FormAccounts); Application.Run; end.