7human7, «средствами Windows», как это сформулировано Вами — нет. Можно сделать скрипт, либо изначально запускающий требуемый процесс с повышенным приоритетом, либо следящий за созданием процессов и повышающий приоритет процесса, совпадающего по исполняемому пути с искомым.
Например, для Блокнота сие может выглядеть так:
* запуск процесса с повышенным приоритетом:
читать дальше »
Код:
Option Explicit
Const HIGH_PRIORITY_CLASS = &H00000080
Dim strPath2FileName
Dim objSWbemServicesEx
Dim objSWbemObjectEx_Win32_ProcessStartup
Dim intProcessID
strPath2FileName = "c:\windows\system32\notepad.exe"
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objSWbemObjectEx_Win32_ProcessStartup = objSWbemServicesEx.Get("Win32_ProcessStartup").SpawnInstance_
objSWbemObjectEx_Win32_ProcessStartup.PriorityClass = HIGH_PRIORITY_CLASS
If objSWbemServicesEx.Get("Win32_Process").Create( _
Replace(strPath2FileName, "\", "\\"), Null, objSWbemObjectEx_Win32_ProcessStartup, intProcessID) <> 0 Then
WScript.Echo "Can't create process [" & strPath2FileName & "]"
End If
Set objSWbemObjectEx_Win32_ProcessStartup = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0
* слежение за созданием процессов и повышение приоритета заданного процесса:
читать дальше »
Код:
Option Explicit
Const HIGH_PRIORITY_CLASS = &H00000080
Dim strPath2FileName
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx
Dim intProcessID
strPath2FileName = "c:\windows\system32\notepad.exe"
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecNotificationQuery( _
"SELECT * FROM __InstanceCreationEvent WITHIN 1 " & _
"WHERE TargetInstance ISA 'Win32_Process' " & _
"AND TargetInstance.ExecutablePath = '" & Replace(strPath2FileName, "\", "\\") & "'")
Do
Set objSWbemObjectEx = collSWbemObjectSet.NextEvent
If objSWbemObjectEx.TargetInstance.SetPriority(HIGH_PRIORITY_CLASS) <> 0 Then
WScript.Echo "Can't set priority of process [" & strPath2FileName & "]"
End If
Loop
Set objSWbemObjectEx = Nothing
Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
WScript.Quit 0
Насколько я понимаю, установив Prio - Priority Saver Вы уже решили свою проблему?
