Home

Page 295
Page 295
background image

288 Глава 6

;

 |

function

 Double;

const

DelayTime = 500;

var

TimerHi, TimerLo: DWORD;

PriorityClass, Priority: Integer;

begin

PriorityClass. :=
Priority :=

asm

dw

mov TimerLo, eax
mov TimerHi, edx

end;

asm

dw

sub eax, TimerLo

sbb edx, TimerHi

mov TimerLo, eax
mov TimerHi, edx

end;

 Priority);

 PriorityClass);

Result

 TimerLo/(1000.0 * DelayTime);

end;

Как видите, эта функция не относится к объекту окна, а значит должна

быть описана выше того места, где мы ее используем, т. е. выше обработчи-

ка события

 кнопки Запустить. Перепишите ее себе, и сейчас мы

рассмотрим все содержимое процедуры более подробно,

В самом начале мы узнаем приоритет класса и приоритет потока с помощью

ФУНКЦИЙ GetPriorityClass И GetThreadPriority. По

 Про-

 получают нормальный приоритет и работают наравне с другими.

Значения приоритетов сохраняются в отдельных переменных.


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.