• Home
 · 
• Windows System Services
 · 
• THIS IS HOW TO RUN AN .EXE FILE WITH THE PRIORITY YOU WANT, CHOOSE BETWEEN: IDLE, NORMAL, HIGH, REA

THIS IS HOW TO RUN AN .EXE FILE WITH THE PRIORITY YOU WANT, CHOOSE BETWEEN: IDLE, NORMAL, HIGH, REA

THIS IS HOW TO RUN AN .EXE FILE WITH THE PRIORITY YOU WANT, CHOOSE BETWEEN: IDLE, NORMAL, HIGH, REAL-TIME PRIORITY

API Declarations


'This is by: Islam Mohamed Adel



Rate THIS IS HOW TO RUN AN .EXE FILE WITH THE PRIORITY YOU WANT, CHOOSE BETWEEN: IDLE, NORMAL, HIGH, REA

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const PROCESS_QUERY_INFORMATION = &H400
Enum Priority
    High = &H80
    RealTime = &H100
    Normal = &H20
    Idle = &H40
End Enum
Enum ProgState
    NormalFocus = vbNormalFocus
    MaximizedFocus = vbMaximizedFocus
    MinimizedFocus = vbMinimizedFocus
    Hidden = vbHide
End Enum


Public Function Run(ExeFileName As String, Optional ProcessPriority As Priority = &H20, Optional ProgramState As ProgState = vbNormalFocus) As Boolean
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, Shell(ExeFileName, ProgramState))
SetPriorityClass hProcess, ProcessPriority
Dim I As Long, S As String
I = GetPriorityClass(hProcess)
If I <> ProcessPriority Then GoTo ER:
Run = True
Exit Function
ER:
Run = False
End Function