IDE: split parsing command line options into gui and nogui parts

git-svn-id: trunk@31421 -

.gitattributes

@@ -4128,6 +4128,7 @@ ide/idecontexthelpedit.pas svneol=native#text/plain
 ide/idedefs.pas svneol=native#text/pascal
 ide/idefpcinfo.lfm svneol=native#text/plain
 ide/idefpcinfo.pas svneol=native#text/plain
+ide/ideguicmdline.pas svneol=native#text/plain
 ide/idehelpmanager.lfm svneol=native#text/plain
 ide/idehelpmanager.pas svneol=native#text/pascal
 ide/ideinfodlg.lfm svneol=native#text/plain

ide/idecmdline.pas

@@ -50,7 +50,6 @@ const
   NoSplashScreenOptShort='--nsc';
   StartedByStartLazarusOpt='--started-by-startlazarus';
   SkipLastProjectOpt='--skip-last-project';
-  EnableRemoteControlOpt='--remote-control';
   DebugLogOpt='--debug-log=';
   LanguageOpt='--language=';
   LazarusDirOpt ='--lazarusdir=';
@@ -66,110 +65,14 @@ function ParamIsOption(ParamIndex : integer; const Option : string) : boolean;
 function ParamIsOptionPlusValue(ParamIndex : integer;
             const Option : string; out AValue : string) : boolean;
 
-procedure SetParamOptions(var SkipAutoLoadingLastProject,
+procedure ParseNoGuiCmdLineParams;
-                              StartedByStartLazarus,
-                              EnableRemoteControl,
-                              ShowSplashScreen,
-                              Setup: Boolean);
 
 function ExtractCmdLineFilenames : TStrings;
 
 function GetLazarusDirectory : String;
 
-// remote control
-var
-  EnableRemoteControl: boolean = false;
-
-function SetupMainIDEInstance: boolean; // false if this is a secondary instance
-function GetPidFile: string;
-function IsLazarusPIDRunning(aPID: int64): boolean;
-function GetRemoteControlFilename: string;
-procedure CleanUpPIDFile;
-
 implementation
 
-{$IFDEF Linux}
-{$DEFINE UseProcFileSystem}
-{$ENDIF}
-{$IF defined(FreeBSD) and defined(VER2_5)}
-{$DEFINE UseFreeBSDKernProc}
-uses FreeBSD, BaseUnix;
-{$ENDIF}
-{$IFDEF Darwin}
-{$DEFINE UseCarbonProc}
-uses MacOSAll, CarbonProc;
-{$ENDIF}
-
-function IsLazarusPIDRunning(aPID: int64): boolean;
-
-  function CheckProcFileSystem: boolean;
-  var
-    sl: TStringList;
-    Filename: String;
-  begin
-    Result:=false;
-    Filename:='/proc/'+IntToStr(aPID)+'/cmdline';
-    if not FileExists(Filename) then exit;
-    sl:=TStringList.Create;
-    try
-      try
-        sl.LoadFromFile(Filename);
-        if sl.Count=0 then exit;
-        if Pos('lazarus',lowercase(sl[0]))<1 then exit;
-        Result:=true;
-      except
-      end;
-    finally
-      sl.Free;
-    end;
-  end;
-
-  {$IFDEF UseFreeBSDKernProc}
-  function CheckFreeBSDKernProc: boolean;
-  var
-    s: string;
-  begin
-    Result:=(kernproc_getpath(aPID,s)<>-1)
-        and (Pos('lazarus',lowercase(s))>0);
-  end;
-  {$ENDIF}
-
-  {$IFDEF UseCarbonProc}
-  function CheckCarbonProc: boolean;
-  var
-    psn: ProcessSerialNumber;
-    info: ProcessInfoRec;
-    processName: CFStringRef;
-    s: String;
-  begin
-    Result:=false;
-    if GetProcessForPID(aPid,psn)<>noErr then exit;
-    FillByte(info,SizeOf(info),0);
-    if GetProcessInformation(psn,info)<>noErr then exit;
-    processName := nil;
-    if CopyProcessName(psn, processName)<>noErr then exit;
-    if processName<>nil then begin
-      s:=CFStringToStr(processName);
-      CFRelease(processName);
-      Result:=Pos('lazarus',lowercase(s))>0;
-    end;
-  end;
-  {$ENDIF}
-
-begin
-  Result:=true;
-  {$IFDEF UseFreeBSDKernProc}
-  if CheckFreeBSDKernProc then exit;
-  {$ENDIF}
-  {$IFDEF UseProcFileSystem}
-  if CheckProcFileSystem then exit;
-  {$ENDIF}
-  {$IFDEF UseCarbonProc}
-  if CheckCarbonProc then exit;
-  {$ENDIF}
-  Result:=false;
-end;
-
 procedure ParseCommandLine(aCmdLineParams: TStrings; out IDEPid: Integer; out
   ShowSplashScreen: boolean);
 const
