UPD: Read all symlinks when get executable directory

This commit is contained in:
Alexander Koblov 2009-06-20 21:24:46 +00:00
commit e9fc503f4f

View file

@ -25,7 +25,7 @@ var
Ini : TIniFileEx;
begin
OnGetApplicationName := @GetAppName;
gpExePath := ExtractFilePath(SysToUTF8(ParamStr(0)));
gpExePath := ExtractFilePath(TryReadAllLinks(ParamStrUTF8(0)));
DebugLn('Executable directory: ', gpExePath);
gpCfgDir := gpExePath;