Code: Select all
Procedure GetRAMUsage(PID)
Protected PMC.PROCESS_MEMORY_COUNTERS
Protected Process = OpenProcess_(#PROCESS_ALL_ACCESS, #False, PID)
If Not Process
ProcedureReturn -1
EndIf
Protected Result = -1
If GetProcessMemoryInfo(Process, @PMC, SizeOf(PROCESS_MEMORY_COUNTERS))
Result = PMC\WorkingSetSize
EndIf
CloseHandle_(Process)
ProcedureReturn Result
EndProcedure
