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

RxFPC:new function - RxGetAppConfigDir

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3977 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-03-02 08:49:50 +00:00
parent 0121737d96
commit fbe591128c
1 changed files with 31 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
components/rx/trunk/rxapputils.pas
View File

@ -74,8 +74,36 @@ function IniReadInteger(IniFile: TObject; const Section, Ident:string;
const Value: integer):integer;
function GetDefaultIniRegKey: string;
Function RxGetAppConfigDir(Global : Boolean) : String;
implementation
uses Registry, Forms, FileUtil, LazUTF8;
uses
{$IFDEF WINDOWS}
windirs,
{$ENDIF}
Registry, Forms, FileUtil, LazUTF8;
{$IFDEF WINDOWS}
function RxGetAppConfigDir(Global: Boolean): String;
begin
If Global then
Result:=GetWindowsSpecialDir(CSIDL_COMMON_APPDATA)
else
Result:=GetWindowsSpecialDir(CSIDL_LOCAL_APPDATA);
If (Result<>'') then
begin
if VendorName<>'' then
Result:=IncludeTrailingPathDelimiter(Result+ UTF8ToSys(VendorName));
Result:=IncludeTrailingPathDelimiter(Result+UTF8ToSys(ApplicationName));
end
else
Result:=ExcludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))); //IncludeTrailingPathDelimiter(DGetAppConfigDir(Global));
end;
{$ELSE}
function RxGetAppConfigDir(Global: Boolean): String;
begin
Result:=GetAppConfigDir(Global);
end;
{$ENDIF}
function GetDefaultSection(Component: TComponent): string;
var
@ -113,7 +141,8 @@ begin
else
begin
Result := ExtractFileName(ChangeFileExt(Application.ExeName, '.ini'));
S:=SysToUTF8(GetAppConfigDir(false));
S:=RxGetAppConfigDir(false);
S:=SysToUTF8(S);
ForceDirectoriesUTF8(S);
Result:=S+Result;
end;