使用dsofile读取文件摘要

在微软网站上下载dsofile的安装包，安装后注册dsofile.dll文件。
打开Delphi 7.0，从菜单“Project”-〉“Import Type Library”中导入此ole。
新建工程，从控件的ActiveX页面选择ToleDocumentProperties添加到窗体上，对文件摘要属性进行读取修改。

procedure TForm1.Button1Click(Sender: TObject);

var

  sp:SummaryProperties;

begin

  OleDocumentProperties1.Open('c:/123.pdf',true,dsoOptionOpenReadOnlyIfNoWriteAccess);

  sp:=OleDocumentProperties1.SummaryProperties;

  memo1.Lines.Add('title:'+sp.Title);

  memo1.Lines.Add('subject:'+sp.Subject);

  memo1.Lines.Add('category:'+sp.Category);

  memo1.Lines.Add('author:'+sp.Author);

  memo1.Lines.Add('keywords:'+sp.Keywords);

  memo1.Lines.Add('comments:'+sp.Comments);

 

  OleDocumentProperties1.Close(false);

end;