نحوه تشخیص اجرا شدن برنامه

[akbar_2020]

سلام
چطوری میتونیم تشخیص بدیم که برنامه در حال اجراست و از اجرای دوباره اون جلوگیریر کنیم ؟
(خیلی فوری لطفا کمک کنید)
با تشکر

[pmm1024@gmail.com]

با سلام
با چه زبانی برنامه نویسی می کنید؟!

[akbar_2020]

با ویژوال فاکس پرو 9

[pmm1024@gmail.com]

تکه کد زیر پروسه Notepad را شناسایی کرده و آن را از بین می برد.



*Is EXE running

? IsExeRunning(lcExeName)

...

* Terminate EXE if it's running

? IsExeRunning(lcExeName, .T.)

...

RETURN



FUNCTION IsExeRunning(tcName, tlTerminate)

LOCAL loLocator, loWMI, loProcesses, loProcess, llIsRunning

loLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator')

loWMI = loLocator.ConnectServer()

loWMI.Security_.ImpersonationLevel = 3 && Impersonate



loProcesses = loWMI.ExecQuery([SELECT * FROM Win32_Process WHERE Name = '] + tcName + ['])

llIsRunning = .F.

IF loProcesses.Count > 0

FOR EACH loProcess in loProcesses

llIsRunning = .T.

IF tlTerminate

loProcess.Terminate(0)

ENDIF

ENDFOR

ENDIF

RETURN llIsRunning


برای اطلاعات بیشتر به این وبسایت (http://www.berezniker.com/content/pages/visual-foxpro/check-if-exe-running-and-optionally-terminate-it)مراجعه کنید.