VFP 愛用者社區

sunghsia · 註冊時間: 2003-06-13 文章: 52 來自: 台北 第 1 樓

****************************
* 拷備至 *.prg
****************************
PARAMETERS exeFile &&欲檢查的執行檔名
* exeFile= "Notepad.exe"
exeFile= "Vfp.exe"

DECLARE INTEGER CreateToolhelp32Snapshot IN kernel32 INTEGER dwFlags, INTEGER th32ProcessID
DECLARE INTEGER CloseHandle IN kernel32 INTEGER hPass
DECLARE INTEGER Process32First IN kernel32 INTEGER hSnapshot, STRING @ 結構PROCESSENTRY32
DECLARE INTEGER Process32Next IN kernel32 INTEGER hSnapshot, STRING @ 結構PROCESSENTRY32

TH32CS_SNAPPROCESS = 2
hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) &&取得 hSnap

proc= num2dword(296) + REPL(chr(0),292)
f= Process32First(hSnap, @proc)

_Open= 0
Do While f #0
e= substr(proc, 37,260) &&執行檔的完整路徑與名稱
e= left(e, at(chr(0),e)-1) &&清除不用的字元
e= substr(e, rat("\",e)+1) && 博取執行檔名
_Open= _Open+ iif(lower(e)==lower(exeFile), 1, 0)
f= Process32Next(hSnap, @proc)
enddo
= CloseHandle(hSnap)

messagebox ("程式 &exeFile" + chr(13) + "已執行" + ltrim(str(_Open)) + "次了........",64)

RETURN _Open

FUNCTION num2dword (lnValue) &&接收十進位,傳回32位元數值資料
#DEFINE m0 256
#DEFINE m1 65536
#DEFINE m2 16777216
LOCAL b0, b1, b2, b3
b3 = Int(lnValue/m2)
b2 = Int((lnValue - b3*m2)/m1)
b1 = Int((lnValue - b3*m2 - b2*m1)/m0)
b0 = Mod(lnValue, m0)
RETURN Chr(b0)+Chr(b1)+Chr(b2)+Chr(b3)

bin1x · 註冊時間: 2004-08-27 文章: 462 第 2 樓

哇塞!
這是什麼api 函數
看起很接近os系統層面的函數
好像是要執行的程序,和程式管理員有沾那麼一點關係
有程式的執行排程這種東西嗎? OS 的理論忘光了
給個網站或資料參考一下吧!
看起來好像用很簡單的架構解決問題
請教一下呢!

sunghsia · 發表於: 星期日十月 02, 2005 3:00 pm 文章主題:

參考綱址: http://www.news2news.com/vfp/?group=-1&function=250

查詢相關字 Snap, Process, Module, Heap, Handle (有的有範例)

sunghsia · 發表於: 星期日十月 02, 2005 3:03 pm 文章主題:

參考綱址: http://www.news2news.com/vfp/?group=-1&=0

violetlkk · 發表於: 星期一十月 03, 2005 1:17 am 文章主題:

在win98
process 的名稱好像不是vfp.exe

catjoke · 發表於: 星期三十月 05, 2005 5:19 pm 文章主題:

那不是問題, 你寫的 exe , 你知道它的名字!!

sunghsia · 發表於: 星期三十月 05, 2005 7:23 pm 文章主題:

如果要自動偵測exe的名稱, 告訴你一個也可行的簡單方法, 但此法看起來有些笨茁! 所以你不要笑^^.....
也不能保證任何windows系統, 所執行的結果都一樣!! 我試的時候是沒問題, 但你還要去試試才知道!

= CloseHandle(hSnap)
messagebox (e) &&加入此列
RETURN e &&加入此列

如顯示結果, 是你表單編譯後的執行檔名, 那就ok了..
你只要多一道程序就好了,就是先去傳回 e 變數的值.. 在傳入 e變數的值進去執行

bin1x · 註冊時間: 2004-08-27 文章: 462 第 8 樓

sunghsia · 發表於: 星期三十月 05, 2005 8:15 pm 文章主題:

原本這個程碼的寫法, 是要各位大大拷備至prg後, 可直接點擊測試, 不須在配合表單執行
這樣比較方便..

忘了說~~~~ 測試時, 需要加入一些mard:
* exeFile= "Vfp.exe"
* _Open= _Open+ iif(lower(e)==lower(exeFile), 1, 0)

bin1x 兄, 你真是謹慎^^, 我的主要用意是, 博取最後一個開啟的程式

bin1x · 註冊時間: 2004-08-27 文章: 462 第 10 樓

呼!
我的意思是
e= substr(proc, 37,260) &&執行檔的完整路徑與名稱
e= left(e, at(chr(0),e)-1) &&清除不用的字元
e= substr(e, rat("\",e)+1) && 博取執行檔名
以上這段copy 至迴圈外形成 first E 大寫區分一下好了
然後exefile = first E 搞定應該是assign 劃蛇添足了
如果不想執行第三次迴圈似乎要中斷!

我所謂的簡單的架構就是

第一次

迴圈
n = n + 1
end 迴圈 loop n 次

結束收尾
處理檔案record 都嘛被這麼教

sunghsia · 發表於: 星期三十月 05, 2005 9:59 pm 文章主題:

了解~~ 我已將類別改用你的架構了, 很好用

bin1x · 註冊時間: 2004-08-27 文章: 462 第 12 樓

sunghsia · 發表於: 星期三十月 05, 2005 11:55 pm 文章主題:

bin1x 兄: 我也有受你的教, 彼此受益^^