> >check Instance('myprog.exe') > >*----------------------------* >FUNCTION CheckInstance() >*---------------------------- >LPARAMETER ltProcess, ltKill > >oManager = GETOBJECT("winmgmts:") >oStuff = oManager.InstancesOf("Win32_process") >i = 0 > >pnPID = GetProcessID() > >FOR EACH PROCESS IN oStuff > IF PROCESS.NAME = ltProcess > i = i + 1 > IF pnPID <> PROCESS.ProcessId AND ltKill = .T. > PROCESS.TERMINATE() > ENDIF > ENDIF > >ENDFOR > >RETURN i > >*----------------------------* >FUNCTION GetProcessID() >*----------------------------* >* Identify the process id for the process >DECLARE INTEGER GetCurrentProcessId IN kernel32 >pnPID = GetCurrentProcessId() > >RETURN pnPID > >ENDFUNC > >