Class TVersionNumberInformation (unit VersInfo) |
Inherits from
TObject
constructor Create(MSVer, LSVer: DWORD);
-
var
BigNum: comp;
begin
if FData = nil then
Result := 0
else begin
BigNum := (FData^.
function GetVersionNumber(Index: integer): word;
function GetVersionNumberString: string;
property AsString : string
property Build : word
property Major : word
property Minor : word
property Release : word
property Valid : boolean
FLeastSignificant : DWORD;
FMostSignificant : DWORD;
FValid : boolean;
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
function GetVersionNumber(Index: integer): word;
function GetVersionNumberString: string;
property AsString : string
property Build : word
property Major : word
property Minor : word
property Release : word
property Valid : boolean
FLeastSignificant : DWORD;
FMostSignificant : DWORD;
FValid : boolean;