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

UPD: Initialize OnGetApplicationName early

Browse source 
(cherry picked from commit 7a4ac40739)
This commit is contained in:
Alexander Koblov 2025-01-12 13:54:09 +03:00
commit 3a33650a89
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/uGlobsPaths.pas
View file

@ -42,8 +42,6 @@ end;
procedure LoadPaths;
begin
OnGetApplicationName := @GetAppName;
if gpCmdLineCfgDir <> EmptyStr then
begin
if GetPathType(gpCmdLineCfgDir) <> ptAbsolute then
@ -86,6 +84,7 @@ end;
procedure Initialize;
begin
gpExeFile := ParamStr(0);
OnGetApplicationName := @GetAppName;
gpExeFile := TryReadAllLinks(gpExeFile);
gpExePath := ExtractFilePath(gpExeFile);
gpGlobalCfgDir := gpExePath + 'settings' + DirectorySeparator;