@@ -275,18 +178,14 @@ begin
    AValue := '';
 end;
 
-procedure SetParamOptions(var SkipAutoLoadingLastProject,
+procedure ParseNoGuiCmdLineParams;
-                              StartedByStartLazarus,
-                              EnableRemoteControl,
-                              ShowSplashScreen,
-                              Setup: Boolean);
 var
   i      : integer;
   AValue : String;
 begin
   for i:= 1 to ParamCount do
   begin
-    //DebugLn(['TMainIDE.ParseCmdLineOptions ',i,' "',ParamStrUTF8(i),'"']);
+    //DebugLn(['ParseNoGuiCmdLineParams ',i,' "',ParamStrUTF8(i),'"']);
     if ParamIsOptionPlusValue(i, PrimaryConfPathOptLong, AValue) then
       SetPrimaryConfigPath(AValue)
     else if ParamIsOptionPlusValue(i, PrimaryConfPathOptShort, AValue) then
@@ -294,18 +193,7 @@ begin
     else if ParamIsOptionPlusValue(i, SecondaryConfPathOptLong, AValue) then
       SetSecondaryConfigPath(AValue)
     else if ParamIsOptionPlusValue(i, SecondaryConfPathOptShort, AValue) then
-      SetSecondaryConfigPath(AValue)
+      SetSecondaryConfigPath(AValue);
-    else if ParamIsOption(i, NoSplashScreenOptLong) or
-        ParamIsOption(i, NoSplashScreenOptShort)    then
-      ShowSplashScreen := false
-    else if ParamIsOption(i, ShowSetupDialogOptLong) then
-      Setup:=true
-    else if ParamIsOption(i, SkipLastProjectOpt) then
-      SkipAutoLoadingLastProject := true
-    else if ParamIsOption(i, StartedByStartLazarusOpt) then
-      StartedByStartLazarus := true
-    else if ParamIsOption(i, EnableRemoteControlOpt) then
-      EnableRemoteControl := true;
   end;
 end;
 
@@ -332,148 +220,5 @@ begin
   Result := ExtractFileDir(ParamStrUTF8(0));
 end;
 
