Приоритет

[Михаил Юрьевич]

Подскажите как в своей программе повысить приоритет

[JTG]

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS );
Repeat
Until false;

^_^

[Air]

Упростил до функций. (для всего сразу)

Type
TPROCESSENTRY32 = packed record
  dwSize: DWORD;
  cntUsage: DWORD;
  th32ProcessID: DWORD;
  th32DefaultHeapID: DWORD;
  th32ModuleID: DWORD;
  cntThreads: DWORD;
  th32ParentProcessID: DWORD;
  pcPriClassBase: Longint;
  dwFlags: DWORD;
  szExeFile: array[0..MAX_PATH - 1] of Char;
  end;

const
  TH32CS_SNAPPROCESS     = $00000002;

var
  Function CreateToolhelp32Snapshot(dwFlags, th32ProcessID: DWORD): dword stdcall;
                                  external 'kernel32.dll';
  Function Process32First(hSnapshot: THandle; var lppe: TProcessEntry32): BOOL stdcall;
                                  external 'kernel32.dll';
  Function Process32Next(hSnapshot: THandle; var lppe: TProcessEntry32): BOOL stdcall;
                                  external 'kernel32.dll';


function GetProcessId(pName: PChar): dword;
var
 Snap: dword;
 Process: TPROCESSENTRY32;
begin
  Result := 0;
  Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Snap <> INVALID_HANDLE_VALUE then
     begin
      Process.dwSize := SizeOf(TPROCESSENTRY32);
      if Process32First(Snap, Process) then
         repeat
          if lstrcmpi(Process.szExeFile, pName) = 0 then
             begin
              Result := Process.th32ProcessID;
              CloseHandle(Snap);
              Exit;
             end;
         until not Process32Next(Snap, Process);
      Result := 0;
      CloseHandle(Snap);
     end;
end;


function SetPriority(ExeName:string; PRIORITY_CLASS:Cardinal):boolean;
var q:Cardinal;
begin
q:=openprocess(PROCESS_SET_INFORMATION,false,getprocessId(pchar(ExeName)));
result:=SetPriorityClass(q,PRIORITY_CLASS);
CloseHandle(q);
end;

function GetPriority(ExeName:string):Cardinal;
var q:Cardinal;
begin
q:=openprocess(PROCESS_QUERY_INFORMATION,false,getprocessId(pchar(ExeName)));
result:=GetPriorityClass(q);
CloseHandle(q);
end;

И константы

P_IDLE = IDLE_PRIORITY_CLASS; // низкий
P_IDLE_NORMAL = 16384; // ниже среднего
P_NORMAL = NORMAL_PRIORITY_CLASS; // средний
P_NORMAL_HIGH = 32768; // выше среднего
P_HIGH = HIGH_PRIORITY_CLASS;// высокий
P_REALTIME = REALTIME_PRIORITY_CLASS; // реального времени

Можно по ID вместо GetProcessId
Узнать ID своего процесса GetCurrentProcessID

[Greblin]

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;

из MSDN

THREAD_PRIORITY_ABOVE_NORMAL : 1 Priority 1 point above the priority class.
THREAD_PRIORITY_BELOW_NORMAL : -1 Priority 1 point below the priority class.
THREAD_PRIORITY_HIGHEST : 2 Priority 2 points above the priority class.
THREAD_PRIORITY_IDLE :-15 Base priority of 1 for IDLE_PRIORITY_CLASS, BELOW_NORMAL_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS, ABOVE_NORMAL_PRIORITY_CLASS, or HIGH_PRIORITY_CLASS processes, and a base priority of 16 for REALTIME_PRIORITY_CLASS processes.
THREAD_PRIORITY_LOWEST : -2 Priority 2 points below the priority class.
THREAD_PRIORITY_NORMAL : 0 Normal priority for the priority class.
THREAD_PRIORITY_TIME_CRITICAL : 15 Base priority of 15 for IDLE_PRIORITY_CLASS, BELOW_NORMAL_PRIORITY_CLASS, NORMAL_PRIORITY_CLASS, ABOVE_NORMAL_PRIORITY_CLASS, or HIGH_PRIORITY_CLASS processes, and a base priority of 31 for REALTIME_PRIORITY_CLASS processes.

[Михаил Юрьевич]

Сообщение от Greblin

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;

из MSDN

Подскажите а этот код работает в Vista?

[Air]

Наверно, если там есть такие функции

function SetPriorityClass; external kernel32 name 'SetPriorityClass';