| Class TVersionNumberInformation (unit VersInfo) |
TObject
| Constructors |
constructor Create(MSVer, LSVer: DWORD);| 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;