Unit VersInfo

Standard defines for all Delphi Free Stuff components } {-----------------------------------------------------------------------------} { TVersionInfoResource v2.25 } {-----------------------------------------------------------------------------} { A component to read version info resources. It is intended for Delphi 3, } { but should work with any file that contains a properly formatted resource. } { Copyright 1998, Brad Stowers & Greg Nixon. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provied this notice is not modified in any way and there is } { no charge for it other than nomial handling fees. Contact me directly for } { modifications to this agreement. } {-----------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions } { at bstowers@pobox.com. } { The lateset version will always be available on the web at: } { http://www.pobox.com/~bstowers/delphi/ } { See VersInfo.txt for notes, known issues, and revision history. } {-----------------------------------------------------------------------------} { Date last modified: June 1, 1998 } {-----------------------------------------------------------------------------} { C++Builder 3 requires this if you use run-time packages.

Classes

TFixedFileVersionInfo - forward declaration
TVersionInfoResource -
TVersionNumberInformation -

Functions

Register -

Types

DWORD
PVSFixedFileInfo
TFixedFileInfoFlag
TFixedFileInfoFlags
TPreDef
TPreDefs
TVersionFilename
TVersionFileType
TVersionOperatingSystemFlag
TVersionOperatingSystemFlags
UINT

Constants

DEFAULT_LANG_CHAR_SET
DFS_COMPONENT_VERSION
IDX_BUILDFLAGS
IDX_COMMENTS
IDX_COMPANYNAME
IDX_FILEDESCRIPTION
IDX_FILEVERSION
IDX_INTERNALNAME
IDX_LEGALCOPYRIGHT
IDX_LEGALTRADEMARKS
IDX_ORIGINALFILENAME
IDX_PRODUCTNAME
IDX_PRODUCTVERSION
IDX_VER_BUILD
IDX_VER_MAJOR
IDX_VER_MINOR
IDX_VER_RELEASE

Variables


Functions


procedure Register;


Types


DWORD = longint

PVSFixedFileInfo = PVS_FixedFileInfo

TFixedFileInfoFlag = (ffDebug, ffInfoInferred, ffPatched, ffPreRelease,
      ffPrivateBuild, ffSpecialBuild);

TFixedFileInfoFlags = set of TFixedFileInfoFlag

TPreDef = (pdCompanyName, pdFileDescription, pdFileVersion,
    pdInternalName, pdLegalCopyright, pdLegalTrademarks,
    pdOriginalFilename, pdProductName, pdProductVersion,
    pdComments, pdBuildFlags);
set values to choose which resources are seen in the grid/listview
TPreDefs = set of TPreDef

TVersionFilename = type string

TVersionFileType = (vftUnknown, vftApplication, vftDLL, vftDriver, vftFont,
      vftVXD, vftStaticLib);

TVersionOperatingSystemFlag = (vosUnknown, vosDOS, vosOS2_16, vosOS2_32,
      vosNT, vosWindows16, vosPresentationManager16, vosPresentationManager32, vosWindows32);

TVersionOperatingSystemFlags = set of TVersionOperatingSystemFlag
This is supposed to be one of the first line, and one of the second line.
UINT = word

Constants

DEFAULT_LANG_CHAR_SET = '040904E4'

DFS_COMPONENT_VERSION = 'TVersionInfoResource v2.25'

IDX_BUILDFLAGS = ord (pdBuildFlags)

IDX_COMMENTS = ord (pdComments)

IDX_COMPANYNAME = ord (pdCompanyName)

but to index properties we need integers

IDX_FILEDESCRIPTION = ord (pdFileDescription)

IDX_FILEVERSION = ord (pdFileVersion)

IDX_INTERNALNAME = ord (pdInternalName)

IDX_LEGALCOPYRIGHT = ord (pdLegalCopyright)

IDX_LEGALTRADEMARKS = ord (pdLegalTrademarks)

IDX_ORIGINALFILENAME = ord (pdOriginalFilename)

IDX_PRODUCTNAME = ord (pdProductName)

IDX_PRODUCTVERSION = ord (pdProductVersion)

IDX_VER_BUILD = 3

IDX_VER_MAJOR = 0

IDX_VER_MINOR = 1

IDX_VER_RELEASE = 2


Variables