提高进程优先级

procedure TForm1.Button1Click(Sender: TObject); var   ProcessID : DWORD;   ProcessHandle : THandle;   ThreadHandle : THandle; begin   ProcessID := GetCurrentProcessID;   ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,                                false,                                ProcessID);   SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);   ThreadHandle := GetCurrentThread;   SetThreadPriority(ThreadHandle, THREAD_PRIORITY_TIME_CRITICAL); end;

 

版权声明

请尊重原创作品。转载请保持文章完整性，并以超链接形式注明原始作者“tingsking18”和主站点地址，方便其他朋友提问和指正。