1 #Region "Microsoft.VisualBasic::70b1299aaf4649ed5572809387bb9ae1, Microsoft.VisualBasic.Core\ApplicationServices\Tools\Win32\PriorityClass.vb"
2
3     ' Author:
4     
5     '       asuka (amethyst.asuka@gcmodeller.org)
6     '       xie (genetics@smrucc.org)
7     '       xieguigang (xie.guigang@live.com)
8     
9     ' Copyright (c) 2018 GPL3 Licensed
10     
11     
12     ' GNU GENERAL PUBLIC LICENSE (GPL3)
13     
14     
15     ' This program is free software: you can redistribute it and/or modify
16     ' it under the terms of the GNU General Public License as published by
17     ' the Free Software Foundation, either version 3 of the License, or
18     ' (at your option) any later version.
19     
20     ' This program is distributed in the hope that it will be useful,
21     ' but WITHOUT ANY WARRANTY; without even the implied warranty of
22     ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23     ' GNU General Public License for more details.
24     
25     ' You should have received a copy of the GNU General Public License
26     ' along with this program. If not, see <http://www.gnu.org/licenses/>.
27
28
29
30     ' /********************************************************************************/
31
32     ' Summaries:
33
34     '     Module PriorityClass
35     
36     '         Function: PriorityClass
37     
38     
39     ' /********************************************************************************/
40
41 #End Region
42
43 Namespace Win32
44
45     ''' <summary>
46     ''' Process priority class helper.
47     ''' </summary>
48     Public Module PriorityClass
49
50         ''' <summary>
51         ''' 当前进程句柄  
52         ''' </summary>
53         ''' <returns></returns>
54         Public Declare Function GetCurrentProcess Lib "kernel32" () As Integer
55         Public Declare Function SetPriorityClass Lib "kernel32" (hProcess As Integer, dwPriorityClass As IntegerAs Integer
56
57         ''' <summary>
58         ''' 新进程应该有非常低的优先级——只有在系统空闲的时候才能运行。基本值是4  
59         ''' </summary>
60         Public Const IDLE_PRIORITY_CLASS = &H40
61         ''' <summary>
62         ''' 新进程有非常高的优先级,它优先于大多数应用程序。基本值是13。注意尽量避免采用这个优先级  
63         ''' </summary>
64         Public Const HIGH_PRIORITY_CLASS = &H80
65         ''' <summary>
66         ''' 标准优先级。如进程位于前台,则基本值是9;如在后台,则优先值是7  
67         ''' </summary>
68         Public Const NORMAL_PRIORITY_CLASS = &H20
69
70         ''' <summary>
71         ''' Set Priority Class for current process.
72         ''' </summary>
73         ''' <param name="priority"><see cref="IDLE_PRIORITY_CLASS"/>, <see cref="HIGH_PRIORITY_CLASS"/>, <see cref="NORMAL_PRIORITY_CLASS"/></param>
74         ''' <returns></returns>
75         Public Function PriorityClass(priority As IntegerAs Boolean
76             Dim CurrentProcesshWnd As Integer = GetCurrentProcess
77
78             If (SetPriorityClass(CurrentProcesshWnd, priority) = 0) Then
79                 Return False
80             Else
81                 Return True
82             End If
83         End Function
84     End Module
85 End Namespace