pb除了可以用run()函数打开powerpoint文件，还有那些方法能打开并且直接播放,谢谢！
run("c:\program files\Microsoft Office\office12\powerpnt.exe" /S "+"d:\123.ppt"
------解决方案--------------------
或者这种方法:
oleobject ole_ppt
Long ll_ret
ole_ppt = Create oleobject
ll_ret = ole_ppt.ConnectToObject("","powerpoint.application")
IF ll_ret <> 0 THEN
ll_ret = ole_ppt.ConnectToNewObject("powerpoint.application")
IF ll_ret <> 0 THEN
RETURN
END IF
END IF
ole_ppt.Visible = True
ole_ppt.Presentations.Add(0)
ole_ppt.Presentations.Open("C:\Documents and Settings\ruic\桌面\2.ppt")