FOXPRO TO XBASE++ CONVERSION

[unixkd]

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

[Auge_Ohr]

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.

Win32_Process.zip

WMI Source

(1.37 KiB) Downloaded 893 times

... i wonder why you want to use WMI COM Interface
Express++ have

Code: Select all

FUNCTION DC_IsAppRunning( cClass, cTitle, cFile, lRestore )

[unixkd]

Hi Jimmy

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

[Auge_Ohr]

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

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

[unixkd]

WMISample.jpg (105.15 KiB) Viewed 23580 times

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

[Auge_Ohr]

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.

[rdonnay]

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

[unixkd]

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.

[Auge_Ohr]

try this Code to close Excel

[unixkd]

Hi Jimmy

SendMessageA() not found in CLOSEIT

Thanks