program ZdechovNET;

{$mode delphi}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  UUtils, USqlDatabase, SysUtils, Contnrs, Forms,
  UUser, UHTTPSessionMySQL, UHTTPSessionFile, Printers,
  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UCore, UWebApp;

{$IFDEF DEBUG}
const
  HeapTraceLog = 'heaptrclog.trc';
{$ENDIF}

begin
  {$IFDEF DEBUG}
  // Heap trace
  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  //SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
  {$ENDIF}

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