VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

[分享]VFP調用外部Exe檔,執行完後,再接著執行本程式(經典轉載)

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
goodnight



註冊時間: 2008-10-13
文章: 459
來自: 台南市

第 1 樓

發表發表於: 星期五 一月 18, 2019 1:54 pm    文章主題: [分享]VFP調用外部Exe檔,執行完後,再接著執行本程式(經典轉載) 引言回覆

我把它轉成正體中文
站內也有類似相關的文章: http://vfp.sunyear.com.tw/viewtopic.php?t=2800&highlight=%A9I%A5s%A5%7E%B3%A1%B5%7B%A6%A1

網路出處: https://blog.csdn.net/dxnn520/article/details/7633184

內容如下:

來源於csdn論壇:

*在一個目錄下有兩個子目錄A和B*
*把這個目錄放到你的程式目前的目錄,然後在你的主程序加代碼:

Public gcNowPath
*gcNowPath=Addbs(Justpath(Sys(16)))
*Set Default To (gcNowPath)
*調用時:
SET DEFAULT TO d:\life
ox=CreateObject("WScript.Shell")
ox.Run("d:\life\dxnn520.exe",1,1)
&& 第3個參數0表示調用後馬上將控制項權返回原調用程式,1表示直到被調用程式結束後才將控制項權返回原調用程式(調用外部檔時讓系統一直等待,直到運行結束才返回控制權就可以了)。
MESSAGEBOX('aaa')
Release ox

---------------------------------------------------
ox.run(...) 之前加一句:Application.Visible = .f.
以免使用者看到兩個介面,而主介面又在死等 a 或 b 結束並返回控制權

_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 雅虎訊息通 MSN Messenger
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作