Unit SummInfo

Classes

TSummInfo -

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


procedure Register;


Types


PFileTimeProperty = ^TFileTimeProperty

PFormatIDOffset = ^TFormatIDOffset

PIntegerProperty = ^TIntegerProperty

PPropertyIDOffset = ^TPropertyIDOffset
Count of properties in section
PPropertyIDOffsetList = ^TPropertyIDOffsetList
Offset from the start of the section to that property type/value pair
PPropertySectionHeader = ^TPropertySectionHeader
Offset from start of whole property set stream to the section
PPropertySetHeader = ^TPropertySetHeader

PSerializedPropertyValue = ^TSerializedPropertyValue

PSerializedPropertyValueList = ^TSerializedPropertyValueList
The actual property value
PStringProperty = ^TStringProperty

TFileTimeProperty = record
propid : DWORD;
Value : TFileTime;
end;

TFMTID = TCLSID
Should 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

PID_APPNAME = $00000012

PID_AUTHOR = $00000004

PID_CHARCOUNT = $00000010

PID_COMMENTS = $00000006

PID_CRAETE_DTM = $0000000C

PID_EDITTIME = $0000000A

PID_KEYWORDS = $00000005

PID_LASTAUTHOR = $00000008

PID_LASTPRINTED = $0000000B

PID_LASTSAVE_DTM = $0000000D

PID_PAGECOUNT = $0000000E

PID_REVNUMBER = $00000009

PID_SECURITY = $00000013

PID_SUBJECT = $00000003

PID_TEMPLATE = $00000007

PID_THUMBAIL = $00000011

PID_TITLE = $00000002

PID_WORDCOUNT = $0000000F


Variables