2 replies to this topic

[Serenity]

Here's a wrapper function:

Msgbox % GetProcessMemoryInfo( "firefox.exe" )

GetProcessMemoryInfo( pname ) 
{
	Process, Exist, %pname%
	pid := Errorlevel

	; get process handle
	hProcess := DllCall( "OpenProcess", UInt, 0x10|0x400, Int, false, UInt, pid )

	; get memory info
	VarSetCapacity( memCounters, 40, 0 )
	DllCall( "psapi.dll\GetProcessMemoryInfo", UInt, hProcess, UInt, &memCounters, UInt, 40 )
	DllCall( "CloseHandle", UInt, hProcess )

	list = cb,PageFaultCount,PeakWorkingSetSize,WorkingSetSize,QuotaPeakPagedPoolUsage
	,QuotaPagedPoolUsage,QuotaPeakNonPagedPoolUsage,QuotaNonPagedPoolUsage
	,PagefileUsage,PeakPagefileUsage

	/*
	cb := NumGet( memCounters, 0, "UInt" )
	PageFaultCount := NumGet( memCounters, 4, "UInt" )
	PeakWorkingSetSize := NumGet( memCounters, 8, "UInt" )
	WorkingSetSize := NumGet( memCounters, 12, "UInt" )
	QuotaPeakPagedPoolUsage := NumGet( memCounters, 16, "UInt" )
	QuotaPagedPoolUsage := NumGet( memCounters, 20, "UInt" )
	QuotaPeakNonPagedPoolUsage := NumGet( memCounters, 24, "UInt" )
	QuotaNonPagedPoolUsage := NumGet( memCounters, 28, "UInt" )
	PagefileUsage := NumGet( memCounters, 32, "UInt" )
	PeakPagefileUsage := NumGet( memCounters, 36, "UInt" )
	*/

	n=0
	Loop, Parse, list, `,
	{
		n+=4
		SetFormat, Float, 0.0 ; round up K
		this := A_Loopfield
		this := NumGet( memCounters, (A_Index = 1 ? 0 : n-4), "UInt") / 1024

		; omit cb
		If A_Index != 1
			info .= A_Loopfield . ": " . this . " K" . ( A_Loopfield != "" ? "`n" : "" ) 
	}  

	; Return "[" . pid . "] " . pname . "`n`n" . info ; for everything
	Return WorkingSetSize := NumGet( memCounters, 12, "UInt" ) / 1024 . " K" ; what Task Manager shows
}

[DJAnonimo]

Serenity your function returns wrong size, it's about half size of the process memory usage.

 

Any idea why ?