Узнать что приложение занято, выполняет фоновую работу

#include<WinAPIEx.au3>
_WinAPI_GetProcessIoCounters()

#include <WinAPIEx.au3>

HotKeySet("{PAUSE}", "_Exit")

While 1
	$h = ProcessExists('firefox.exe')	; PS. Заметил что он у меня в фоне стабильно
										; от 1-20% проца отжирает
										; Даже если вкладки все закрыты
										; Жесть, блин! :(
	TrayTip('PAUSE-Выход', Ceiling(GetProcessUsage($h)) & ' %', 1000)
WEnd

Func GetProcessUsage($hProc)
	Local $last_sys, $last_proc, $sys, $proc, $ret
	$last_sys = _WinAPI_GetSystemTimes()
	$last_proc = _WinAPI_GetProcessTimes($hProc)
	Sleep(1000)
	$sys = _WinAPI_GetSystemTimes()
	$proc = _WinAPI_GetProcessTimes($hProc)
	$sys[1] -= $last_sys[1]
	$sys[2] -= $last_sys[2]
	$proc[1] -= $last_proc[1]
	$proc[2] -= $last_proc[2]

	$ret = (($proc[1]+$proc[2])/($sys[1]+$sys[2]))*100.0
	If StringInStr($ret, '#') Then $ret = 0

	Return $ret
EndFunc

Func _Exit()
	Exit
EndFunc