improved DCD life-time management

- if server already running then use current
- if already running then don't kill on exit

src/ce_dcd.pas

@@ -5,7 +5,7 @@ unit ce_dcd;
 interface
 
 uses
-  Classes, SysUtils, process, forms, strutils,
+  Classes, SysUtils, process, forms, strutils, windows,
   ce_common, ce_writableComponent, ce_interfaces, ce_observer, ce_synmemo, ce_project;
 
 type
@@ -20,6 +20,7 @@ type
   private
     fTempLines: TStringList;
     //fPortNum: Word;
+    fServerWasRunning: boolean;
     fClient, fServer: TProcess;
     fAvailable: boolean;
     fDoc: TCESynMemo;
@@ -74,13 +75,19 @@ begin
   fClient.ShowWindow := swoHIDE;
   {$ENDIF}
   //
+  // TODO-ctest: test this feature on linux.
+  fServerWasRunning := AppIsRunning((serverName));
+  if not fServerWasRunning then begin
     fServer := TProcess.Create(self);
     fServer.Executable := serverName;
     fServer.Options := [{$IFDEF WINDOWS} poNewConsole{$ENDIF}];
     {$IFNDEF DEBUG}
     fServer.ShowWindow := swoHIDE;
     {$ENDIF}
+  end;
   fTempLines := TStringList.Create;
+
+  if (fServer <> nil) then
     fServer.Execute;
   //
   EntitiesConnector.addObserver(self);
@@ -91,8 +98,10 @@ begin
   EntitiesConnector.removeObserver(self);
   if fTempLines <> nil then
     fTempLines.Free;
-  killServer;
+  if fServer <> nil then begin
+    if not fServerWasRunning then killServer;
     fServer.Free;
+  end;
   fClient.Free;
   inherited;
 end;