bb.donnay-software.com

Hi Roger

How can I convert this Foxpro function to Xbase++ ?

FUNCTION IsExeRunning(tcName, tlTerminate)
LOCAL loLocator, loWMI, loProcesses, l 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

Thanks

Joe

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

this was generated from my Xbase++ App.
it does include all Property so just take what you need. ... i wonder why you want to use WMI COM Interface
Express++ have

Hi Jimmy

The Process Class has :Terminate() Method, How can I use it

unixkd wrote:The Process Class has :Terminate() Method, How can I use it

hm ... i can see "TerminationDate" ... but they are all Property no Method.

Hi Jimmy

Check the "execute a method" of WMI code creator as shown above and you will see the 6 methods exposed by object.

Thanks

Joe

unixkd wrote:Check the "execute a method" of WMI code creator as shown above and you will see the 6 methods exposed by object.

you are right but my Xbase++ WMI Generator does not know how to "detect" WMI Method ... only Property.

If you need to kill a window you could use the TASKKILL command.

Hi Roger

The RunShell( '/IM Excel.exe', 'TaskKill.Exe' ) gives operating system error 2

I think the foxpro sample will give the desired result if it can be converted to Xbase++

Thanks.

try this Code to close Excel

Hi Jimmy

SendMessageA() not found in CLOSEIT

Thanks