Class TVersionNumberInformation (unit VersInfo)

Inherits from

TObject

Constructors


constructor Create(MSVer, LSVer: DWORD);

var BigNum: comp; begin if FData = nil then Result := 0 else begin BigNum := (FData^.


Functions

function GetVersionNumber(Index: integer): word;


function GetVersionNumberString: string;


Properties

property AsString : string


property Build : word


property Major : word


property Minor : word


property Release : word


property Valid : boolean


Events

Variables

FLeastSignificant : DWORD;


FMostSignificant : DWORD;


FValid : boolean;



Constructors


constructor Create(MSVer, LSVer: DWORD);

var BigNum: comp; begin if FData = nil then Result := 0 else begin BigNum := (FData^.dwFileDateMS * MaxLongInt) + FData^.dwFileDateLS; BigNum := BigNum / 10000000; { LS and MS is the number of 100 nanosecond intervals since 1/1/1601 } { 10,000,000s of a second } Result := EncodeDate(1601, 1, 1); Result := BigNum..... end; *) {$ENDIF


Functions


function GetVersionNumber(Index: integer): word;


function GetVersionNumberString: string;


Properties


property AsString : string


property Build : word


property Major : word


property Minor : word


property Release : word


property Valid : boolean


Events


Variables


FLeastSignificant : DWORD;


FMostSignificant : DWORD;


FValid : boolean;