如題, 謝謝!! 抱歉, 我跨板發問, 因為卡好久了, 急需答案>.<" 感覺Dephi 比較簡單 =.="... BCB一堆問題..ㄆㄆ!!

Hi~! raintree777~~ 最快的方法就是直接丟一個OleContainer元件到Form中,選擇 InsertObject->Create from File,這樣就可以了~~或者用 TCppWebBrowser將ppt檔案傳到此開啟畫面~~這是你要的嗎?

我是看過如下:    

Variant V;
V = CreateOleObject("PowerPoint.Application");
V.setOleProperty(...,"Visible");

這種方式打開了PowerPoint的程式了, 不過我試用過很多我不了解的方法開檔案, 都無法成功 =.=" 甚而有種方法, 利用 V.OleProcedure("FileOpen","要開的檔名"); 來開我要的ppt檔都無法成功. 而且"FileOpen"是否有這個功能我都是用猜的, 不知道去哪找開檔案該用什麼字串, 請問有人可以幫我解答嗎?

Hi!~raintree777 要開啟的投影片請設定為"由觀眾自行瀏覽" 設定放映方式>放映類型>由觀眾自行瀏覽 還有你是要一開始就開啟還是由USER選擇開啟? 如一開始即開啟~不用寫code ole右鍵InsertObject->從檔案建立~ ole的AllowActiveDoc 設為false~ok

先謝謝RR大大的指導, 我要開啟的檔案, 其實是由使用者選擇的. 而選完後的PPT 檔呢? 馬上開成投影片放映. 投影片的上下頁我希望是由自己的應用程式也能控制. 我有參考過Dephi 的寫法, 但是 BCB似乎並不能那樣用的, 是否可在指導一下. 謝謝.

Hi~~raintree777 抽空看了你的其他問答~~終於了解你要的是什麼~~小的理解力不好~sorry~我直 接用TPowerPointPresentation寫個範例給你參考~~    

 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Variant PathName; 
 if(OpenDialog1->Execute())
 {
  PathName=OpenDialog1->FileName;
  PowerPointPresentation1->ConnectTo(PowerPointApplication1->Presentations->Open(PathName,msoFalse,msoFalse,msoFalse));
  PowerPointPresentation1->SlideShowSettings->get_LoopUntilStopped(msoFalse);
 // PowerPointPresentation1->SlideShowSettings->ShowType=ppShowTypeSpeaker;
//設定顯示模式~如不設為FORM顯現
  PowerPointPresentation1->SlideShowSettings->Run();
  PowerPointPresentation1->SlideShowWindow->get_Application();
 }    }
//--------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)//翻到下一頁
{
   PowerPointPresentation1->SlideShowWindow->View->Next();
}

~~你要的功能就這樣摟~~其他你可自行try try see

真的耐人尋味啊~~ 謝謝大大~~為了專題~~先湊著用~~ 我自己試了好久, 試不出來, 看了你的, 居然差兩個地方, 哈哈, 謝嚕!!