Class TVersionInfo (unit Project) |
Inherits from
TObject
constructor Create(AnOwner:TObject);
- Init and exit procedures
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
property Charset : TCharSet
property FileFlags : TFileFlags
property FileType : TFileType
property Language : TLanguage
FCharSet : TCharset;
FFileFlag : TFileFlags;
FFileType : TFileType;
property data buffers
FLanguage : TLanguage;
FStringData : TStrings;
internal data buffers
constructor Create(AnOwner:TObject);
Init and exit procedures
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
property Charset : TCharSet
property FileFlags : TFileFlags
property FileType : TFileType
property Language : TLanguage
FCharSet : TCharset;
FFileFlag : TFileFlags;
FFileType : TFileType;
property data buffers
FLanguage : TLanguage;
FStringData : TStrings;
internal data buffers