Приоритет своего приложения

[SoftKoc]

Здравствуйте

Подскажите пожалуйста как можно установить "высокий" приоритет своему приложению.

Заранее очень благодарен!

[glGizma]

С таким запросами нужно быть аккуратнее, высокий приоритет приложения не столь хорошая идея в том плане, что твоя прога повиснет и потянет за собой сбой системы. Набери в гуглях: Tasks&Processes Killer и ты дословно найдёшь ответ на свой вопрос...

[glGizma]

procedure TMainForm.setpriority(id:THandle;prclass:Cardinal);
var hproc:THANDLE;
begin
  hproc:=OpenProcess(PROCESS_ALL_ACCESS,false,id);
  SetPriorityClass(hproc,prclass);
  CloseHandle(hproc);
end;

procedure Tmainform.highClick(Sender: TObject);
begin
  setpriority(strtoint(processlist.Cells[1,processlist.row]),HIGH_PRIORITY_CLASS);
end;

[_Engine_]

Как-то так:

SetPriorityClass(Application.Handle, HIGH_PRIORITY_CLASS);

[Пепел Феникса]

SetPriorityClass(GetCurrentProcess,HIGH_PRIORITY_CLASS);

_Engine_, Application это всетаки не процесс
а кнопка на таскбаре(это окно как бы), так что пример, не подходит.

[_Engine_]

Сообщение от Пепел Феникса

_Engine_, Application это всетаки не процесс
.

Виноват, посыпаю голову пеплом.

[glGizma]

_Engine_,

разобрался??

[SoftKoc]

Разобрался, спасибо большое всем за помощь =-)))
И кстати с праздником, сегодня день программиста (13 сентября - День программиста)

[ZuBy]

И кстати с праздником, сегодня день программиста (13 сентября - День программиста)

Да-да, напьемся сегодня))

всех с праздником!

[Alter]

type
  TPriorMode = (pmNormal, pmIdle, pmHigh, pmRealtime); // приоритет программы

const
 PriorClass :Array[TPriorMode]of LongInt = (NORMAL_PRIORITY_CLASS, IDLE_PRIORITY_CLASS,
                                            HIGH_PRIORITY_CLASS, REALTIME_PRIORITY_CLASS);
 PriorThread :Array[TPriorMode]of LongInt = (THREAD_PRIORITY_NORMAL, THREAD_PRIORITY_IDLE,
                                             THREAD_PRIORITY_HIGHEST, THREAD_PRIORITY_TIME_CRITICAL);

// .............................................

procedure SetPrior(V: TPriorMode);
var
  ProcessID : DWORD;
  ProcessHandle : THandle;
  ThreadHandle : THandle;
begin // установка приоритета СВОЕЙ программы
  ProcessID := GetCurrentProcessID;
  ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,
                               False,
                               ProcessID);
  SetPriorityClass(ProcessHandle, PriorClass[V]);
  ThreadHandle := GetCurrentThread;
  SetThreadPriority(ThreadHandle, PriorThread[V]);
end;

использование

SetPrior(pmHigh);