Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)

Модерирует : gyra, Maz

articlebot (13-10-2013 23:33): продолжение темы - №15
 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

troyan90



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
[_tasks]
Name: pr; Description: PRIORITY;
Name: pr\1; Description: IDLE_PRIORITY; Flags: exclusive
Name: pr\2; Description: NORMAL_PRIORITY; Flags: exclusive
 
[_code]
const
  NORMAL_PRIORITY_CLASS           = $00000020;
  IDLE_PRIORITY_CLASS             = $00000040;
  HIGH_PRIORITY_CLASS             = $00000080;
  REALTIME_PRIORITY_CLASS         = $00000100;
 
function SetPriorityClass(hProcess: THandle; dwPriorityClass: DWORD): BOOL;
  external 'SetPriorityClass@kernel32';
 
function GetCurrentProcess: THandle;
  external 'GetCurrentProcess@kernel32';
 
procedure CurPageChanged(CurPageID: Integer);
begin
  case CurPageID of
    wpInstalling: begin
      if IsTaskSelected('pr\1') then
        SetPriorityClass(GetCurrentProcess, IDLE_PRIORITY_CLASS)
      else if IsTaskSelected('pr\2') then
        SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS)
    end;
  end;
end;
 

Всего записей: 397 | Зарегистр. 24-04-2010 | Отправлено: 14:56 12-07-2011
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Inno Setup (создание инсталяционных пакетов)
articlebot (13-10-2013 23:33): продолжение темы - №15


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru