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 files volume is NTFS
function IsNTFSAFileName : string : boolean
var
fso drv : OleVariant
begin
IsNTFS : False
fso : CreateOleObject Scripting.FileSystemObject
drv : fso.GetDrivefso.GetDriveNameAFileName
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
..
⇒Расскажите об этом видео How to : Give me the details or file summary info, своим друзьям в социальных сетях.
Ссылка на страницу с видео:
HTML-ссылка на страницу с видео:
Код для вставки плеера:*15 Ноября 2022, 21:18 | Марго Пишет: Не особо разбираюсь в машинах , судить могу только по внешним параметрам , и это очень красивая машина хоть и ретро , было бы классно сделать фотосессию в интересном стиле с такой машиной ) ... Подробнее...
*15 Ноября 2022, 21:04 | Алиса Пишет: Красивая машина) Сейчас такую редко встретишь, особенно в больших городах.. Жаль, что их больше не выпускают, я бы купила точно. Компактная, аккуратная - чем не радость!... Подробнее...
*16 Ноября 2022, 23:34 | Ольга Пишет: Умели же делать тогда, обидно, что так и не дошло в производство. Сейчас таким конечно уже врят ли удивишь, но в то время эта машина была бы точно популярна.... Подробнее...
*15 Ноября 2022, 21:01 | Егор Пишет: Как будто перенесся в те времена, когда снимали "Кавказскую пленницу" Прямо ностальгия захватила, а перед глазами пронеслись кадры из фильма. Спасибо за такой классный ролик!... Подробнее...
*16 Ноября 2022, 14:35 | Игорь Вахрушев Пишет: Красноречивое фото. Сочетание храма, зданий разных эпох, широкого современного проспекта с новейшими на тот момент автомобилями. Здесь же испуганно замершие на пешеходном переходе приезжие. Есть в этом всём большой советский стиль.... Подробнее...
*16 Ноября 2022, 09:27 | Влад Пишет: Легендарная машина. По проходимости и выносливости ей нет равных. Кроме того тут простая сборка и легко ремонтировать с минимум электроники. Это важно когда работаешь в суровых условиях.... Подробнее...
*16 Ноября 2022, 14:14 | Михал Пишет: Жаль, что не вышло в серийное производство. Хотя может в то время люди ещё не были готовы к подобным "экземплярам" авто. Сейчас уже что-то подобное можно представить (а может уже где-то и есть), но в те времена это мне напомнило... Подробнее...
*15 Ноября 2022, 20:36 | Александр Пишет: Всегда было интересно углубится и посмотреть как работают маркетплейсы, как подбирают фото. Вот наконец попалось мне живое видео! Прикольно смотрится!... Подробнее...