Class TVersionInfo (unit Project)

Inherits from

TObject

Constructors


constructor Create(AnOwner:TObject);

Init and exit procedures


Functions

procedure Clear;

Methods

procedure Free;


function GetString(SFI:TStringFIle):string;

Store StringFileInfo string data in temporary storage NOTE: At least ONE StringFileData must be included in every resourcefile

procedure SaveToFile(FileName:string);

VS_VERSION_INFO_3

procedure SetString(SFI:TStringFile;Data:string);

clear temporary storage of data

procedure BackUpFile (FileName:string);


function DecodeCharset (Charset:TCharset ):word;

return language code from user-def.

procedure DecodeFileFlags(Var Flags,Mask:DWORD);

Internal protected procedures

function DecodeLanguage (language:TLanguage):word;

if not number - delete it

function DecodeStringFile(SFI:TStringFile ):string;

return Charset code from user-def.

procedure SaveFile (FileName:string;Buffer:pointer;BufSize:Word);

remove all attribs

procedure StrToVer (Value:string;var MS,LS:DWORD);

write contents of buffer to disk

Properties

property Charset : TCharSet


property FileFlags : TFileFlags


property FileType : TFileType


property Language : TLanguage


Events

Variables

FCharSet : TCharset;


FFileFlag : TFileFlags;


FFileType : TFileType;

property data buffers

FLanguage : TLanguage;


FStringData : TStrings;

internal data buffers


Constructors


constructor Create(AnOwner:TObject);

Init and exit procedures


Functions


procedure Clear;

Methods


procedure Free;


function GetString(SFI:TStringFIle):string;

Store StringFileInfo string data in temporary storage NOTE: At least ONE StringFileData must be included in every resourcefile


procedure SaveToFile(FileName:string);

VS_VERSION_INFO_3


procedure SetString(SFI:TStringFile;Data:string);

clear temporary storage of data


procedure BackUpFile (FileName:string);


function DecodeCharset (Charset:TCharset ):word;

return language code from user-def. language type


procedure DecodeFileFlags(Var Flags,Mask:DWORD);

Internal protected procedures


function DecodeLanguage (language:TLanguage):word;

if not number - delete it


function DecodeStringFile(SFI:TStringFile ):string;

return Charset code from user-def. type


procedure SaveFile (FileName:string;Buffer:pointer;BufSize:Word);

remove all attribs


procedure StrToVer (Value:string;var MS,LS:DWORD);

write contents of buffer to disk


Properties


property Charset : TCharSet


property FileFlags : TFileFlags


property FileType : TFileType


property Language : TLanguage


Events


Variables


FCharSet : TCharset;


FFileFlag : TFileFlags;


FFileType : TFileType;

property data buffers


FLanguage : TLanguage;


FStringData : TStrings;

internal data buffers