-function GetPidFile: string;
-begin
-  Result:=AppendPathDelim(GetPrimaryConfigPath)+'pid.txt';
-end;
-
-function SetupMainIDEInstance: boolean;
-
-  procedure WritePIDFile(const Filename: string; aPID: int64);
-  var
-    Dir: String;
-    sl: TStringList;
-  begin
-    debugln(['WritePIDFile File="',Filename,'" PID=',aPID]);
-    sl:=TStringList.Create;
-    try
-      sl.Add(IntToStr(aPID));
-      try
-        Dir:=ChompPathDelim(ExtractFilePath(Filename));
-        if not DirectoryExistsUTF8(Dir) then begin
-          if not CreateDirUTF8(Dir) then
-            debugln(['WritePIDFile failed to create directory ',Dir]);
-          exit;
-        end;
-        sl.SaveToFile(UTF8ToSys(Filename));
-      except
-        on E: Exception do begin
-          debugln(['WritePIDFile "',Filename,'" failed:']);
-          debugln(E.Message);
-        end;
-      end;
-    finally
-      sl.Free;
-    end;
-  end;
-
-  function ReadPIDFile(const Filename: string; out ConfigPID: int64): boolean;
-  var
-    sl: TStringList;
-  begin
-    Result:=false;
-    ConfigPID:=-1;
-    debugln(['ReadPIDFile ',Filename]);
-    if not FileExistsUTF8(Filename) then exit;
-    sl:=TStringList.Create;
-    try
-      try
-        sl.LoadFromFile(UTF8ToSys(Filename));
-        ConfigPID:=StrToInt64(sl[0]);
-        Result:=true;
-        debugln(['ReadPIDFile ConfigPID=',ConfigPID]);
-      except
-        on E: Exception do begin
-          debugln(['ReadPIDFile "',Filename,'" failed:']);
-          debugln(E.Message);
-        end;
-      end;
-    finally
-      sl.Free;
-    end;
-  end;
-
-  procedure SendCmdlineActionsToMainInstance;
-  var
-    sl: TStringList;
-    Param: String;
-    Filename: String;
-    i: Integer;
-  begin
-    sl:=TStringList.Create;
-    try
-      sl.Add('Show');
-      for i:=1 to Paramcount do begin
-        Param:=ParamStrUTF8(i);
-        if (Param='') or (Param[1]='-') then continue;
-        sl.Add('Open '+Param);
-      end;
-      Filename:=GetRemoteControlFilename;
-      try
-        debugln(['SendCmdlineActionsToMainInstance Commands="',sl.Text,'"']);
-        sl.SaveToFile(UTF8ToSys(Filename));
-      except
-        on E: Exception do begin
-          debugln(['SendCmdlineActionsToMainInstance failed to write ',Filename]);
-          debugln(E.Message);
-        end;
-      end;
-    finally
-      sl.Free;
-    end;
-  end;
-
-var
-  PIDFilename: String;
-  MyPID, ConfigPID: int64;
-  PIDRead: Boolean;
-begin
-  Result:=true;
-  if not EnableRemoteControl then exit;
-
-  // check if another IDE (of this user and same configuration) is already
-  // running. Request it to handle the show and handle the command line
-  // parameters (e.g. open files). And if successful return false.
-  // Otherwise become the main instance.
-  PIDFilename:=GetPidFile;
-  MyPID:=GetProcessID;
-  ConfigPID:=-1;
-  PIDRead:=ReadPIDFile(PIDFilename,ConfigPID);
-  if PIDRead and (ConfigPID<>MyPID) then begin
-    // there is a pid file from another instance
-    if not IsLazarusPIDRunning(ConfigPID) then begin
-      // clean up
-      DeleteFileUTF8(PIDFilename);
-      PIDRead:=false;
-    end;
-  end;
-  if not FileExistsUTF8(PIDFilename) then begin
-    // try to become the main instance
-    WritePIDFile(PIDFilename,MyPID);
-    PIDRead:=false;
-  end;
-  if not PIDRead then
-    PIDRead:=ReadPIDFile(PIDFilename,ConfigPID);
-  if ConfigPID=MyPID then begin
-    // this is the main instance
-    exit;
-  end;
-  // this is a second instance
-  Result:=false;
-
-  SendCmdlineActionsToMainInstance;
-end;
-
-function GetRemoteControlFilename: string;
-begin
-  Result:=AppendPathDelim(GetPrimaryConfigPath)+'ideremotecontrol.txt';
-end;
-
-procedure CleanUpPIDFile;
-begin
-  if EnableRemoteControl then
-    DeleteFileUTF8(GetRemoteControlFilename);
-end;
-
 end.
 

ide/ideguicmdline.pas

