How to get the size of a process?

April 18, 2013

I am dealing with a Java application, which creates multiple versions of a named window.

The named windows give a result of 0 (zero) when called

ConsoleWrite("!+ " & @ScriptLineNumber & " " &  FileGetSize(WinGetProcess("javaw.exe" ,"")) &  @CRLF)

Requesting

$list = ProcessGetStats("javaw.exe",1)
_ArrayDisplay($list, @ScriptLineNumber & " " & $list)

delivers the expected results, but not the size as posted in the fifth column of the task manager list.

The PID handle is easy to get with WinGetHandle("xyzabc - era", ""), but I cannot find a way to get the matching size.

Does anyone know a way?

April 18, 2013

guwguw,

Read

And

FileGetSize()

Anonymous

_SingletonHWID() · April 18, 2013

Look at the return values of those functions and you will see why it doesn't work.

April 19, 2013

You can do something like that:

Run("notepad.exe")
WinWait("[CLASS:Notepad]")

$pid = WinGetProcess("[CLASS:Notepad]")
$path = _ProcessGetLocation($pid)

If @error Then
    MsgBox(0, "Error", "Unable to get the process location")
    Exit
EndIf

ConsoleWrite("Process path: " & $path & @CRLF) ;Debug only

$size = FileGetSize($path)
MsgBox(0, "", "The size is: " & $size & "bytes.")

Func _ProcessGetLocation($iPID)
    Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
    If $aProc[0] = 0 Then Return SetError(1, 0, '')
    Local $vStruct = DllStructCreate('int[1024]')
    DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
    Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
    If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
    Return $aReturn[3]
EndFunc   ;==>_ProcessGetLocation

Hi!

Edited April 19, 2013 by Nessie

April 19, 2013

You can do something like that:

Run("notepad.exe")
WinWait("[CLASS:Notepad]")

$pid = WinGetProcess("[CLASS:Notepad]")
$path = _ProcessGetLocation($pid)

If @error Then
MsgBox(0, "Error", "Unable to get the process location")
Exit
EndIf

ConsoleWrite("Process path: " &amp; $path &amp; @CRLF) ;Debug only

$size = FileGetSize($path)
MsgBox(0, "", "The size is: " &amp; $size &amp; "bytes.")

Func _ProcessGetLocation($iPID)
Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID)
If $aProc[0] = 0 Then Return SetError(1, 0, '')
Local $vStruct = DllStructCreate('int[1024]')
DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0)
Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048)
If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '')
Return $aReturn[3]
EndFunc ;==>_ProcessGetLocation

Hi!

Nessie, your approach seemed promising at first.

