我想在我的程序起来时,把程序的优先级设为“高于标准”,用以下几个api 函数
 Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
 Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 Declare Function GetCurrentProcess Lib "kernel32" () As Long
 Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
在任务管理器里看,我的应用程序优先级还是标准,不知道应该怎么做?