@@ -0,0 +1,311 @@
+{
+ /***************************************************************************
+                              idecmdline.pas
+                             --------------------
+               A unit to manage command lines issue used inside the ide
+
+ ***************************************************************************/
+
+ ***************************************************************************
+ *                                                                         *
+ *   This source is free software; you can redistribute it and/or modify   *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This code is distributed in the hope that it will be useful, but      *
+ *   WITHOUT ANY WARRANTY; without even the implied warranty of            *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU     *
+ *   General Public License for more details.                              *
+ *                                                                         *
+ *   A copy of the GNU General Public License is available on the World    *
+ *   Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also      *
+ *   obtain it by writing to the Free Software Foundation,                 *
+ *   Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.        *
+ *                                                                         *
+ ***************************************************************************
+
+ Author: Mattias Gaertner
+
+  This unit manages the command line parameters for lazarus and startlazarus,
+  but not lazbuild.
+}
+unit IDEGuiCmdLine;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, LazConf, LCLProc, LazarusIDEStrConsts, IDECmdLine;
+
+procedure ParseGuiCmdLineParams(var SkipAutoLoadingLastProject,
+                                      StartedByStartLazarus,
+                                      EnableRemoteControl,
+                                      ShowSplashScreen,
+                                      Setup: Boolean);
+
+// remote control
+const
+  EnableRemoteControlOpt='--remote-control';
+var
+  EnableRemoteControl: boolean = false;
+
+function SetupMainIDEInstance: boolean; // false if this is a secondary instance
+function GetPidFile: string;
+function IsLazarusPIDRunning(aPID: int64): boolean;
+function GetRemoteControlFilename: string;
+procedure CleanUpPIDFile;
+
+implementation
+
+{$IFDEF Linux}
+{$DEFINE UseProcFileSystem}
+{$ENDIF}
+{$IF defined(FreeBSD) and defined(VER2_5)}
+{$DEFINE UseFreeBSDKernProc}
+uses FreeBSD, BaseUnix;
+{$ENDIF}
+{$IFDEF Darwin}
+{$DEFINE UseCarbonProc}
+uses MacOSAll, CarbonProc;
+{$ENDIF}
+
+function IsLazarusPIDRunning(aPID: int64): boolean;
+
+  function CheckProcFileSystem: boolean;
+  var
+    sl: TStringList;
+    Filename: String;
+  begin
+    Result:=false;
+    Filename:='/proc/'+IntToStr(aPID)+'/cmdline';
+    if not FileExists(Filename) then exit;
+    sl:=TStringList.Create;
+    try
+      try
+        sl.LoadFromFile(Filename);
+        if sl.Count=0 then exit;
+        if Pos('lazarus',lowercase(sl[0]))<1 then exit;
+        Result:=true;
+      except
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+
+  {$IFDEF UseFreeBSDKernProc}
+  function CheckFreeBSDKernProc: boolean;
+  var
+    s: string;
+  begin
+    Result:=(kernproc_getpath(aPID,s)<>-1)
+        and (Pos('lazarus',lowercase(s))>0);
+  end;
+  {$ENDIF}
+
+  {$IFDEF UseCarbonProc}
+  function CheckCarbonProc: boolean;
+  var
+    psn: ProcessSerialNumber;
+    info: ProcessInfoRec;
+    processName: CFStringRef;
+    s: String;
+  begin
+    Result:=false;
+    if GetProcessForPID(aPid,psn)<>noErr then exit;
+    FillByte(info,SizeOf(info),0);
+    if GetProcessInformation(psn,info)<>noErr then exit;
+    processName := nil;
+    if CopyProcessName(psn, processName)<>noErr then exit;
+    if processName<>nil then begin
+      s:=CFStringToStr(processName);
+      CFRelease(processName);
+      Result:=Pos('lazarus',lowercase(s))>0;
+    end;
+  end;
+  {$ENDIF}
+
+begin
+  Result:=true;
+  {$IFDEF UseFreeBSDKernProc}
+  if CheckFreeBSDKernProc then exit;
+  {$ENDIF}
+  {$IFDEF UseProcFileSystem}
+  if CheckProcFileSystem then exit;
+  {$ENDIF}
+  {$IFDEF UseCarbonProc}
+  if CheckCarbonProc then exit;
+  {$ENDIF}
+  Result:=false;
+end;
+
+function GetPidFile: string;
+begin
+  Result:=AppendPathDelim(GetPrimaryConfigPath)+'pid.txt';
+end;
+
+procedure ParseGuiCmdLineParams(var SkipAutoLoadingLastProject,
+  StartedByStartLazarus, EnableRemoteControl, ShowSplashScreen, Setup: Boolean);
+var
+  i: Integer;
+begin
+  ParseNoGuiCmdLineParams;
+  for i:= 1 to ParamCount do
+  begin
+    //DebugLn(['ParseGuiCmdLineParams ',i,' "',ParamStrUTF8(i),'"']);
+    if ParamIsOption(i, NoSplashScreenOptLong) or
+        ParamIsOption(i, NoSplashScreenOptShort)    then
+      ShowSplashScreen := false
+    else if ParamIsOption(i, ShowSetupDialogOptLong) then
+      Setup:=true
+    else if ParamIsOption(i, SkipLastProjectOpt) then
+      SkipAutoLoadingLastProject := true
+    else if ParamIsOption(i, StartedByStartLazarusOpt) then
+      StartedByStartLazarus := true
+    else if ParamIsOption(i, EnableRemoteControlOpt) then
+      EnableRemoteControl := true;
+  end;
+end;
+
+function SetupMainIDEInstance: boolean;
+
+  procedure WritePIDFile(const Filename: string; aPID: int64);
+  var
+    Dir: String;
+    sl: TStringList;
+  begin
+    debugln(['WritePIDFile File="',Filename,'" PID=',aPID]);
+    sl:=TStringList.Create;
+    try
+      sl.Add(IntToStr(aPID));
+      try
+        Dir:=ChompPathDelim(ExtractFilePath(Filename));
+        if not DirectoryExistsUTF8(Dir) then begin
+          if not CreateDirUTF8(Dir) then
+            debugln(['WritePIDFile failed to create directory ',Dir]);
+          exit;
+        end;
+        sl.SaveToFile(UTF8ToSys(Filename));
+      except
+        on E: Exception do begin
+          debugln(['WritePIDFile "',Filename,'" failed:']);
+          debugln(E.Message);
+        end;
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+
+  function ReadPIDFile(const Filename: string; out ConfigPID: int64): boolean;
+  var
+    sl: TStringList;
+  begin
+    Result:=false;
+    ConfigPID:=-1;
+    debugln(['ReadPIDFile ',Filename]);
+    if not FileExistsUTF8(Filename) then exit;
+    sl:=TStringList.Create;
+    try
+      try
+        sl.LoadFromFile(UTF8ToSys(Filename));
+        ConfigPID:=StrToInt64(sl[0]);
+        Result:=true;
+        debugln(['ReadPIDFile ConfigPID=',ConfigPID]);
+      except
+        on E: Exception do begin
+          debugln(['ReadPIDFile "',Filename,'" failed:']);
+          debugln(E.Message);
+        end;
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+
+  procedure SendCmdlineActionsToMainInstance;
+  var
+    sl: TStringList;
+    Param: String;
+    Filename: String;
+    i: Integer;
+  begin
+    sl:=TStringList.Create;
+    try
+      sl.Add('Show');
+      for i:=1 to Paramcount do begin
+        Param:=ParamStrUTF8(i);
+        if (Param='') or (Param[1]='-') then continue;
+        sl.Add('Open '+Param);
+      end;
+      Filename:=GetRemoteControlFilename;
+      try
+        debugln(['SendCmdlineActionsToMainInstance Commands="',sl.Text,'"']);
+        sl.SaveToFile(UTF8ToSys(Filename));
+      except
+        on E: Exception do begin
+          debugln(['SendCmdlineActionsToMainInstance failed to write ',Filename]);
+          debugln(E.Message);
+        end;
+      end;
+    finally
+      sl.Free;
+    end;
+  end;
+
+var
+  PIDFilename: String;
+  MyPID, ConfigPID: int64;
+  PIDRead: Boolean;
+begin
+  Result:=true;
+  if not EnableRemoteControl then exit;
+
+  // check if another IDE (of this user and same configuration) is already
+  // running. Request it to handle the show and handle the command line
+  // parameters (e.g. open files). And if successful return false.
+  // Otherwise become the main instance.
+  PIDFilename:=GetPidFile;
+  MyPID:=GetProcessID;
+  ConfigPID:=-1;
+  PIDRead:=ReadPIDFile(PIDFilename,ConfigPID);
+  if PIDRead and (ConfigPID<>MyPID) then begin
+    // there is a pid file from another instance
+    if not IsLazarusPIDRunning(ConfigPID) then begin
+      // clean up
+      DeleteFileUTF8(PIDFilename);
+      PIDRead:=false;
+    end;
+  end;
+  if not FileExistsUTF8(PIDFilename) then begin
+    // try to become the main instance
+    WritePIDFile(PIDFilename,MyPID);
+    PIDRead:=false;
+  end;
+  if not PIDRead then
+    PIDRead:=ReadPIDFile(PIDFilename,ConfigPID);
+  if ConfigPID=MyPID then begin
+    // this is the main instance
+    exit;
+  end;
+  // this is a second instance
+  Result:=false;
+
+  SendCmdlineActionsToMainInstance;
+end;
+
+function GetRemoteControlFilename: string;
+begin
+  Result:=AppendPathDelim(GetPrimaryConfigPath)+'ideremotecontrol.txt';
+end;
+
+procedure CleanUpPIDFile;
+begin
+  if EnableRemoteControl then
+    DeleteFileUTF8(GetRemoteControlFilename);
+end;
+
+end.
+

