能否写一段代码检查出Powerpoint 中是否存在声音，图片等文件？解决了再给200分

Question

能否写一段代码检查出Powerpoint 中是否存在声音，图片等文件？

Answer 1

uses
  ComObj;procedure ConvertPPT2HTML(PPTFileName, HTMLFileName: string);
var
  PPT: Variant;
  Pres: Variant;
begin
  PPT := CreateOleObject('PowerPoint.Application');
  Pres := PPT.Presentations.Open(PPTFileName, False, False, False);
  Pres.SaveAs(HTMLFileName, 12, False);
  Pres.Close;
  PPT.Quit
end; 
检查Pres

Answer 2

我的想法
用二进制方法打开PPT文件，查找里面是否有“*.wav”形式的声音文件，或者是这样文件的文件头信息。

Answer 3

就是檢查每個 slide 包含的 object, 看有沒有picture 之類的
思路大概如此, 詳細的代碼, 我一時也沒有!