{for Word or Excel documents(compound files)the summary information is a part of
document itself.
for other types of files the way of storing additional information are
different.This feature are only available on volumes formatted with NTFS.The NTFS
implementation
storesproperty sets in alternate streams of an NTFS file.The alternate streams
must be copied when the main file is copied.However, not all file systems support
such streams.For example, if an NTFS file with property sets is copied to a FAT
volume, only the data in the file is copied;
the property set is lost.
First thing you probably want do
is to detect whether the current volume is NTFS: }
// IsNTFS() - Verifies whether the file's volume is NTFS
function IsNTFS(AFileName: string): boolean;
var
fso, drv: OleVariant;
begin
IsNTFS := False;
fso := CreateOleObject('Scripting.FileSystemObject');
drv := fso.GetDrive(fso.GetDriveName(AFileName));
if drv.FileSystem = 'NTFS' then
IsNTFS := True;
end;
{
But how to read these properties? is it really nessesary to work with a
streams? No, NTFS file system 5.0 provides an implementation of
IPropertySetStorage interface for files on an NTFS volume when the files
themselves are not compound files. to get a pointer to the NTFS implementation
of IPropertySetStorage, we have to call the
StgCreateStorageExfunction:
}
function StgOpenStorageEx(
const pwcsName: POleStr; //Pointer to the path of the
//file containing storage object
grfMode: LongInt; //Specifies the access mode for the object
stgfmt: DWORD; //Specifies the storage file format
grfAttrs: DWORD; //Reserved; must be zero
pStgOptions: Pointer; //Address of STGOPTIONS pointer
reserved2: Pointer; //Reserved; must be zero
riid: PGUID; //Specifies the GUID of the interface pointer
out stgOpen: //Address of an interface pointer
IStorage): HResult; stdcall; external 'ole32.dll';
{
All Microsoft Windows 2000 applications should use this
newfunction, StgOpenStorageEx, instead of StgOpenStorage, to take advantage of
the enhanced Windows 2000 Structured Storage features.The implementation of
IPropertySetStorage on NTFS file system is similar with compound file
implementation and available only on Windows 2000. Windows 95 and Windows NT
4.0
and earlier versions cannot access this interface.However, you cannot obtain the
NTFS implementation of IPropertySetStorage for a compound file.When opening a
compound file with StgOpenStorage, specifying the STGFMT_FILE enumeration value
results in an error.The
nextfunction dumps all properties of the specific file.By changing the
STGFMT_FILE flag in the StgOpenStorageEx call to STGMT_ANY you can open a
Structured
Storageproperty set or an NTFS file system property set.
}
function GetFileSummaryInfo(const FileName: WideString): string;
const
FmtID_SummaryInformation: TGUID =
'{F29F85E0-4FF9-1068-AB91-08002B27B3D9}';
FMTID_DocSummaryInformation: TGUID =
'{D5CDD502-2E9C-101B-9397-08002B2CF9AE}';
FMTID_UserDefinedProperties: TGUID =
'{D5CDD505-2E9C-101B-9397-08002B2CF9AE}';
IID_IPropertySetStorage: TGUID =
'{0000013A-0000-0000-C000-000000000046}';
const
STGFMT_FILE = 3;
//Indicates that the file must not be a compound file.
//This element is only valid when using the StgCreateStorageEx
//or StgOpenStorageEx functions to access the NTFS file system
//implementation of the IPropertySetStorage interface.
//Therefore, these functions return an error if the riid
//parameter does not specify the IPropertySetStorage interface,
//or if the specified file is not located on an NTFS file system volume.
STGFMT_ANY = 4;
//Indicates that the system will determine the file type and
//use the appropriate structured storage or property set
//implementation.
//This value cannot be used with the StgCreateStorageEx function.
// Summary Information
PID_TITLE = 2;
PID_SUBJECT = 3;
PID_AUTHOR = 4;
PID_KEYWORDS = 5;
PID_COMMENTS = 6;
PID_TEMPLATE = 7;
PID_LASTAUTHOR = 8;
PID_REVNUMBER = 9;
PID_EDITTIME = 10;
PID_LASTPRINTED = 11;
PID_CREATE_DTM = 12;
PID_LASTSAVE_DTM = 13;
PID_PAGECOUNT = 14;
PID_WORDCOUNT = 15;
PID_CHARCOUNT = 16;
PID_THUMBNAIL = 17;
PID_APPNAME = 18;
PID_SECURITY = 19;
// Document Summary Information
PID_CATEGORY = 2;
PID_PRESFORMAT = 3;
PID_BYTECOUNT = 4;
PID_LINECOUNT = 5;
PID_PARCOUNT = 6;
PID_SLIDECOUNT = 7;
PID_NOTECOUNT = 8;
PID_HIDDENCOUNT = 9;
PID_MMCLIPCOUNT = 10;
PID_SCALE = 11;
PID_HEADINGPAIR = 12;
PID_DOCPARTS = 13;
PID_MANAGER = 14;
PID_COMPANY = 15;
PID_LINKSDIRTY = 16;
PID_CHARCOUNT2 = 17;
var
I: Integer;
PropSetStg: IPropertySetStorage;
PropSpec: array of TPropSpec;
PropStg: IPropertyStorage;
PropVariant: array of TPropVariant;
Rslt: HResult;
S: string;
Stg: IStorage;
PropEnum: IEnumSTATPROPSTG;
HR: HResult;
PropStat: STATPROPSTG;
k: integer;
function PropertyPIDToCaption(const ePID: Cardinal): string;
begin
case ePID of
PID_TITLE:
Result := 'Title';
PID_SUBJECT:
Result := 'Subject';
PID_AUTHOR:
Result := 'Author';
PID_KEYWORDS:
Result := 'Keywords';
PID_COMMENTS:
Result := 'Comments';
PID_TEMPLATE:
Result := 'Template';
PID_LASTAUTHOR:
Result := 'Last Saved By';
PID_REVNUMBER:
Result := 'Revision Number';
PID_EDITTIME:
Result := 'Total Editing Time';
PID_LASTPRINTED:
Result := 'Last Printed';
PID_CREATE_DTM:
Result := 'Create Time/Date';
PID_LASTSAVE_DTM:
Result := 'Last Saved Time/Date';
PID_PAGECOUNT:
Result := 'Number of Pages';
PID_WORDCOUNT:
Result := 'Number of Words';
PID_CHARCOUNT:
Result := 'Number of Characters';
PID_THUMBNAIL:
Result := 'Thumbnail';
PID_APPNAME:
Result := 'Creating Application';
PID_SECURITY:
Result := 'Security';
else
Result := '$' + IntToHex(ePID, 8);
end
end;
begin
Result := '';
try
OleCheck(StgOpenStorageEx(PWideChar(FileName),
STGM_READ or STGM_SHARE_DENY_WRITE,
STGFMT_FILE,
0, nil, nil, @IID_IPropertySetStorage, stg));
PropSetStg := Stg as IPropertySetStorage;
OleCheck(PropSetStg.Open(FmtID_SummaryInformation,
STGM_READ or STGM_SHARE_EXCLUSIVE, PropStg));
OleCheck(PropStg.Enum(PropEnum));
I := 0;
hr := PropEnum.Next(1, PropStat, nil);
while hr = S_OK do
begin
inc(I);
SetLength(PropSpec, I);
PropSpec[i - 1].ulKind := PRSPEC_PROPID;
PropSpec[i - 1].propid := PropStat.propid;
hr := PropEnum.Next(1, PropStat, nil);
end;
SetLength(PropVariant, i);
Rslt := PropStg.ReadMultiple(i, @PropSpec[0], @PropVariant[0]);
if Rslt = S_FALSE then
Exit;
for k := 0 to i - 1 do
begin
S := '';
if PropVariant[k].vt = VT_LPSTR then
if Assigned(PropVariant[k].pszVal) then
S := PropVariant[k].pszVal;
S := Format(PropertyPIDToCaption(PropSpec[k].Propid) + ' %s',
[s]);
if S <> '' then
Result := Result + S + #13;
end;
finally
end;
end;