diff --git a/components/rx/trunk/Demos/RxIniPropStorageDemo/project1.lps b/components/rx/trunk/Demos/RxIniPropStorageDemo/project1.lps index 18d6f4fe0..5276e0b52 100644 --- a/components/rx/trunk/Demos/RxIniPropStorageDemo/project1.lps +++ b/components/rx/trunk/Demos/RxIniPropStorageDemo/project1.lps @@ -31,8 +31,8 @@ - - + + @@ -58,123 +58,123 @@ - + - + - + - + - + - + - - + + - + - + - - + + - + - + - + - + - + - + - + - + - - - - - - + + + + + + - + - - + + - - - - - - + + + + + + - + - + - + - - + + diff --git a/components/rx/trunk/rxtools/rxfileutils.pas b/components/rx/trunk/rxtools/rxfileutils.pas index 5e7508afb..dc538d550 100644 --- a/components/rx/trunk/rxtools/rxfileutils.pas +++ b/components/rx/trunk/rxtools/rxfileutils.pas @@ -56,14 +56,15 @@ const implementation uses + strutils {$IFDEF WINDOWS} - Windows -{$ELSE} - BaseUnix, users, strutils -{$ENDIF}; -(* - FileUtil, LazFileUtils, LazUTF8; -*) + , Windows +{$ENDIF} +{$IFDEF LINUX} + , BaseUnix, users +{$ENDIF} + ; + {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)} function LStrError(const Ernum: Longint; const UseUTF8: Boolean = False): string; const @@ -150,36 +151,40 @@ end; function GetFileOwnerUser(const SearchDomain, FileName: String): String; var S:string; - {$IFNDEF WINDOWS} + {$IFDEF LINUX} FStat: stat; {$ENDIF} begin + Result:=''; {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)} (* GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), Result, S); Result:=UTF8Encode(Result);*) GetFileNameOwner(SearchDomain, FileName, Result, S); - {$ELSE} + {$ENDIF} + {$IFDEF LINUX} if FpStat(FileName, FStat) = 0 then - Result:=users.GetUserName(FStat.uid) - else - Result:=''; + Result:=users.GetUserName(FStat.uid); {$ENDIF} end; procedure GetFileOwnerData(const SearchDomain, FileName: String; out UserName, DomainName: string); {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)} -{$ELSE} +{$ENDIF} +{$IFDEF LINUX} var SR: stat; - {$ENDIF} +{$ENDIF} begin + UserName:=''; + DomainName:=''; {$IF DEFINED(WINDOWS) AND NOT DEFINED(WINCE)} { GetFileNameOwner(UTF8ToSys(SearchDomain), UTF8ToSys(FileName), UserName, DomainName); UserName:=UTF8Encode(UserName); DomainName:=UTF8Encode(DomainName);} GetFileNameOwner(SearchDomain, FileName, UserName, DomainName); - {$ELSE} + {$ENDIF} + {$IFDEF LINUX} FpStat(FileName, SR); UserName:=users.GetUserName(SR.uid); if Pos('\', UserName) > 0 then