GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-09-19 09:46:09 +00:00
Code Issues Projects Releases Wiki Activity

Added: App.ProgramDataPath property

Browse Source
This commit is contained in:
Mark van Renswoude 2015-02-28 19:52:44 +00:00
parent d762903951
commit 29c1cab091
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
X2UtApp.pas
View File

@ -144,6 +144,7 @@ type
FPath: String;
FMainPath: String;
FUserPath: String;
FProgramDataPath: String;
function GetVersion(): TX2AppVersion;
protected
@ -183,6 +184,9 @@ type
//:$ Contains the path to the user's Application Data
property UserPath: String read FUserPath;
//:$ Contains the path to the system's Program Data
property ProgramDataPath: String read FProgramDataPath;
//:$ Contains the application's version information
property Version: TX2AppVersion read GetVersion;
end;
@ -431,6 +435,13 @@ begin
SHGetPathFromIDList(pIDL, @cPath);
FUserPath := FixPath(cPath);
FillChar(cPath, SizeOf(cPath), #0);
SHGetSpecialFolderLocation(0, CSIDL_COMMON_APPDATA, pIDL);
SHGetPathFromIDList(pIDL, @cPath);
FProgramDataPath := FixPath(cPath);
finally
ifMalloc := nil;
end;