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

如何得知某程式目前正被開啟了幾個?
前往頁面 上一頁  1, 2
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 16 樓

發表發表於: 星期五 十月 04, 2013 6:34 pm    文章主題: 引言回覆

最最簡單的方法
run tasklist > c:\a.txt
? OCCURS('A.EXE',FILETOSTR('c:\a.txt'))
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 17 樓

發表發表於: 星期五 十月 04, 2013 7:23 pm    文章主題: 引言回覆

FindWindow 傳回的不都是同一個hwnd值嗎?

設A.EXE的FORM1.CAPTION='XXX'
a=FindWindow(NULL,"XXX")

那另一個A.EXE的CAPTION也是'XXX"呀!
b=FindWindow(NULL,"XXX")

結果 b=a,
還是無法知道不是嗎?


jerryclt 在 星期五 十月 04, 2013 7:36 pm 作了第 1 次修改
回頂端
檢視會員個人資料 發送私人訊息
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 18 樓

發表發表於: 星期五 十月 04, 2013 7:35 pm    文章主題: 引言回覆

經由 FindWindow 聯想...
也許可以利用 GetWindowText 來達到要求,
待小弟實際試試看再來報告!
回頂端
檢視會員個人資料 發送私人訊息
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 19 樓

發表發表於: 星期五 十月 04, 2013 8:29 pm    文章主題: 引言回覆

ckp6250 寫到:
最最簡單的方法
run tasklist > c:\a.txt
? OCCURS('A.EXE',FILETOSTR('c:\a.txt'))


兄弟...您好樣兒的!!!
先給您按個讚......再蓋個章......然後來去測試!
回頂端
檢視會員個人資料 發送私人訊息
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 20 樓

發表發表於: 星期五 十月 04, 2013 9:14 pm    文章主題: 引言回覆

既蒙謬讚,那麼再精簡成一行指令

? OCCURS('A.EXE',FILETOSTR(IIF(ExecScript("run tasklist > c:\a.txt"),'c:\a.txt','')))
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
DennisTsai



註冊時間: 2005-07-26
文章: 176


第 21 樓

發表發表於: 星期六 十月 05, 2013 1:09 am    文章主題: 引言回覆

最好加上大小寫轉換
回頂端
檢視會員個人資料 發送私人訊息
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 22 樓

發表發表於: 星期六 十月 05, 2013 3:01 am    文章主題: 引言回覆

ckp6250 寫到:
既蒙謬讚,那麼再精簡成一行指令

? OCCURS('A.EXE',FILETOSTR(IIF(ExecScript("run tasklist > c:\a.txt"),'c:\a.txt','')))


ExecScript() 這個會有版本限制不是嗎?
回頂端
檢視會員個人資料 發送私人訊息
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 23 樓

發表發表於: 星期六 十月 05, 2013 3:03 am    文章主題: 引言回覆

DennisTsai 寫到:
最好加上大小寫轉換


這是必然的...

run tasklist > c:\a.txt
? OCCURS(UPPER('A.EXE'),UPPER(FILETOSTR('c:\a.txt')))
回頂端
檢視會員個人資料 發送私人訊息
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 24 樓

發表發表於: 星期六 十月 05, 2013 3:12 am    文章主題: 引言回覆

DennisTsai 寫到:
最好加上大小寫轉換


這是必然的...

run tasklist > c:\a.txt
? OCCURS(UPPER('A.EXE'),UPPER(FILETOSTR('c:\a.txt')))
回頂端
檢視會員個人資料 發送私人訊息
ckp6250



註冊時間: 2004-07-30
文章: 1642


第 25 樓

發表發表於: 星期六 十月 05, 2013 6:33 am    文章主題: 引言回覆

jerryclt 寫到:

ExecScript() 這個會有版本限制不是嗎?


若是擔心版本限制,不然,改用這個如何呢?

? OCCURS('A.EXE',FILETOSTR(IIF(isnull(_vfp.Docmd("run tasklist > c:\a.txt"))),'c:\a.txt','')))


本廠只負責供應零件,用戶請自行依需求改裝 Laughing


ckp6250 在 星期六 十月 05, 2013 10:49 am 作了第 1 次修改
回頂端
檢視會員個人資料 發送私人訊息 參觀發表人的個人網站
bx1166



註冊時間: 2011-12-06
文章: 273


第 26 樓

發表發表於: 星期六 十月 05, 2013 10:09 am    文章主題: 引言回覆

有些時候 程式師可能是不希望同一工作站 重複執行某一個程式
所以計算執行的程式數量 來加以控制

那麼第n個A.exe 一載入 發現過多的時候 就可以自行關閉

這時候FindWindow 還是比較可靠 前提是 A.exe _screen.caption 可以讀的到
回頂端
檢視會員個人資料 發送私人訊息
jerryclt



註冊時間: 2009-03-10
文章: 334
來自: 佛心來的

第 27 樓

發表發表於: 星期六 十月 05, 2013 3:26 pm    文章主題: 引言回覆

其實小弟是要嚐試做相同視窗的平均寬度切割,
類似 VFP 功能快捷列中 Window -> Arrange All 的功能啦,
沒有版本或人數控制!

所以ckp老大的那行,
在前置作業上有很大的助益哩!
後頭還是需要 GetWindowText 和 SetWindowPos 來重新排列那些視窗的位置...
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 上一頁  1, 2
2頁(共2頁)

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


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