pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:implement rxFileUtils.GetFileOwnerUser on linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5821 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-03-27 10:31:28 +00:00
parent 979cd36e64
commit 4ec37f46be
4 changed files with 122 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/rx/trunk/rxtools/rxfileutils.pas
View File

@ -150,13 +150,17 @@ end;
function GetFileOwnerUser(const SearchDomain, FileName: String): String;
var
S:string;
FStat: stat;
begin
{$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)}
(* GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), Result, S);
Result:=UTF8Encode(Result);*)
GetFileNameOwner(SearchDomain, FileName, Result, S);
{$ELSE}
Result:='';
if FpStat(FileName, FStat) = 0 then
Result:=users.GetUserName(FStat.uid)
else
Result:='';
{$ENDIF}
end;