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

Тема в разделе "Delphi - Система", создана пользователем LSD, 30 май 2004.

Статус темы:
Закрыта.
  1. LSD

    LSD Гость

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

    red Гость

    Вот так :
    Код (Text):
    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;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей