add an arg to prevent dcd to launch, close #225

src/ce_dcd.pas

@@ -61,6 +61,7 @@ type
     destructor destroy; override;
     //
     class procedure relaunch; static;
+    class function noDcdPassedAsArg: boolean; static;
     //
     procedure addImportFolders(const folders: TStrings);
     procedure addImportFolder(const folder: string);
@@ -99,7 +100,8 @@ begin
   if fname.fileExists then
     loadFromFile(fname);
   //
-  fAvailable := exeInSysPath(clientName) and exeInSysPath(serverName);
+  fAvailable := exeInSysPath(clientName) and exeInSysPath(serverName)
+    and not noDcdPassedAsArg();
   if not fAvailable then
     exit;
   //
@@ -138,6 +140,19 @@ begin
   EntitiesConnector.addObserver(self);
 end;
 
+class function TCEDcdWrapper.noDcdPassedAsArg(): boolean;
+var
+  i: integer;
+begin
+  result := false;
+  for i := 1 to argc-1 do
+    if ParamStr(i) = '-nodcd' then
+  begin
+    result :=true;
+    break;
+  end;
+end;
+
 class procedure TCEDcdWrapper.relaunch;
 begin
   fDcdWrapper.Free;

src/ce_main.pas

@@ -399,7 +399,6 @@ type
     procedure widgetDockingChanged(sender: TCEWidget; newState: TWidgetDockingState);
     procedure mnuOptsItemClick(sender: TObject);
 
-
     // ICEMainMenu
     function singleServiceName: string;
     function mnuAdd: TMenuItem;