mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-28 10:02:14 +00:00
1 line
No EOL
2 KiB
ObjectPascal
1 line
No EOL
2 KiB
ObjectPascal
unit uGlobsPaths;
|
|
|
|
interface
|
|
|
|
var
|
|
gpExePath : String = ''; // executable directory
|
|
gpCfgDir : String = ''; // directory from which configuration files are used
|
|
gpGlobalCfgDir : String = ''; // config dir global for all user
|
|
gpCmdLineCfgDir : String = ''; // config dir passed on the command line
|
|
gpLngDir : String = ''; // path to language *.po files
|
|
gpPixmapPath : String = ''; // path to pixmaps
|
|
gpCacheDir : String = ''; // cache directory
|
|
|
|
//Global Configuration Filename
|
|
const
|
|
gcfExtensionAssociation : string = 'extassoc.xml';
|
|
|
|
procedure LoadPaths;
|
|
procedure UpdateEnvironmentVariable;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, FileUtil, uDebug, uOSUtils, DCOSUtils, DCStrUtils;
|
|
|
|
function GetAppName : String;
|
|
begin
|
|
Result := 'doublecmd';
|
|
end;
|
|
|
|
procedure UpdateEnvironmentVariable;
|
|
begin
|
|
mbSetEnvironmentVariable('COMMANDER_INI', gpCfgDir + 'doublecmd.xml');
|
|
end;
|
|
|
|
procedure LoadPaths;
|
|
begin
|
|
OnGetApplicationName := @GetAppName;
|
|
gpExePath := ExtractFilePath(TryReadAllLinks(ParamStrU(0)));
|
|
DCDebug('Executable directory: ', gpExePath);
|
|
|
|
gpGlobalCfgDir := gpExePath;
|
|
if gpCmdLineCfgDir <> EmptyStr then
|
|
begin
|
|
if GetPathType(gpCmdLineCfgDir) <> ptAbsolute then
|
|
gpCmdLineCfgDir := IncludeTrailingPathDelimiter(mbGetCurrentDir) + gpCmdLineCfgDir;
|
|
gpCmdLineCfgDir := ExpandAbsolutePath(gpCmdLineCfgDir);
|
|
gpCfgDir := gpCmdLineCfgDir;
|
|
end
|
|
else
|
|
begin
|
|
gpCfgDir := GetAppConfigDir;
|
|
if gpCfgDir = EmptyStr then
|
|
begin
|
|
DCDebug('Warning: Cannot get user config directory.');
|
|
gpCfgDir := gpGlobalCfgDir;
|
|
end;
|
|
end;
|
|
|
|
gpCfgDir := IncludeTrailingPathDelimiter(gpCfgDir);
|
|
gpLngDir := gpExePath + 'language' + DirectorySeparator;
|
|
gpPixmapPath := gpExePath + 'pixmaps' + DirectorySeparator;
|
|
gpCacheDir := GetAppCacheDir;
|
|
|
|
// set up environment variables
|
|
UpdateEnvironmentVariable;
|
|
mbSetEnvironmentVariable('COMMANDER_DRIVE', ExtractRootDir(gpExePath));
|
|
mbSetEnvironmentVariable('COMMANDER_PATH', ExcludeTrailingBackslash(gpExePath));
|
|
end;
|
|
|
|
end.
|