VFP 愛用者社區

[sheuok]

判斷"同一目錄"的執行檔是否重複執行.以下為使用WMI的方法,如僅需判斷是否同名稱執行檔可稍微改寫便可達到:

ps.其中【p_執行目錄】 為放置執行檔的目錄區

If uf_重複執行()
Messagebox("【"+Addbs(p_執行目錄)+Program(0)+".EXE"+"】已經執行,不得重複執行!",0,"不得重複執行!")
On Shutdown Quit
Clear Dlls All
Close All
Clear Events
Quit
Endif
****
Function uf_重複執行(lp_執行檔)
Private All Like m_*
lp_執行檔=Upper(Iif(Empty(lp_執行檔),Addbs(p_執行目錄)+Program(0)+".EXE",lp_執行檔))
m_owmi = Createobject("WbemScripting.SWbemLocator")
m_執行次數=0
If Vartype(m_owmi)="O"
m_owmiservice = m_owmi.connectserver(".", "root/cimv2")
m_oitems = m_owmiservice.execquery("SELECT executablepath FROM Win32_Process")
For Each oitem In m_oitems
If Upper(oitem.executablepath)=lp_執行檔
m_執行次數=m_執行次數+1
Endif
Endfor
EndIf
Release m_owmi
Return(Iif(m_執行次數>=2,.T.,.F.))
Endfunc