Starten wahlweise mit und ohne GUI

[Schokohase]

Den Code zum Auswerten/Abarbeiten der Parameter würde ich auslagern in eine andere Unit

Delphi-Quellcode:

unit CmdLineProcessor;

interface

function ProcessCmdLine() : Boolean;

implementation

function ProcessCmdLine() : Boolean;
begin
  // Hier eigentlich etwas sinnvolles mit den Parametern anfangen
  Result := ParamCount > 0;
end;

In der DPR genügt dann eine Zeile Code:

Delphi-Quellcode:

begin
  if ProcessCmdLine() then Exit;

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  ...
end.