But since the Func _ProcessGetLocation($iPID) is pretty much a mystery to me, I cannot deduct the desired value (I'm not after the file size!).

Your utility reports "The size of C:\Windows\System32\notepad.exe is: 70144 bytes." - which is the file size of Notepad, not the size of the memory space it operates in, reported by Windows Task Manager as size of 2.944 k in the fifths column (here it's titled "Speicherauslastung") - sorry if I caused a confusion here, but "Speicherauslastung" was translated by Google as "size".

guinness,

During my research, I had come across (your?) Func _WinGetDetails($sTitle, $sText = '') and tried to adapt it to deliver that fifth column value, but did not succeed.

I tried to follow your advice "Look at the return values of those functions and you will see why it doesn't work." ... to no avail!

What can I deduct from a zero?

It reads like "Eat an egg and you will know why it's not a chicken."

Edited April 19, 2013 by guwguw

_SingletonHWID() · April 19, 2013

Nessie assumed what we all thought. Look at MemGetStats.

April 19, 2013

Look at MemGetStats.

Is it possible to extract the desired value via MemGetStats?

I only managed to get overall system memory info from it, nothing in relation to single processes.

_SingletonHWID() · April 19, 2013

My mistake. Look at _WinAPI_GetProcessMemoryInfo in WinAPIEx.

April 19, 2013

Look at _WinAPI_GetProcessMemoryInfo in WinAPIEx.

I get

Number of page faults: 4210

Peak working set size: 15052800 bytes

Current working set size: 15052800 bytes

Peak paged pool usage: 74772 bytes

Current paged pool usage: 61788 bytes

Peak nonpaged pool usage: 3128 bytes

Current nonpaged pool usage: 2800 bytes

Current space allocated for the pagefile: 12775424 bytes

Peak space allocated for the pagefile: 12775424 bytes

Current private space: 12775424 bytes

still nothing process-related.

I think I'll give up this route (AutoIt) and get the desired data via OCR of the Task Manager or a direct memory-read ...

The underlying problem is a Java trading program that used to perform for an entire week uninterruptedly without problem.

During the last two years there were a lot of programmer changes (at the program company) who added not functions, but obviously a lot of debugging information, bloating the software to a level, where I have to unload and reload the program about every two hours to prevent it from freezing the trading interface.

My goal is to automate the refreshing cycles before the affected parts reach their critical limits.

_SingletonHWID() · April 19, 2013

Look around then for WMI.

Back up and restore Windows user files · April 19, 2013

If I'm not mistaken, that information you posted about the return from _WinAPI_GetProcessMemoryInfo gives you exactly what you were asking about doesn't it? Isn't the Working Set the memory info you're looking for?

April 19, 2013

This should do the trick:

#include <WinAPI.au3>
Run("notepad.exe")
WinWait("[CLASS:Notepad]")

$PID = WinGetProcess("[CLASS:Notepad]")
$size = _WinAPI_GetProcessMemoryInfo($PID)

If Not @error Then
    $size = $size / 1024
Else
    MsgBox(16, "Error", "Unable to retrive the used memory")
    Exit
EndIf

MsgBox(0, "", "The size is: " & $size & "KB")

Func _GetDisplaySize($iSize, $iPlaces = 2)
    Local $aBytes[5] = [' Bytes', ' KB', ' MB', ' GB', ' TB']
    For $i = 4 To 1 Step -1
        If $iSize >= 1024 ^ $i Then
            Return Round($iSize / 1024 ^ $i, $iPlaces) & $aBytes[$i]
        EndIf
    Next
    Return $iSize & ' Bytes'
EndFunc   ;==>_GetDisplaySize

Func _WinAPI_GetProcessMemoryInfo($PID = 0) ;Taken from WinAPIEx modified by Nessie
    Local $__WINVER = __WINVER()

    If Not $PID Then
        $PID = @AutoItPID
    EndIf

    Local $hProcess = DllCall('kernel32.dll', 'ptr', 'OpenProcess', 'dword', __Iif($__WINVER < 0x0600, 0x00000410, 0x00001010), 'int', 0, 'dword', $PID)

    If (@error) Or (Not $hProcess[0]) Then
        Return SetError(1, 0, 0)
    EndIf

    Local $tPMC_EX = DllStructCreate('dword;dword;ulong_ptr;ulong_ptr;ulong_ptr;ulong_ptr;ulong_ptr;ulong_ptr;ulong_ptr;ulong_ptr;ulong_ptr')
    Local $Ret = DllCall(@SystemDir & '\psapi.dll', 'int', 'GetProcessMemoryInfo', 'ptr', $hProcess[0], 'ptr', DllStructGetPtr($tPMC_EX), 'int', DllStructGetSize($tPMC_EX))

    If (@error) Or (Not $Ret[0]) Then
        $Ret = 0
    EndIf
    _WinAPI_CloseHandle($hProcess[0])
    If Not IsArray($Ret) Then
        Return SetError(1, 0, 0)
    EndIf

    Local $Result = DllStructGetData($tPMC_EX, 4)
    Return $Result
EndFunc   ;==>_WinAPI_GetProcessMemoryInfo

Func __WINVER()

    Local $tOSVI = DllStructCreate('dword;dword;dword;dword;dword;wchar[128]')

    DllStructSetData($tOSVI, 1, DllStructGetSize($tOSVI))

    Local $Ret = DllCall('kernel32.dll', 'int', 'GetVersionExW', 'ptr', DllStructGetPtr($tOSVI))

    If (@error) Or (Not $Ret[0]) Then
        Return SetError(1, 0, 0)
    EndIf
    Return BitOR(BitShift(DllStructGetData($tOSVI, 2), -8), DllStructGetData($tOSVI, 3))
EndFunc   ;==>__WINVER

Func __Iif($fTest, $iTrue, $iFalse)
    If $fTest Then
        Return $iTrue
    Else
        Return $iFalse
    EndIf
EndFunc   ;==>__Iif

Hi!

Edited April 19, 2013 by Nessie

April 20, 2013

Here the code which I'm using to determine the amount of memory which uses Iron.

#include <Array.au3>
Global $sInput = InputBox("Process Memory Usage", "Enter a proces name", "Iron.exe", "", 250, 130)
If @error Or Not $sInput Then Exit

Global Const $sProcessName = "Iron.exe"
Global Const $aProcessList = ProcessList($sProcessName)
If Not $aProcessList[0][0] Then Exit MsgBox(16, "Error", "No process found with the name " & $sInput, 30)
Global Const $Process_All_Access = 0x1F0FFF
Global $iMem1 = 0, $iMem2 = 0

For $i = 1 To $aProcessList[0][0]
    $ProcHandle = DllCall("kernel32.dll", "handle", "OpenProcess", "dword", $Process_All_Access, "int", False, "dword", $aProcessList[$i][1])
    $iMem1 += _WinAPI_GetProcessMemoryInfo($ProcHandle[0])
    $iMem2 += _WinAPI_GetProcessMemoryInfo($ProcHandle[0], "PrivateUsage")
Next
MsgBox(0, "Mem Usage",  "Iron Total Mem Usage (working set): " & Round($iMem1 / 1024^3, 2) & " GB" & @LF & _
                        "Iron Total Mem Usage (private bytes): " & Round($iMem2 / 1024^3, 2) & " GB")

Exit

Func _WinAPI_GetProcessMemoryInfo($hProcess, $sMemType = "WorkingSize") ;get physical memory of the process -> http://msdn.microsoft.com/en-us/library/ms683219%28VS.85%29.aspx
    Local $tPROCESS_MEMORY_COUNTERS, $tPROCESS_MEMORY_COUNTERS_EX, $nSize, $aRet
    If @OSBuild < 7600 Then
        $tPROCESS_MEMORY_COUNTERS = DllStructCreate( _  ;http://msdn.microsoft.com/en-us/library/ms684877%28VS.85%29.aspx
                "dword cb; dword PageFaultCount; dword_ptr PeakWorkingSetSize; dword_ptr WorkingSetSize; " & _
                "dword_ptr QuotaPeakPagedPoolUsage; dword_ptr QuotaPagedPoolUsage; dword_ptr QuotaPeakNonPagedPoolUsage; " & _
                "dword_ptr QuotaNonPagePoolUsage; dword_ptr PagefileUsage; dword_ptr PeakPagefileUsage")
        $nSize = DllStructGetSize($tPROCESS_MEMORY_COUNTERS)
        $aRet = DllCall("psapi.dll", "int", "GetProcessMemoryInfo", "handle", $hProcess, "struct*", $tPROCESS_MEMORY_COUNTERS, "dword", $nSize) ;call GetProcessMemoryInfo
        If $aRet[0] = 0 Then
            SetError(1, 0, $aRet[0])
        EndIf
        Return DllStructGetData($tPROCESS_MEMORY_COUNTERS, "WorkingSetSize")
    Else
        $tPROCESS_MEMORY_COUNTERS_EX = DllStructCreate( _   ;http://msdn.microsoft.com/en-us/library/ms684877%28VS.85%29.aspx
                "dword cb; dword PageFaultCount; dword_ptr PeakWorkingSetSize; dword_ptr WorkingSetSize; " & _
                "dword_ptr QuotaPeakPagedPoolUsage; dword_ptr QuotaPagedPoolUsage; dword_ptr QuotaPeakNonPagedPoolUsage; " & _
                "dword_ptr QuotaNonPagePoolUsage; dword_ptr PagefileUsage; dword_ptr PeakPagefileUsage; " & _
                "dword_ptr PrivateUsage")
        $nSize = DllStructGetSize($tPROCESS_MEMORY_COUNTERS_EX)
        $aRet = DllCall("Kernel32.dll", "int", "K32GetProcessMemoryInfo", "handle", $hProcess, "struct*", $tPROCESS_MEMORY_COUNTERS_EX, "dword", $nSize) ;call GetProcessMemoryInfo
        If $aRet[0] = 0 Then
            SetError(1, 0, $aRet[0])
        EndIf
        Switch $sMemType
            Case "PrivateUsage"
                Return DllStructGetData($tPROCESS_MEMORY_COUNTERS_EX, "PrivateUsage")
            Case "WorkingSize"
                Return DllStructGetData($tPROCESS_MEMORY_COUNTERS_EX, "WorkingSetSize")
        EndSwitch
    EndIf
EndFunc   ;==>_WinAPI_GetProcessMemoryInfo

Br,

UEZ

_SingletonHWID() · April 20, 2013

Nessie,

I don't really condone stripping from WinAPIEx unless you put a warning that it might cause problems if you use WinAPIEx.

April 20, 2013

Nessie,
I don't really condone stripping from WinAPIEx unless you put a warning that it might cause problems if you use WinAPIEx.

You are right, but that was only an example

And if he uses in his script the function _WinAPI_GetProcessMemoryInfo() modified by me in the example in association with #include <WinAPIEx.au3>, Scite will warn him because the function is already used by WinAPIEx.au3.

BTW every your advice is welcome , so let's drink a beer together

Hi!

April 21, 2013

guwguw,

I get
Number of page faults: 4210
Peak working set size: 15052800 bytes
Current working set size: 15052800 bytes
Peak paged pool usage: 74772 bytes
Current paged pool usage: 61788 bytes
Peak nonpaged pool usage: 3128 bytes
Current nonpaged pool usage: 2800 bytes
Current space allocated for the pagefile: 12775424 bytes
Peak space allocated for the pagefile: 12775424 bytes
Current private space: 12775424 bytes

still nothing process-related.

Not True...see the following code

#include <guiconstants.au3>
#include <windowsconstants.au3>
#include <guilistview.au3>
#include <winapiex.au3>
#include <process.au3>

local $hdr = '# PF|P-WS|C-WS|P-PPU|C-PPU|P-NPPU|C-NPPU|C-Page|P-Page|C-XMEM'

local $gui010   =   guicreate('Memory Usage Monitor for PID = ' & @autoitpid,1100,800)
local $aSize    =   wingetclientsize($gui010)
                    guictrlcreatelabel('Memory Stats for Process = ' & _processgetname(@autoitpid),10,20,400,30)
                    guictrlsetfont(-1,12,800)
local $lst010   =   GUICtrlCreateListView($hdr,10,50,$aSize[0]-20,$aSize[1]-150)
local $aLVSize  =   controlgetpos($gui010,'',$lst010)
                    guictrlcreatelabel(' * - See the Help File for a definition of what each column means',10,$aSize[1]-80,$aSize[0]-20,150)
                    guictrlsetfont(-1,10,800,default,'courier new')



for $1 = 0 to _GUICtrlListView_GetColumnCount($lst010) + 1
    _GUICtrlListView_SetColumnWidth($lst010, $1, $aLVSize[2]/_GUICtrlListView_GetColumnCount($lst010))
next

guisetstate()
adlibregister('_logmem',3000)

while 1
    switch guigetmsg()
        case $gui_event_close
            Exit
    EndSwitch
WEnd

func _logmem()

    local $aMem = _winapi_getprocessmemoryinfo(@autoitpid)
    if $aMem = 0 then ConsoleWrite('Error in getprocessmemoryinfo' & @LF)

    local $lv_str = ''

    for $1 = 0 to ubound($aMem) - 1
        $lv_str &= $aMem[$1] & '|'
    next

    $lv_str = stringtrimright($lv_str,1)

    guictrlcreatelistviewitem($lv_str, $lst010)

endfunc

(as BrewManNH suggested)

kylomas

April 21, 2013

guwguw,

This shows more clearly that process specific stats are being returned

#include <guiconstants.au3>
#include <windowsconstants.au3>
#include <guilistview.au3>
#include <winapiex.au3>
#include <process.au3>

local $hdr = 'Process Name|PID|# PF|P-WS|C-WS|P-PPU|C-PPU|P-NPPU|C-NPPU|C-Page|P-Page|C-XMEM'

local $gui010   =   guicreate('Memory Usage Monitor',1200,800)
local $aSize    =   wingetclientsize($gui010)
local $lst010   =   GUICtrlCreateListView($hdr,10,50,$aSize[0]-20,$aSize[1]-150)
                    guictrlsetfont(-1,8,600,default,'lucinda console')
local $aLVSize    =    controlgetpos($gui010,'',$lst010)
                    guictrlcreatelabel(' * - See the Help File for a definition of what each column means',10,$aSize[1]-80,$aSize[0]-20,150)
                    guictrlsetfont(-1,10,800,default,'courier new')



for $1 = 0 to _GUICtrlListView_GetColumnCount($lst010) + 1
    _GUICtrlListView_SetColumnWidth($lst010, $1, $aLVSize[2]/_GUICtrlListView_GetColumnCount($lst010))
next

guisetstate()
adlibregister('_logmem',2000)

_logmem()

while 1
    switch guigetmsg()
        case $gui_event_close
            Exit
    EndSwitch
WEnd

func _logmem()

    if _GUICtrlListView_DeleteAllItems(guictrlgethandle($lst010)) = false then
        ConsoleWrite('delete items failed' & @LF)
        Exit
    endif


    local $apids = processlist(), $lv_str = '', $amem

;~     _arraydisplay($apids)
;~     exit

    for $1 = 1 to $apids[0][0]
        $lv_str = ''
        $lv_str &= $apids[$1][0] & '|'
        $lv_str &= $apids[$1][1] & '|'

        $aMem = _winapi_getprocessmemoryinfo($apids[$1][1])
        if $aMem = 0 then continueloop

        for $2 = 0 to ubound($aMem) - 1
            $lv_str &= $aMem[$2] & '|'
        next

        $lv_str = stringtrimright($lv_str,1)

        guictrlcreatelistviewitem($lv_str, $lst010)

        ;msgbox(0,'','')

    next

endfunc

kylomas

Edited April 21, 2013 by kylomas

How to get the size of a process?

Recommended Posts

guwguw 0

Share this post

Link to post

Share on other sites

Decipher 27

Share this post

Link to post

Share on other sites

guinness 1,455

Share this post

Link to post

Share on other sites

Nessie 29

Share this post

Link to post

Share on other sites

guwguw 0

Share this post

Link to post

Share on other sites

guinness 1,455

Share this post

Link to post

Share on other sites

guwguw 0

Share this post

Link to post

Share on other sites

guinness 1,455

Share this post

Link to post

Share on other sites

guwguw 0

Share this post

Link to post

Share on other sites

guinness 1,455

Share this post

Link to post

Share on other sites

BrewManNH 1,074

Share this post

Link to post

Share on other sites

Nessie 29

Share this post

Link to post

Share on other sites

UEZ 1,074

Share this post

Link to post

Share on other sites

guinness 1,455

Share this post

Link to post

Share on other sites

Nessie 29

Share this post

Link to post

Share on other sites

kylomas 411

Share this post

Link to post

Share on other sites

kylomas 411

Share this post

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Browse

AutoIt Resources

Release

Beta