如何读取WORD文档的属性内容？？？？？100分，不够再加！

[go_my_sky]

如何读取WORD文档的属性内容？？？？？100分，不够再加！

如摘要信息，作者，标题，备注等等？？？

大虾门请赐教了！

[go_my_sky]

Delphi 栏目都没能人了吗??

[guig]

unit wordprop;

interface

uses
sysutils, classes;

procedure ReadWordPropertyList(const aWordFileName: string; aPropList: TStrings);

implementation

uses
OleServer, Word2000, Variants;

procedure ReadWordPropertyList(const aWordFileName: string; aPropList: TStrings);
var
WordApp: TWordApplication;
WordDoc: TWordDocument;
aVar: OleVariant;
DocProp: OleVariant;
i: integer;
s1, s2: string;

begin
aPropList.Clear;
WordApp := TWordApplication.Create(nil);
try
WordApp.ConnectKind := ckNewInstance;
aVar := aWordFileName;
WordDoc := TWordDocument.Create(nil);
try
WordDoc.ConnectTo(WordApp.Documents.Open(aVar, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam));
DocProp := WordDoc.BuiltInDocumentProperties;
for i := 1 to DocProp.Count do
begin
try
s1 := DocProp.Item[i].Name;
except
s1 := '';
end;

try
s2 := DocProp.Item[i].Value;
except
s2 := '';
end;
aPropList.Add(Format('%s=%s', [s1, s2]));
end;

finally
aVar := false;
WordDoc.Close(aVar);
WordDoc.Free;
end;

finally
WordApp.Quit;
WordApp.Free;
end;

end;

end.

[guig]

?

[TechnoFantasy]

《Delphi COM深入编程》里面的第7、8章介绍了这方面的内容。

[TechnoFantasy]

范例：
http://www.delphipages.com/news/detaildocs.cfm?ID=65

[go_my_sky]

《Delphi COM深入编程》有没有这书啊??

上Google搜索,没搜索到一点.

[go_my_sky]

http://www.delphipages.com/news/detaildocs.cfm?ID=65

例子要NTFS文件格式,没别的办法了吗??