program ZdechovNET;

{$mode delphi}{$H+}

uses
  {$IFDEF UNIX}
  cthreads, clocale,
  {$ENDIF}
  Utils, SqlDatabase, SysUtils, Forms,
  User, HTTPSessionMySQL, HTTPSessionFile, Printers,
  Common, HTTPServer, HTTPServerTCP, HTTPServerCGI, TCPServer, Pool,
  MemoryStreamEx, MIMEType, PageList, Interfaces, Core, WebApp;

{$if declared(UseHeapTrace)}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}

begin
  {$if declared(UseHeapTrace)}
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  //SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

  with Application do begin
    Initialize;
    Core.Core := TCore.Create(Application);
    Core.Core.Run;
    Run;
    //Printer.RawMode := True; // Avoid printer finalization exception
  end;
end.