program pipeterm;

{$I _crw_sysdef.inc}

{$I _crw_sysmode.inc}

uses
 //////////////////////////////////////////////////////
 {$I _crw_uses_first.inc} // NB: MUST BE FIRST USES !!!
 //////////////////////////////////////////////////////
 Interfaces, // this includes the LCL widgetset
 Forms, zcomponent, form_pipeterm,
 { you can add units after this }
 _crw_alloc, _crw_sesman;

{$R *.res}

begin
//if not StartSession('$ 1') then
  if not StartSession('? 9') 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(TFormPipeTerm, FormPipeTerm);
  FormPipeTerm.Master:=@FormPipeTerm;
  Application.Run;
end.

