Автор Eternal Neverend задал вопрос в разделе Другие языки и технологии
Как можно изменить приоритет процесса по его имени (id неизвестен) в Delphi ? и получил лучший ответ
Ответ от Дядя Лёша[гуру]
если текущего процесса, то.. .
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;
если процесс другой программы, то тебе нужен ее ProcessHandle, его можно найти с помощью примера отсюда
в общем примерно вот так
hwnd := findwindow(nil, " window caption" );
if hwnd = 0
then exit;
idprocess := getwindowthreadprocessid(hwnd, @dwprocessid);
hprocess := openprocess(process_all_access, false, dwprocessid);
SetPriorityClass(hprocess, REALTIME_PRIORITY_CLASS);
svchost.exe перегружает процессор на 100% почему?
И так, svchost грузит процессор процентов примерно на пятьдесят. Винда свежая, только поставлена,
подробнее...