Memory Leak - xharbour

50 views
Skip to first unread message

Eduardo Motta

unread,
Oct 14, 2021, 1:35:38 PMOct 14
to
Running the example below the application accumulates memory indefinitely.


Function TestMemoryLeak()
While LastKey() # 27
? InExecution("teste.exe")
HB_GCALL(.t.)
inkey(.01)
EndDo

Return


Static FUNCTION WMIService()
static oWMI

local oLocator

if oWMI == nil
oLocator := CREATEOBJECT( "wbemScripting.SwbemLocator" )
oWMI := oLocator:ConnectServer()
endif

return oWMI

Static Function InExecution(cNameApl)
Local oWmi, oList, oProc
Local cExecName := cNameApl
Local nCont := 0

oWmi := WmiService()

oList := oWmi:ExecQuery( "select * from Win32_Process" )

For each oProc in oList
Try
if cExecName in lower(oProc:ExecutablePath)
nCont++
endif
catch
End
Next

Return nCont
Reply all
Reply to author
Forward
0 new messages