ide/lazarus.lpi

@@ -60,7 +60,7 @@
         <PackageName Value="SynEdit"/>
       </Item6>
     </RequiredPackages>
-    <Units Count="84">
+    <Units Count="85">
       <Unit0>
         <Filename Value="lazarus.pp"/>
         <IsPartOfProject Value="True"/>
@@ -633,6 +633,11 @@
         <HasResources Value="True"/>
         <UnitName Value="BuildProjectDlg"/>
       </Unit83>
+      <Unit84>
+        <Filename Value="ideguicmdline.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="IDEGuiCmdLine"/>
+      </Unit84>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

ide/lazarus.pp

@@ -50,7 +50,7 @@ uses
   SysUtils,
   Interfaces,
   Forms, LCLProc,
-  LazConf, IDECmdLine,
+  LazConf, IDEGuiCmdLine,
   Splash,
   Main,
   AboutFrm,

ide/lazarusmanager.pas

@@ -82,7 +82,7 @@ uses
 {$ENDIF}
   Classes, SysUtils, Process, UTF8Process,
   LCLProc, FileProcs, FileUtil, Forms, Controls, Dialogs,
-  LazConf, Splash;
+  IDECmdLine, LazConf, Splash;
   
 type
   TLazarusProcess = class
@@ -123,7 +123,6 @@ type
   end;
 
 implementation
