Приоритет програм

[LSD]

Как сделать, что бы при запуске программа имела приоритет выше средного или ниже?

 

[red]

Вот так :

procedure SetPrior;
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;