lcCurrentUser = getenv("USERNAME") FOR EACH PROCESS IN oStuff lcOwner = '' PROCESS.getOwner(@lcOwner) IF PROCESS.NAME = ltProcess and not empty(lcOwner) and lcOwner = lcCurrentUser i = i + 1 IF pnPID <> PROCESS.ProcessId AND ltKill = .T. PROCESS.TERMINATE() ENDIF ENDIF ENDFOR>Hi All,
> >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 > >