program sqldbtest;

//{$mode objfpc}{$H+}

{$I _crw_sysdef.inc}

{$I _crw_sysmode.inc}

{$WARN 5023 off : Unit "$1" not used in $2}

uses
  //////////////////////////////////////////////////////
  {$I _crw_uses_first.inc} // NB: MUST BE FIRST USES !!!
  //////////////////////////////////////////////////////
  sysutils, classes, strutils, math, regexpr,
  Interfaces, // this includes the LCL widgetset
  Forms, zcomponent, unit1,
  { you can add units after this }
  _crw_alloc, _crw_fio,
  _crw_sesman,
  _crw_dbapi;

{$R *.res}

begin
  if not StartSession('$ 1') then
  with SessionManager do begin
   if (DetectRunningPid(0)>0)
   then writeln('SessionManager: ',SessionID,' already running.')
   else writeln('SessionManager: Could not init '+SessionID+'.');
   ExitCode:=1;
   Exit;
  end;
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

