線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1807
推到 Plurk!
推到 Facebook!

請教開啟chm或可執行文檔的函數

尚未結案
zhong
一般會員


發表:46
回覆:17
積分:12
註冊:2004-08-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-11 16:14:22 IP:59.33.xxx.xxx 未訂閱
請問delphi中開啟chm或可執行文檔的函數是什麼?如何使用? 謝謝!
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-11 16:26:23 IP:219.129.xxx.xxx 未訂閱
hi:
  uses ShellApi;    procedure TForm1.Button1Click(Sender: TObject);
begin
   ShellExecute(application.handle,pchar('OPEN'),pchar('C:\WINDOWS\Calc.exe'),nil,nil,0);
end;
============================ 为什么经过多年以后,得失的过程如此冷漠 ============================
zhong
一般會員


發表:46
回覆:17
積分:12
註冊:2004-08-02

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-12 10:00:49 IP:59.33.xxx.xxx 未訂閱
謝謝deity的回覆,ShellExecute可打開exe檔案,但打不開.chm的說明文檔.
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-07-12 11:12:02 IP:218.15.xxx.xxx 未訂閱
您好: 因CHM文件在Windows中不能直接打开,需调用外部命令。查看浏览器——》工具——》文件夹选项——》文件类型——》找出CHM的打开方式是HH 则可采用如下方法进行使用:
 
windows下能直接打开
procedure TForm1.Button3Click(Sender: TObject);
var
  s:string;
begin
  s:='C:\WINDOWS\Calc.exe';
  winExec(pchar(s),SW_NORMAL);
end;
windows下不能直接打开
procedure TForm1.Button4Click(Sender: TObject);
var
  s:string;
begin
  s:='C:\Program Files\CHM 制作精灵\help.chm';
  winExec(pchar('hh ' s ''),SW_NORMAL);
end;
参考 <> ============================ 为什么经过多年以后,得失的过程如此冷漠 ============================
系統時間:2024-04-27 4:50:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!