 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
小柯
註冊時間: 2003-11-27
文章: 75
第 1 樓
|
 發表於: 星期五 九月 09, 2022 10:46 pm 文章主題: 請問,如何偵測exe執行檔正被網路芳鄰開啟使用中? |
 |
|
| 請問先進，如何在區域網路環境中，偵測某共用資料夾內的abc.exe檔是否正被使用執行中,謝謝? |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期六 九月 10, 2022 8:04 am 文章主題: |
|
|
改名.刪除
XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 3 樓
|
| 發表於: 星期六 九月 10, 2022 11:10 am 文章主題: |
|
|
| 我想做到的效果是,若A使用者已開啟執行abc.exe(VFP程式)的狀態中,在A使用者端如何去偵測這個abc.exe是否還有被網路上其他使用者同時開啟執行中? |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 4 樓
|
| 發表於: 星期六 九月 10, 2022 8:26 pm 文章主題: |
|
|
以前是 "寫入記錄到某個dbf" 的方式做檢查
但,用更名/刪除最準
XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 5 樓
|
| 發表於: 星期六 九月 10, 2022 10:06 pm 文章主題: |
|
|
| 能否有更具體的提示？是使用rename 或 delete file 對abc.exe進行改名/刪除是嗎？……不懂？ |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 6 樓
|
| 發表於: 星期六 九月 10, 2022 10:16 pm 文章主題: |
|
|
因為 更名或是刪除,
必須取得檔案的exclusive (獨佔性),
所以,以下命令會成立
| 代碼: |
rename a.exe to b.exe
if file("b.exe")
messagebox('沒人用')
rename b.exe to a.exe
else
messagebox('有人用')
endif
|
當然上面還是有漏洞,
仔細想想就會發現
連用 terminal service 遠端操作執行檔,
在 terminal service Sever 上以多使用者執行多副本執行檔,
基本上也成立
(不過我真的遇過 可以改名而且copy檔案也完成,等原先使用者離開後才真正更新為新檔案)
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 7 樓
|
| 發表於: 星期日 九月 11, 2022 11:44 am 文章主題: |
|
|
感謝syntech回應指教，照上述提示理論上應該是可行，但經實測三種檔案:
1.文字檔abc.txt利用記事本在開啟的狀態下，在VFP裡還是可以rename及delete file
2.計算機程式calc.exe在開啟的狀態下，在VFP裡還是可以rename及delete file
3.table.dbf在exclusive開啟的狀態下，在VFP裡執行rename或delete file才會出現"File access is denied"的錯誤訊息
偵測VFP所開發的執行檔.exe，是否有正被網路上其他使用者開啟使用的目的，是為了執行pack,reindex,資料庫備份及自動程式更新…等作業，
所以照syntech先進提示的思路,該.exe執行檔要取得exclusive,而我目前的疑問是,VFP所開發的.exe執行檔有辧法設成exclusive開啟嗎? |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 8 樓
|
| 發表於: 星期日 九月 11, 2022 2:57 pm 文章主題: |
|
|
你測 CALC.EXE 是本地的,還是伺服器上的?
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 9 樓
|
| 發表於: 星期日 九月 11, 2022 3:28 pm 文章主題: |
|
|
| 這三種類型的檔案都是在本地做測試。 |
|
| 回頂端 |
|
|
csyx
註冊時間: 2022-09-12
文章: 1
第 10 樓
|
| 發表於: 星期一 九月 12, 2022 8:01 am 文章主題: |
|
|
试试用OS自带的 wmi 来获取正在执行的进程信息，ex:
wmi = GetObject('winmgmts:')
op = wmi.ExecQuery([select * from win32_process ]) && where name = 'xxxx.exe'
For each oi in op
? oi.CSName, oi.name, oi.ExecutablePath
EndFor
更多的进程属性可搜索并参考MSDN的 win32_process 类描述
另: 记事本打开 txt 文件这种情况估计就很困难了，主要是记事是先将内容读取到 memory，然后就关闭这个 txt 了 |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4212
來自: Taipei,Taiwan
第 11 樓
|
| 發表於: 星期一 九月 12, 2022 8:59 am 文章主題: |
|
|
可以搜尋 "自動更新"
以前網友有PO一些方法可以參考.
可以先設計一個前導檢查程式,
本地端執行,
然後往主機檢查更新程式,
這應該就不需要先檢查有沒有正在執行,
也可以配合把本地端程式直接關閉的方法,強制更新
但這是把程式COPY到本地端執行的方法
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 12 樓
|
| 發表於: 星期一 九月 12, 2022 2:09 pm 文章主題: |
|
|
| 感謝諸位先進的提示與指教。 |
|
| 回頂端 |
|
|
CPS0204
註冊時間: 2014-08-24
文章: 441
第 13 樓
|
| 發表於: 星期一 九月 12, 2022 7:20 pm 文章主題: |
|
|
先確定你是選用哪種方法執行exe
a. 把程式COPY到本地端執行的方法 ,所以本地磁碟機須有此相關的程式
b. 網路分享芳鄰,將捷徑拉至本機的桌面!本地磁碟不需有相關的程式
*************
個人是用a法,因為可以在公司外部連入!,更新都是透過ftp 下載!,透過odbc 及固定ip.....路由器開port後,可以直聯sql port |
|
| 回頂端 |
|
|
211482
註冊時間: 2003-07-15
文章: 53
第 14 樓
|
| 發表於: 星期二 九月 13, 2022 4:59 pm 文章主題: |
|
|
在主程式A.exe內
| 代碼: |
RUN /N7 B.exe
CLEAR EVENTS
|
在更版程式B.exe內
| 代碼: |
DECLARE integer FindWindow in Win32API string class_name, string window_title
DECLARE LONG ShowWindow IN Win32api LONG,LONG
DECLARE LONG SetForegroundWindow IN Win32api LONG
* 檢查A.exe主�{式是否在執行
lcMsg = "等候A.exe主�{式結束，請稍候..."
llRunExe = .F.
DO WHILE .T.
apphand = FindWindow(NULL, "XXX資訊系統")
IF apphand > 0
* 檢查本機XXX資訊系統是否已結束
WAIT lcMsg WINDOW AT (SROW()-MEMLINES(lcMsg))/2, (SCOLS()-LEN(lcMsg))/2 TIMEOUT 5
ELSE
* 檢查區網電腦是否執行XXX資訊系統
gnErrFile = FOPEN('..\A.exe', 12)
IF gnErrFile < 0
MESSAGEBOX("系統檢查到XXX資訊系統執行中，請確�{XXX資訊系統已結束！" + CHR(13) + "要繼續更版請按『確定』", 0+48, "警告", 5000)
ELSE
llRunExe = .T.
EXIT
ENDIF
ENDIF
ENDDO
=FCLOSE(gnErrFile) && Close file
CLEAR DLLS
|
|
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 75
第 15 樓
|
| 發表於: 星期四 九月 15, 2022 10:44 pm 文章主題: |
|
|
| 感謝211482提供程式碼，我再測試一下，謝謝。 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
