直接打開word文件 |
|
答題得分者是：cashxin2002
|
|
sun_chih_yen
一般會員   發表：40 回覆：33 積分：13 註冊：2003-10-03 發送簡訊給我 |
|
|
cashxin2002
版主   發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 1. 單個OLE物件應該是不能存放多個檔案﹒
2. 直接打開DOC檔案﹐可使用如下程式碼﹐舉例為Button1的OnClick事件触發﹕
begin
if FileExists('D:\說明.doc') then
WinExec('D:\說明.doc',SW_NORMAL)
else
ShowMessage('該檔案不存在!');
end;
//您也可配合OpenFileDialog元件﹐來讓使用者自選需開啟的DOC檔案﹒
參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
|
sun_chih_yen
一般會員 發表：40 回覆：33 積分：13 註冊：2003-10-03 發送簡訊給我 |
|
|
cashxin2002
版主 發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ if FileExists('路徑\檔案名稱'); 的作用是判斷該檔案是否存在﹐如果不存在的話﹐即出現ShowMessage﹒ 請改用ShellExecute函數即可直接開啟DOC檔案﹐請先加上Use ShellAPI單元﹒
Use ShellAPI; begin
if FileExists('D:\說明.doc') then
ShellExecute(handle, 'open', PChar('D:\說明.doc'), Nil, Nil, SW_SHOWNORMAL)
else
ShowMessage('該檔案不存在!');
end;
參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟
------
忻晟 |
發表時間：2003-10-29 09:57:38
IP:211.74.xxx.xxx 未訂閱
系統時間：2024-05-20 15:23:44
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |