#Persistent
Process, Exist, explorer.exe
oProc := ComObjGet("winmgmts:").Get("Win32_Process.Handle=" . ErrorLevel)
_MemoryWatch := Func("MemoryWatch").Bind(oProc)
SetTimer, % _MemoryWatch, 1000
Return

MemoryWatch(Proc)
{
   Proc.Refresh_
   TrayTip, Память explorer.exe, % Proc.WorkingSetSize//1024 . " КБ"
}