Скачать или смотреть How to : Give me the details or file summary info

Give me the details or file summary info

How to read File Summary Information for non Office files

On Windows 2000 you can right-click in Explorer to get the file properties on any file and can associate summary information to any type of files, including even text files.

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 stores property 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 StgCreateStorageEx function:

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 new function, 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 next function 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 Storage property 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 ;

..