GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 17:23:07 +01: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

21
X2UtApp.pas
View File

@ -144,6 +144,7 @@ type
FPath: String; FPath: String;
FMainPath: String; FMainPath: String;
FUserPath: String; FUserPath: String;
FProgramDataPath: String;
function GetVersion(): TX2AppVersion; function GetVersion(): TX2AppVersion;
protected protected
@ -165,26 +166,29 @@ type
//:! Note that for packages using X2Utils.bpl, this will point to the path //:! Note that for packages using X2Utils.bpl, this will point to the path
//:! of X2Utils.bpl, not the calling package! If you want the main //:! of X2Utils.bpl, not the calling package! If you want the main
//:! executable's path, use the MainPath property. //:! executable's path, use the MainPath property.
property FileName: String read FFileName; property FileName: String read FFileName;
//:$ Contains the path to the current module //:$ Contains the path to the current module
//:! In DLL's and BPL's, this points to the path of the current library. //:! In DLL's and BPL's, this points to the path of the current library.
//:! Note that for packages using X2Utils.bpl, this will point to the path //:! Note that for packages using X2Utils.bpl, this will point to the path
//:! of X2Utils.bpl, not the calling package! If you want the main //:! of X2Utils.bpl, not the calling package! If you want the main
//:! executable's path, use the MainPath property. //:! executable's path, use the MainPath property.
property Path: String read FPath; property Path: String read FPath;
//:$ Contains the path to the application's executable //:$ Contains the path to the application's executable
//:! This path in unaffected by the working directory which may be //:! This path in unaffected by the working directory which may be
//:! specified in the shortcut launching the application. A trailing //:! specified in the shortcut launching the application. A trailing
//:! slash is included in the path. //:! slash is included in the path.
property MainPath: String read FMainPath; property MainPath: String read FMainPath;
//:$ Contains the path to the user's Application Data //:$ Contains the path to the user's Application Data
property UserPath: String read FUserPath; 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 //:$ Contains the application's version information
property Version: TX2AppVersion read GetVersion; property Version: TX2AppVersion read GetVersion;
end; end;
//:$ Returns a singleton App object //:$ Returns a singleton App object
@ -431,6 +435,13 @@ begin
SHGetPathFromIDList(pIDL, @cPath); SHGetPathFromIDList(pIDL, @cPath);
FUserPath := FixPath(cPath); FUserPath := FixPath(cPath);
FillChar(cPath, SizeOf(cPath), #0);
SHGetSpecialFolderLocation(0, CSIDL_COMMON_APPDATA, pIDL);
SHGetPathFromIDList(pIDL, @cPath);
FProgramDataPath := FixPath(cPath);
finally finally
ifMalloc := nil; ifMalloc := nil;
end; end;