Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Const IDLE_PRIORITY_CLASS = &H40
Const NORMAL_PRIORITY_CLASS = &H20
Const HIGH_PRIORITY_CLASS = &H80
Const REALTIME_PRIORITY_CLASS = &H100
Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdSetClass_Click()
'/속성 클래스 설정
Dim dPriority As Long
If Combo1.Text <> "" Then
Select Case Combo1.Text
Case "IDLE"
dPriority = IDLE_PRIORITY_CLASS
Case "NORMAL"
dPriority = NORMAL_PRIORITY_CLASS
Case "HIGH"
dPriority = HIGH_PRIORITY_CLASS
Case "REALTIME"
dPriority = REALTIME_PRIORITY_CLASS
End Select
SetPriorityClass GetCurrentProcess(), dPriority
Text1 = "속성 클래스가 설정되었습니다."
Else
Text1 = "설정할 속성 클래스를 선택하십시오."
End If
End Sub
Private Sub CmdGetClass_Click()
'/속성 클래스 구하기
Dim dPClass As Long
Dim dPriority As String
dPClass = GetPriorityClass(GetCurrentProcess())
Select Case dPClass
Case IDLE_PRIORITY_CLASS
dPriority = "IDLE"
Case NORMAL_PRIORITY_CLASS
dPriority = "NORMAL"
Case HIGH_PRIORITY_CLASS
dPriority = "HIGH"
Case REALTIME_PRIORITY_CLASS
dPriority = "REALTIME"
End Select
Text1 = "설정된 속성 클래스 : " & dPriority
End Sub
Private Sub Form_Load()
Combo1.AddItem "IDLE"
Combo1.AddItem "NORMAL"
Combo1.AddItem "HIGH"
Combo1.AddItem "REALTIME"
End Sub