Unit SummInfo |
Classes |
Functions |
Register -
Types |
PFileTimeProperty
PFormatIDOffset
PIntegerProperty
PPropertyIDOffset
PPropertyIDOffsetList
PPropertySectionHeader
PPropertySetHeader
PSerializedPropertyValue
PSerializedPropertyValueList
PStringProperty
TFileTimeProperty
TFMTID
TFormatIDOffset
TIntegerProperty
TPropertyIDOffset
TPropertyIDOffsetList
TPropertySectionHeader
TPropertySetHeader
TSerializedPropertyValue
TSerializedPropertyValueList
TStringProperty
Constants |
PID_APPNAME
PID_AUTHOR
PID_CHARCOUNT
PID_COMMENTS
PID_CRAETE_DTM
PID_EDITTIME
PID_KEYWORDS
PID_LASTAUTHOR
PID_LASTPRINTED
PID_LASTSAVE_DTM
PID_PAGECOUNT
PID_REVNUMBER
PID_SECURITY
PID_SUBJECT
PID_TEMPLATE
PID_THUMBAIL
PID_TITLE
PID_WORDCOUNT
Variables |
Functions |
Types |
PFileTimeProperty = ^TFileTimeProperty
PFormatIDOffset = ^TFormatIDOffset
PIntegerProperty = ^TIntegerProperty
PPropertyIDOffset = ^TPropertyIDOffsetCount of properties in section
PPropertyIDOffsetList = ^TPropertyIDOffsetListOffset from the start of the section to that property type/value pair
PPropertySectionHeader = ^TPropertySectionHeaderOffset from start of whole property set stream to the section
PPropertySetHeader = ^TPropertySetHeader
PSerializedPropertyValue = ^TSerializedPropertyValue
PSerializedPropertyValueList = ^TSerializedPropertyValueListThe actual property value
PStringProperty = ^TStringProperty
TFileTimeProperty = record
propid : DWORD;
Value : TFileTime;
end;
TFMTID = TCLSIDShould be 1
TFormatIDOffset = record
fmtid : TFMTID;
dwOffset : DWORD;
end;
TIntegerProperty = record
propid : DWORD;
Value : Integer;
end;
TPropertyIDOffset = record
propid : DWORD;
dwOffset : DWORD;
end;
TPropertyIDOffsetList = array[0..255] of TPropertyIDOffset;
TPropertySectionHeader = record
cbSection : DWORD;
cProperties : DWORD;
end;
TPropertySetHeader = record
wByteOrder : Word;
wFormat : Word ;
dwOSVer : DWORD;
clsid : TCLSID;
dwReserved : DWORD;
end;
TSerializedPropertyValue = record
dwType : DWORD;
prgb : PBYTE;
end;
TSerializedPropertyValueList = array[0..255] of TSerializedPropertyValue;
TStringProperty = record
propid : DWORD;
Value : AnsiString;
end;
Constants |
Variables |