mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: COMMANDER_EXE and COMMANDER_INI_PATH environment variables

Browse source
This commit is contained in:
Alexander Koblov 2024-01-20 14:18:32 +03:00
commit 785ccd8bf2
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/uGlobsPaths.pas
View file

@ -24,6 +24,9 @@ implementation
uses
SysUtils, LazFileUtils, uDebug, DCOSUtils, DCStrUtils, uSysFolders;
var
gpExeFile: String;
function GetAppName : String;
begin
Result := 'doublecmd';
@ -31,6 +34,7 @@ end;
procedure UpdateEnvironmentVariable;
begin
mbSetEnvironmentVariable('COMMANDER_INI_PATH', gpCfgDir);
mbSetEnvironmentVariable('COMMANDER_INI', gpCfgDir + 'doublecmd.xml');
mbSetEnvironmentVariable('DC_CONFIG_PATH', ExcludeTrailingPathDelimiter(gpCfgDir));
end;
@ -68,13 +72,16 @@ begin
// set up environment variables
UpdateEnvironmentVariable;
mbSetEnvironmentVariable('COMMANDER_EXE', gpExeFile);
mbSetEnvironmentVariable('COMMANDER_DRIVE', ExtractRootDir(gpExePath));
mbSetEnvironmentVariable('COMMANDER_PATH', ExcludeTrailingBackslash(gpExePath));
end;
procedure Initialize;
begin
gpExePath := ExtractFilePath(TryReadAllLinks(ParamStr(0)));
gpExeFile := ParamStr(0);
gpExeFile := TryReadAllLinks(gpExeFile);
gpExePath := ExtractFilePath(gpExeFile);
gpGlobalCfgDir := gpExePath + 'settings' + DirectorySeparator;
end;