Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

Файлы Office.   Найти похожие ветки 

 
frost63   (2003-10-02 07:16) [0]

Как выташить инфу о создателе, заголовке и т.д. т.е. все то что возможно.


 
me   (2003-10-02 16:57) [1]

Почитать в MSDN, Summary Information Property Set
Так можно прочесть инфу об авторн документа, заданного именем FileName:

uses ActiveX, ComObj, SysUtils;

function GetSummaryInfAuthor(FileName: TFileName): string;
var
PFileName: PWideChar;
Storage: IStorage;
PropSetStg: IPropertySetStorage;
PropStg: IPropertyStorage;
ps: PROPSPEC;
pv: PROPVARIANT;
const
FMTID_SummaryInformation: TGUID = "{F29F85E0-4FF9-1068-AB91-08002B27B3D9}";
begin
PFileName := StringToOleStr(FileName);
try
OleCheck(StgOpenStorage(PFileName, nil, STGM_DIRECT or STGM_READ or STGM_SHARE_EXCLUSIVE, nil, 0, Storage));
finally
SysFreeString(PFileName);
end;
PropSetStg := Storage as IPropertySetStorage;
OleCheck(PropSetStg.Open(FMTID_SummaryInformation, STGM_DIRECT or STGM_READ or STGM_SHARE_EXCLUSIVE, PropStg));
ps.ulKind := PRSPEC_PROPID;
ps.propid := PIDSI_AUTHOR;
PropStg.ReadMultiple(1, @ps, @pv);
Result := pv.pszVal;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.028 c
1-89821
Миха
2003-11-17 09:39
2003.11.27
Маркеры в TChart


6-90036
delpher_gray
2003-09-29 12:27
2003.11.27
Приём команд/файлов


14-90064
Гость
2003-11-05 16:17
2003.11.27
Как определить по номеру, какой это процессор


1-89963
Magical
2003-11-16 19:30
2003.11.27
Как эмулировать нажатие ctrl-alt-del


14-90075
vuk
2003-11-04 17:41
2003.11.27
По аське пришло. :o)