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: GetHomeDir() on macOS

Browse source
This commit is contained in:
rich2014 2025-08-10 12:31:23 +08:00
commit dbbe18c493
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/platform/usysfolders.pas
View file

@ -22,6 +22,9 @@
unit uSysFolders;
{$mode ObjFPC}{$H+}
{$IFDEF DARWIN}
{$modeswitch objectivec2}
{$ENDIF}
interface
@ -69,20 +72,20 @@ uses
;
function GetHomeDir : String;
{$IFDEF MSWINDOWS}
begin
{$IF DEFINED(MSWINDOWS)}
Result:= ExcludeBackPathDelimiter(mbGetEnvironmentVariable('USERPROFILE'));
end;
{$ELSEIF DEFINED(DARWIN)}
Result:= NSHomeDirectory.UTF8String;
{$ELSE}
begin
{$IF DEFINED(HAIKU)}
if mbFindDirectory(B_USER_DIRECTORY, -1, True, Result) then
Result:= ExcludeBackPathDelimiter(Result)
else
{$ENDIF}
Result:= ExcludeBackPathDelimiter(SysToUTF8(GetEnvironmentVariable('HOME')));
end;
{$ENDIF}
end;
function GetAppConfigDir: String;
{$IF DEFINED(MSWINDOWS)}