GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Added: build flags for App.Version (Debug, Prerelease, Special, Private)

Browse Source
This commit is contained in:
Mark van Renswoude 2004-06-23 17:04:06 +00:00
parent c4e557268f
commit a97a491ca2
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
X2UtApp.pas
View File

@ -109,6 +109,10 @@ type
FMinor: Integer;
FRelease: Integer;
FBuild: Integer;
FDebug: Boolean;
FPrerelease: Boolean;
FSpecial: Boolean;
FPrivate: Boolean;
FStrings: TX2AppVersionStrings;
public
constructor Create();
@ -116,19 +120,35 @@ type
//:$ Contains the application's Major version
//:! Defaults to 0 if no version information is available
property Major: Integer read FMajor write FMajor;
property Major: Integer read FMajor write FMajor;
//:$ Contains the application's Minor version
//:! Defaults to 0 if no version information is available
property Minor: Integer read FMinor write FMinor;
property Minor: Integer read FMinor write FMinor;
//:$ Contains the application's Release number
//:! Defaults to 0 if no version information is available
property Release: Integer read FRelease write FRelease;
property Release: Integer read FRelease write FRelease;
//:$ Contains the application's Build number
//:! Defaults to 0 if no version information is available
property Build: Integer read FBuild write FBuild;
property Build: Integer read FBuild write FBuild;
//:$ Contains the value of the Debug Build flag
//:! Defaults to False if no version information is available
property Debug: Boolean read FDebug write FDebug;
//:$ Contains the value of the Prerelease Build flag
//:! Defaults to False if no version information is available
property Prerelease: Boolean read FPrerelease write FPrerelease;
//:$ Contains the value of the Special Build flag
//:! Defaults to False if no version information is available
property Special: Boolean read FSpecial write FSpecial;
//:$ Contains the value of the Private Build flag
//:! Defaults to False if no version information is available
property Private: Boolean read FPrivate write FPrivate;
//:$ Contains extended version information
property Strings: TX2AppVersionStrings read FStrings;
@ -351,10 +371,14 @@ begin
// Get version numbers
with FVersion do begin
if VerQueryValue(pBuffer, '\', Pointer(pInfo), dInfo) then begin
Major := HiWord(pInfo^.dwFileVersionMS);
Minor := LoWord(pInfo^.dwFileVersionMS);
Release := HiWord(pInfo^.dwFileVersionLS);
Build := LoWord(pInfo^.dwFileVersionLS);
Major := HiWord(pInfo^.dwFileVersionMS);
Minor := LoWord(pInfo^.dwFileVersionMS);
Release := HiWord(pInfo^.dwFileVersionLS);
Build := LoWord(pInfo^.dwFileVersionLS);
Debug := ((pInfo^.dwFileFlags and VS_FF_DEBUG) = VS_FF_DEBUG);
Prerelease := ((pInfo^.dwFileFlags and VS_FF_PRERELEASE) = VS_FF_PRERELEASE);
Special := ((pInfo^.dwFileFlags and VS_FF_SPECIALBUILD) = VS_FF_SPECIALBUILD);
Private := ((pInfo^.dwFileFlags and VS_FF_PRIVATEBUILD) = VS_FF_PRIVATEBUILD);
end;
// Get additional version information using RTTI