mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
34 lines
643 B
ObjectPascal
34 lines
643 B
ObjectPascal
unit uCmdLineParams;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
procedure ProcessCommandLineParams;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uDCUtils, uGlobsPaths, FileUtil, uOSUtils;
|
|
|
|
procedure ProcessCommandLineParams;
|
|
var
|
|
i: Integer;
|
|
param: UTF8String;
|
|
begin
|
|
// Param 0 is executable path.
|
|
for i := 1 to Paramcount do
|
|
begin
|
|
param := ParamStrUTF8(i);
|
|
if StrBegins(param, '--config-dir=') then
|
|
gpCmdLineCfgDir := TrimQuotes(Copy(param, 1 + Length('--config-dir='), MaxInt));
|
|
|
|
{$IF DEFINED(NIGHTLY_BUILD)}
|
|
if StrBegins(param, '--no-console') then
|
|
HideConsoleWindow;
|
|
{$ENDIF}
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|