SB
Size: a a a
SB
RS
function VersionInfoRec: TFileProductVersion;
VAR
Stream: TResourceStream;
vr: TVersionResource;
fi: TVersionFixedInfo;
BEGIN
Initialize(Result);
TRY
Stream:= TResourceStream.CreateFromID(HINSTANCE, 1, PChar(RT_VERSION));
TRY
vr:= TVersionResource.Create;
TRY
vr.SetCustomRawDataStream(Stream);
fi:= vr.FixedInfo;
RESULT := fi.FileVersion;
vr.SetCustomRawDataStream(nil)
FINALLY
vr.Free
END
FINALLY
Stream.Free
END
EXCEPT
END
end;
ДT
AS
ДT
SB
ДT
AS
ДT
ДT
RS
ДT
AS
ДT
AS
ДT
AS
AS
ДT
ДT