全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2051
推到 Plurk!
推到 Facebook!

要如何讀取程式?

答題得分者是:Stallion
lnyuan1
一般會員


發表:1
回覆:0
積分:0
註冊:2005-05-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-05-26 22:52:40 IP:218.175.xxx.xxx 未訂閱
各位前輩
我要在某個視窗被啟動時能自動去開啟另一個程式,該怎麼寫呢?
例如要開啟的檔名為aaa
是不是寫下在以下地方呢?
procedure TForm1.FormActivate(Sender: TObject);
begin 開啟程式的內容要怎麼寫?
end; 感激不盡!!
編輯記錄
yckuo 重新編輯於 2007-12-24 10:48:07, 註解 修改標題,去掉新手發問字樣‧
Stallion
版主


發表:52
回覆:1600
積分:1995
註冊:2004-09-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-05-26 23:05:19 IP:211.22.xxx.xxx 未訂閱
是在FORM SHOW事件裡開啟才對!不然每次你的這個FORM一取的焦點,就會重複開啟指定的程式! 另外使用ShellExecute或WinExec或者是CreateProcess的WINAPI,來開啟別的程式,請用搜尋在站裡面找,範例很多! ----------------------------------------------- Creation is the fundation of promotion.
pceyes
尊榮會員


發表:70
回覆:657
積分:1140
註冊:2003-03-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-05-30 20:21:41 IP:59.114.xxx.xxx 未訂閱
是不是要再把問題講清楚呢? 是要偵測程式的 Catpion 還是指程式在行程(process)之中 再執行另一個程式 ???????????????? 努力會更接近成功
------
努力會更接近成功
odyaho
初階會員


發表:60
回覆:104
積分:42
註冊:2005-02-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-01 15:06:58 IP:202.181.xxx.xxx 未訂閱
Dear Inyuan1:    可以使用Winexec()這個function來執行別的執行檔 另外 WinExec 只能執行執行檔。 若是 別種類型的捷徑(如:動畫 *.AVI *.Mpg *.Doc *.MP3 ....) 是行不通的。必須使用 ShellExecute 的方式。 ex:

  WinExec("*.exe",NULL);
  ShellExecute(Handle,"open","mspaint.exe","C:\\tmpimage.bmp",NULL,SW_SHOW);  //用小畫家來測試
Mmmoney
一般會員


發表:9
回覆:19
積分:5
註冊:2007-10-12

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-12-24 10:26:46 IP:220.130.xxx.xxx 訂閱
您好:
請問小畫家開黨的路徑不能包含空格嗎?
像這樣.."C:\\Documents and Settings\\tmpimage.bmp"會不能開圖耶!
小畫家會視為"C:\\Documents.bmp"

===================引 用 odyaho 文 章===================
Dear Inyuan1: 可以使用Winexec()這個function來執行別的執行檔另外 WinExec 只能執行執行檔。若是 別種類型的捷徑(如:動畫 *.AVI *.Mpg *.Doc *.MP3 ....) 是行不通的。必須使用 ShellExecute 的方式。 ex:

  WinExec("*.exe",NULL);
  ShellExecute(Handle,"open","mspaint.exe","C:\\tmpimage.bmp",NULL,SW_SHOW);  //用小畫家來測試
windham
一般會員


發表:15
回覆:22
積分:7
註冊:2006-07-28

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-12-28 13:27:03 IP:124.158.xxx.xxx 訂閱
. you can add "" infront and behind it..
編輯記錄
windham 重新編輯於 2007-12-28 13:28:11, 註解 無‧
Mmmoney
一般會員


發表:9
回覆:19
積分:5
註冊:2007-10-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-12-28 15:40:10 IP:220.130.xxx.xxx 訂閱

對不起..請你說清楚一些好嗎?
謝謝你了!
===================引 用 windham 文 章===================
. you can add "" infront and behind it..
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#8 引用回覆 回覆 發表時間:2007-12-28 15:55:45 IP:61.59.xxx.xxx 未訂閱

[code delphi]
ShellExecute(Handle,'open',pchar('mspaint.exe'),
pchar('"C:\Documents and Settings\che\My Documents\My Pictures\winfax.bmp"'),Nil,SW_SHOW);
[/code]

===================引 用 windham 文 章===================
. you can add "" infront and behind it..
------
What do we live for if not to make life less difficult for each other?
編輯記錄
christie 重新編輯於 2007-12-28 15:57:17, 註解 無‧
Mmmoney
一般會員


發表:9
回覆:19
積分:5
註冊:2007-10-12

發送簡訊給我
#9 引用回覆 回覆 發表時間:2007-12-28 17:19:11 IP:220.130.xxx.xxx 訂閱
對不起..我原本使用的方式是
AnsiString mofidy= DBPath2 "Text "-" Edit9->Text ".bmp">\\" ComboBox7->Text "-" Edit9->Text ".bmp";
ShellExecute(NULL, "open", "C:\\WINDOWS\\system32\\mspaint.exe", mofidy.c_str() , NULL, SW_SHOWDEFAULT );

Christie大大,我試著照您的方式改,但是改不出來!
功力太弱了....
編輯記錄
Mmmoney 重新編輯於 2007-12-28 17:21:15, 註解 無‧
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#10 引用回覆 回覆 發表時間:2007-12-28 23:47:52 IP:218.171.xxx.xxx 未訂閱
Sorry, 我沒安裝BCB無法為您測試^_^
[code cpp]
ShellExecute(hwnd,"open","C:\\WINDOWS\\system32\\mspaint.exe",mofidy.c_str(),NULL,SW_SHOWDEFAULT);

[/code]
------
What do we live for if not to make life less difficult for each other?
系統時間:2024-04-30 11:01:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!