windows98下怎么编程打开一个ppt文件？

如题，谢谢！！最好能给点示例代码！！

解决方案 »

  1.   

    能不能用delphi里server面板的powerpoint的控件？
    谢谢！！
      

  2.   

    在Uses处添加shellapivar
      ExePath:String;
    Begin
      ExePath:=ExtractFilePath(application.ExeName);
      ShellExecute(Handle,'open',ExePath + YourFileName ,nil,nil,SW_SHOWNORMAL);
    end;
      

  3.   

    楼上的仁兄首先要谢谢你。但是我是想用delphi里面的操作powerpoint的控件啊。
    你有办法吗？
      

  4.   

    var 
      ppa : powerpointapplication;
      ppp : powerpointpresetation;
    Begin  ppa := powerpointapplication.create(self);
      ppa.connect;
      ppp.connectto(ppa.presetation.open（‘file.ppt’,0,0,0));  //这句在win98下总是出错，但是在2000下就没有问题，怎么回事？End;高手帮我看看！！谢谢！！
      

  5.   

    ShellExecute 
    說明 
      查找與指定文件關聯在一起的程序的文件名 
    返回值 
    Long，非零表示成功，零表示失敗。參數 類型及說明 
    hwnd Long，指定一個窗口的句柄，有時候，windows程序有必要在創建自己的主窗口前顯示一個消息框 
    lpOperation String，指定字串「open」來打開lpFlie文檔，或指定「Print」來列印它 
    lpFile String，想用關聯程序列印或打開一個程序名或文件名 
    lpParameters String，如lpszFlie是可執行文件，則這個字串包含傳遞給執行程序的參數 
    lpDirectory String，想使用的完整路徑 
    nShowCmd Long，定義了如何顯示啟動程序的常數值。參考ShowWindow函數的nCmdShow參數 使用
    shellexecute(handle,'文件','關聯程序','參數','路徑',SW_SHOW);
    如：
    shellexecute(handle,'文件.ppt',nil,nil,nil,SW_SHOW);
      

  6.   

    请问你的98安装了office 的ppt制作工具了吗？如果没有是会报错的！
    如果不是上面情况，请说明你错误信息！
      

  7.   

    我安装了powerpoint 了啊。
    var 
      ppa : powerpointapplication;
      ppp : powerpointpresetation;
    Begin  ppa := powerpointapplication.create(self);
      ppa.connect;
      ppp.connectto(ppa.presetation.open（‘file.ppt’,0,0,0));  
      //这句在win98下总是出错，但是在2000下就没有问题，怎么回事？是一个读内存的错误。
      //你可以在98的机器上运行这几句代码，哎，不知道怎么解决。
    End;
      

  8.   

    我的机器上没有装powerpoint,所以没法帮你试验！
    如果仅仅是打开一个文件直接用api 的shellexecute就可以了!
    或者
    用OLE或TWebBrowser就行了，WebBrowser1.Navigate('a.ppt');
      

  9.   

    我看了一下在98出现com的错误，好像是读内存错误，