Let's help each other out
https://www.autohotkey.com:443/boards/
https://www.autohotkey.com:443/boards/viewtopic.php?f=76&t=62939
Code: Select all
MsgBox % GetWorkingSetPrivateSize(2580) " K"
GetWorkingSetPrivateSize(PID)
{
if (DllCall("ntdll.dll\NtQuerySystemInformation", "int", 0x5, "ptr", 0, "uint", 0, "uint*", size) != 0) {
size := VarSetCapacity(buf, size, 0)
if (DllCall("ntdll\NtQuerySystemInformation", "int", 0x5, "ptr", &buf, "uint", size, "uint*", 0) != 0)
return (ErrorLevel := 2) & 0
addr := &buf
while (addr) {
if (NumGet(addr + 56 + A_PtrSize * 3, "ptr") = PID)
return NumGet(addr + 8, "int64") // 1024
if !(NumGet(addr + 0, "uint"))
break
addr += NumGet(addr + 0, "uint")
}
}
return (ErrorLevel := 1) & 0
}
You might want to look at this thread:
Code: Select all
EmptyMem(PIDtoEmpty)
{
h:=DllCall("OpenProcess", "UInt", 0x001F0FFF, "Int", 0, "Int", PIDtoEmpty)
DllCall("SetProcessWorkingSetSize", "UInt", h, "Int", -1, "Int", -1)
DllCall("CloseHandle", "Int", h)
}
Working Set is ok but Private Bytes is not shrunk. Maybe because it's impossible anyway.SOTE wrote: ↑23 Nov 2020, 17:14You might want to look at this thread:
https://autohotkey.com/board/topic/30042-run-ahk-scripts-with-less-half-or-even-less-memory-usage/
(Run AHK scripts with less (half or even less) memory usage)
Code: Select all
EmptyMem(PIDtoEmpty) { h:=DllCall("OpenProcess", "UInt", 0x001F0FFF, "Int", 0, "Int", PIDtoEmpty) DllCall("SetProcessWorkingSetSize", "UInt", h, "Int", -1, "Int", -1) DllCall("CloseHandle", "Int", h) }
It did not work for Private Bytes. It has an effect on total memory but has no effect on Private Bytes. I have to radically change my application approach and find a different solution.jNizM wrote: ↑26 Nov 2020, 03:17Can you try this function?
https://github.com/jNizM/MemoryInfo/blob/master/src/MemoryInfo.ahk#L78
Or take a look in these 2 tools from Sysinternals:
https://docs.microsoft.com/en-us/sysinternals/downloads/rammap
https://docs.microsoft.com/en-us/sysinternals/downloads/vmmap