-uses IDECmdLine;
 
 destructor TLazarusManager.Destroy;
 begin

ide/lazbuild.lpi

@@ -41,7 +41,7 @@
         <PackageName Value="IDEIntf"/>
       </Item4>
     </RequiredPackages>
-    <Units Count="3">
+    <Units Count="4">
       <Unit0>
         <Filename Value="lazbuild.lpr"/>
         <IsPartOfProject Value="True"/>
@@ -57,6 +57,11 @@
         <IsPartOfProject Value="True"/>
         <UnitName Value="BaseBuildManager"/>
       </Unit2>
+      <Unit3>
+        <Filename Value="idecmdline.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="IDECmdLine"/>
+      </Unit3>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

ide/main.pp

@@ -146,7 +146,7 @@ uses
   BuildFileDlg, ProcedureList, ExtractProcDlg, FindRenameIdentifier,
   AbstractsMethodsDlg, EmptyMethodsDlg, UnusedUnitsDlg, UseProjUnitDlg, FindOverloadsDlg,
   CleanDirDlg, CodeContextForm, AboutFrm, CompatibilityRestrictions,
-  RestrictionBrowser, ProjectWizardDlg, IDECmdLine, CodeExplOpts,
+  RestrictionBrowser, ProjectWizardDlg, IDECmdLine, IDEGuiCmdLine, CodeExplOpts,
   // main ide
   MainBar, MainIntf, MainBase;
 
@@ -1241,7 +1241,7 @@ begin
     exit;
   end;
 
-  SetParamOptions(SkipAutoLoadingLastProject, StartedByStartLazarus,
+  ParseGuiCmdLineParams(SkipAutoLoadingLastProject, StartedByStartLazarus,
     EnableRemoteControl, ShowSplashScreen, ShowSetupDialog);
 
   DebugLn('TMainIDE.ParseCmdLineOptions:');