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

如何偵測程式是否執行結束

尚未結案
a120803
初階會員


發表:61
回覆:66
積分:25
註冊:2003-03-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-02 16:56:18 IP:163.25.xxx.xxx 未訂閱
請問各位大大: 如何偵測程式是否執行結束,例如偵測執行程式完後,再執行下一行ㄉ程式碼 至於用WaitForSignleObject這函數好像沒有功能ㄝ
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-02 17:49:09 IP:61.221.xxx.xxx 未訂閱
引言: 請問各位大大: 如何偵測程式是否執行結束,例如偵測執行程式完後,再執行下一行ㄉ程式碼 至於用WaitForSignleObject這函數好像沒有功能ㄝ
a120803 你好: 請問~~上次這個做法沒有用嗎?? http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27250 -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
jessechan
版主


發表:109
回覆:394
積分:254
註冊:2002-04-05

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-02 17:49:30 IP:203.75.xxx.xxx 未訂閱
你好, 請參考以下文章. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27250 另外如果不想太複雜, 我提供一個很醜的方法, 就是用 FindWindow 定時去找視窗是否存在, 不要說是我說的.    Jesse Chan
------
Jesse Chan
jessechan
版主


發表:109
回覆:394
積分:254
註冊:2002-04-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-02 17:50:48 IP:203.75.xxx.xxx 未訂閱
包子, 我們實在有默契. 發問的同學, RaynorPao 是這個解答的原作者, 如果符合你的需求, 請給他分數謝謝他的熱心.    Jesse Chan 發表人 - jessechan 於 2003/04/02 17:52:57
------
Jesse Chan
builder78
初階會員


發表:36
回覆:100
積分:47
註冊:2003-02-03

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-04-02 18:38:36 IP:211.76.xxx.xxx 未訂閱
包子版主實在很厲害~ 又多學了一招~ 呵呵~~ 不過呼叫WORD後程式處於等待狀態看起來像當機~我來幫忙改一下 如果程式適用~~請給包子版主分數唷~ void __fastcall TForm1::Button1Click(TObject *Sender) { //確定路徑檔名正確 String s= "C:\\Program Files\\Microsoft Office\\Office10\\WINWORD.EXE"; DWORD rt; STARTUPINFO si; PROCESS_INFORMATION pi; ZeroMemory(&si, sizeof(si)); si.cb=sizeof(si); ZeroMemory(&pi, sizeof(pi)); if(!CreateProcess(NULL,s.c_str(), NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi)) { ShowMessage("CreateProcess failed!" IntToStr(GetLastError())); } do { //修改成do while迴圈來等待 rt = WaitForSingleObject(pi.hProcess, 0); //這裡不等待 Application->ProcessMessages(); } while( rt == WAIT_TIMEOUT); //是否timeout? CloseHandle( pi.hProcess ); CloseHandle( pi.hThread ); ShowMessage("WinWord terminate!"); }
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-04-02 23:39:45 IP:61.221.xxx.xxx 未訂閱
引言: 包子版主實在很厲害~ 又多學了一招~ 呵呵~~ 不過呼叫WORD後程式處於等待狀態看起來像當機~我來幫忙改一下 如果程式適用~~請給包子版主分數唷~
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   //確定路徑檔名正確
   String s= "C:\\Program Files\\Microsoft Office\\Office10\\WINWORD.EXE";
   DWORD rt;
   STARTUPINFO si;
   PROCESS_INFORMATION pi;
   ZeroMemory(&si, sizeof(si));
   si.cb=sizeof(si);
   ZeroMemory(&pi, sizeof(pi));
   if(!CreateProcess(NULL,s.c_str(), NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi))
   {
      ShowMessage("CreateProcess failed!" IntToStr(GetLastError()));
   }
   do
   {  //修改成do while迴圈來等待
      rt = WaitForSingleObject(pi.hProcess, 0); //這裡不等待
      Application->ProcessMessages();
      Sleep(100);
   }
   while( rt == WAIT_TIMEOUT); //是否timeout?
   CloseHandle( pi.hProcess );
   CloseHandle( pi.hThread );
   ShowMessage("WinWord terminate!");
}
builder78 你好:
(1)謝謝你的誇獎,小弟我只是偶有佳作
( >
(>紅色那一行,
   如果沒有加的話,在執行的時候,打開工作管理員(>    -- 
        
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
a120803
初階會員


發表:61
回覆:66
積分:25
註冊:2003-03-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-04-03 21:23:14 IP:163.25.xxx.xxx 未訂閱
請問各位大大: 底下是CreateProcess的其中參數,但我不太清楚以下參書代表什麼意思ㄝ BOOL bInheritHandles, // handle inheritance flag DWORD dwCreationFlags, // creation flags LPVOID lpEnvironment, // pointer to new environment block LPCTSTR lpCurrentDirectory, // pointer to current directory name
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-04-03 21:32:46 IP:61.221.xxx.xxx 未訂閱
引言: 請問各位大大: 底下是CreateProcess的其中參數,但我不太清楚以下參書代表什麼意思ㄝ BOOL bInheritHandles, // handle inheritance flag DWORD dwCreationFlags, // creation flags LPVOID lpEnvironment, // pointer to new environment block LPCTSTR lpCurrentDirectory, // pointer to current directory name
a120803 你好: 請參考以下的連結文章(原始文件) > --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
a120803
初階會員


發表:61
回覆:66
積分:25
註冊:2003-03-12

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-04-05 01:32:11 IP:163.25.xxx.xxx 未訂閱
謝謝大大: 程式是可以執行了,可是收不到傳值 但是我是用Visual foxpro編譯出Windows的執行程式 我不太清楚Windows程式可不可以傳值出去
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-04-05 01:38:02 IP:61.221.xxx.xxx 未訂閱
引言: 謝謝大大: 程式是可以執行了,可是收不到傳值 但是我是用Visual foxpro編譯出Windows的執行程式 我不太清楚Windows程式可不可以傳值出去
a120803 你好: 請問你說的「傳值」是什麼意思呢?? 麻煩你詳細說明 --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
a120803
初階會員


發表:61
回覆:66
積分:25
註冊:2003-03-12

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-04-05 01:43:39 IP:163.25.xxx.xxx 未訂閱
底下是Foxpro程式 PARAMETER A A=10 RETURN A 利用RETURN傳出去A值 已經用FOXPRO編譯成EXE,但在執行時會出現FOXPRO視窗ㄝ 所以我就不知道,可不可以把值傳出去,使其他程式接收傳值
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-04-05 01:50:00 IP:61.221.xxx.xxx 未訂閱
引言: 底下是Foxpro程式 PARAMETER A A=10 RETURN A 利用RETURN傳出去A值 已經用FOXPRO編譯成EXE,但在執行時會出現FOXPRO視窗ㄝ 所以我就不知道,可不可以把值傳出去,使其他程式接收傳值
a120803 你好: 不好意思~~小弟我不會 FoxPro,因此~~幫不上忙了吧(拍謝)< > 其他的大大知不知道該怎麼做呢??< > -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
系統時間:2024-04-29 23:11:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!