Изменение приоритета процесса

← →
saNat © (2003-11-29 00:26) [0]

Подскажите, пожалуйста, как сменить приоритет процесса... Функция SetPriorityClass() всегда выдает False.
С благодарностью, ЕВА.

← →
jack128 © (2003-11-29 00:48) [1]

что GetLastError говорит?

← →
Dimaxx © (2003-11-29 02:21) [2]

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;

← →
saNat © (2003-12-11 11:45) [3]

to jack128: Возвращает значение 6... а как бы узнать что енто значит...

to Dimaxx: Ну я примерно так и делаю... только зачем поток трогать... тем более что х может быть несколько...

> saNat © (11.12.03 11:45) [3]
> to jack128: Возвращает значение 6... а как бы узнать что
> енто значит...

Invalid handle. А вообще, есть функция полезная - SysErrorMessage(GetLastError) - вернет описание ошибки

> Возвращает значение 6...

> Invalid handle.

Тогда видимо
> ProcessID := GetCurrentProcessID;
> ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,
> false,ProcessID);
if ProcessHandle = 0 then RaiseLastWin32Error;
> SetPriorityClass(ProcessHandle, REALTIME_PRIORITY_CLASS);
CloseHandle(ProcessHandle);
А думать дальше ;-)

Изменение приоритета процесса Найти похожие ветки