View Full Version : نحوه تشخیص اجرا شدن برنامه
akbar_2020
سه شنبه 11 شهریور 1393, 14:19 عصر
سلام
چطوری میتونیم تشخیص بدیم که برنامه در حال اجراست و از اجرای دوباره اون جلوگیریر کنیم ؟
(خیلی فوری لطفا کمک کنید)
با تشکر
pmm1024@gmail.com
سه شنبه 11 شهریور 1393, 14:24 عصر
با سلام
با چه زبانی برنامه نویسی می کنید؟!
akbar_2020
سه شنبه 11 شهریور 1393, 14:27 عصر
با ویژوال فاکس پرو 9
pmm1024@gmail.com
سه شنبه 11 شهریور 1393, 14:30 عصر
تکه کد زیر پروسه 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)مراجعه کنید.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.