Change the Priority of the Current Process

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' #VBIDEUtils#**************************************** ' * Programmer Name : Waty Thierry ' * Web Site : http://www.geocities.com/ResearchTriangle/6311/ ' * E-Mail : waty.thierry@usa.net ' * Date : 25/11/1999 ' * Time : 15:50 ' *********************************************** ' * Comments : Change the priority of a process ' ******************************************* Option Explicit Public Enum PRIORITY_CLASS NORMAL_PRIORITY_CLASS = &H20 IDLE_PRIORITY_CLASS = &H40 HIGH_PRIORITY_CLASS = &H80 REALTIME_PRIORITY_CLASS = &H100 End Enum Private Const PROCESS_DUP_HANDLE = &H40 Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function GetCurrentProcessId _ Lib "kernel32" () As Long Private Declare Function SetPriorityClass Lib "kernel32" _ (ByVal hProcess As Long, ByVal dwPriorityClass As Long) _ As Long