檢測文件占用的代碼
此功能需要加載貝貝吧模塊6.6
.版本 2.支持庫 eAPI.程序集 窗口程序集_啟動窗口.子程序 _查詢按鈕_被單擊.局部變量 進(jìn)程名, 進(jìn)程信息, , "0".局部變量 進(jìn)程id, 整數(shù)型, , "0".局部變量 a, 整數(shù)型, , "0".局部變量 i, 整數(shù)型進(jìn)程名 = 取系統(tǒng)進(jìn)程列表 ()顯示占用列表框.清空 ().計次循環(huán)首 (取數(shù)組成員數(shù) (進(jìn)程名), i) .如果真 (尋找文本 (到小寫 (進(jìn)程_取程序路徑 (進(jìn)程名 [i].進(jìn)程標(biāo)識符)), “system32”, , 真) = -1 且 到小寫 (進(jìn)程_取程序路徑 (進(jìn)程名 [i].進(jìn)程標(biāo)識符)) ≠ “” 且 進(jìn)程名 [i].進(jìn)程標(biāo)識符 ≠ 進(jìn)程_取自進(jìn)程ID ()) .如果真 (內(nèi)存.搜索 (進(jìn)程名 [i].進(jìn)程標(biāo)識符, 到字節(jié)集 (文件路徑編輯框.內(nèi)容), a) > 1) 顯示占用列表框.加入項目 (進(jìn)程名 [i].進(jìn)程名稱, 進(jìn)程名 [i].進(jìn)程標(biāo)識符) .如果真結(jié)束 .如果真結(jié)束 標(biāo)題 = 到文本 (i).計次循環(huán)尾 ()標(biāo)題 = “結(jié)束”.子程序 _選擇程序按鈕_被單擊.如果真 (通用對話框1.打開 ()) 文件路徑編輯框.內(nèi)容 = 通用對話框1.文件名.如果真結(jié)束
運(yùn)行結(jié)果:
總結(jié)
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值,謝謝大家對VeVb武林網(wǎng)的支持。
|
新聞熱點
疑難解答