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

如何監控外部程式是否結束

答題得分者是:terrychen
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-02-23 16:05:41 IP:61.221.xxx.xxx 未訂閱
小弟有一資料庫可以讓使用者將檔案放進去(任一檔案),當使用者開啟時就先將資料由資料庫讀出到一暫存的目錄中,讓windows關聯的程式去開啟它!!可是開啟後小弟如何讓開啟的程式關閉才回到程式中呢??因為怕使用者開啟後會去修改,所以要在修改後再存入資料庫中!!可以幫幫嗎?? ======================== 我是DELPHI的初學者
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-02-23 16:23:18 IP:61.221.xxx.xxx 未訂閱
您好: 參考http://delphi.ktop.com.tw/topic.php?topic_Id=21297 ~~應無所住而生其心~~
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-02-23 16:40:10 IP:61.221.xxx.xxx 未訂閱
看不太懂喔!!小弟用的是DELPHI5 ======================== 我是DELPHI的初學者
terrychen
尊榮會員


發表:90
回覆:794
積分:501
註冊:2003-05-01

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-02-23 17:10:57 IP:61.221.xxx.xxx 未訂閱
您好:  
procedure TForm1.Button1Click(Sender: TObject);
var StartInfo : TStartupInfo;
  ProcInfo : TProcessInformation;
  CreateOK : Boolean;
begin
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  CreateOK := CreateProcess(PChar('所要執行的程式路徑'),nil, nil, nil,False,
  CREATE_NEW_PROCESS_GROUP NORMAL_PRIORITY_CLASS,
  nil, nil, StartInfo, ProcInfo);
  if CreateOK then
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
  Showmessage('hi');    end; 
~~應無所住而生其心~~
jch
中階會員


發表:111
回覆:224
積分:66
註冊:2003-12-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-02-23 17:24:00 IP:163.17.xxx.xxx 未訂閱
多謝大哥!!小弟試試看!! ======================== 我是DELPHI的初學者
系統時間:2024-11-22 19:34:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!