5peciali5t
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ynbIpb
спасибо за вариант.
некто Вiтя мне уже помог написав в аську следующий вариант
Код: #NoTrayIcon
Global Const $interval = 2000 ;
Global $list = "Skype.exe|skypePM.exe|firefox.exe|opera.exe|iexplore.exe|icq.exe|iexplore.exe|utorrent.exe|vmware.exe|vmware-unity-helper.exe|vmware-tray.exe|vmware-authd.exe|vmware-usbarbitrator.exe"
Global $processlist = StringSplit($list, "|")
;-----
While 1
For $i = 1 To UBound($processlist) - 1
$pid = ProcessExists($processlist[$i])
If $pid Then
$list = ProcessList($processlist[$i])
for $i2 = 1 to $list[0][0]
;msgbox(0, $list[$i2][0], $list[$i2][1], 1) ;для визуальной проверки во время теста
_ReduceMemory($list[$i2][1])
next
endif
Next
_ReduceMemory();
Sleep($interval)
WEnd
Func _ReduceMemory($i_PID = -1)
If $i_PID <> -1 Then
Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
Else
Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
EndIf
Return $ai_Return[0]
EndFunc ; |
поменял по мелочи
_ReduceMemory($list[$i2][1]) |
