2009年3月5日
delphi提取ppt文件里的文本函数
摘要： function ReadPPt(sName: string): string; var n,m,i,j: integer; PptApp: OleVariant; begin try PptApp := CreateOleObject('PowerPoint.Application'); PptApp.Visible := true; PptApp.Prese... 阅读全文
posted @ 2009-03-05 13:35 一个人的天空@ 阅读(839) 评论(0) 推荐(0) 编辑