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

Revert "UPD: Initialize OnGetApplicationName early"

Browse source 
This reverts commit 3a33650a89.
This commit is contained in:
Alexander Koblov 2025-01-18 23:01:52 +03:00
commit 6baafba866
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/uGlobsPaths.pas
View file

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