таймер ,срабатывающий при загрузке процессора

← →
oleggar © (2006-06-16 16:54) [0]

где-то в Интернет я видел таймер ,срабатывающий при полной загрузке процессора ,даже если приложение висит .Не напомните ,где ?

← →
Prohodil Mimo © (2006-06-16 21:38) [1]

А мы тут только и делаем, что следим куда ты лазиешь и записываем каждый твой шаг. Щас в архивах пороемся и скажем где ты был, когда видел тот таймер :о)

← →
Prohodil Mimo © (2006-06-16 21:39) [2]

создавй отдельный процесс.

Наверняка ты ищешь мультимедийный таймер (других вроде больше нет :)

Добавляешь в раздел подключенных модулей MMSystem
uses MMSystem;

Добавляешь в проект переменную - идентификатор таймера
var
TimerID : uint;

Создаешь пользовотельскую процедуру (она должна располагаться желательно самой верхней из процедур)
procedure TimeProc(uTimerID, uMessage:uint; dwUser, dw1, dw2:DWord)stdcall;
begin
// процедура таймера
end;

Далее в событии формы OnCreate создаешь таймер

procedure TForm1.OnCreate();
begin
TimerID := timeSetEvent(2,0,@TimeProc,0,Time_Periodic); //Включаем таймер
end;

IDтаймера := timeSetEvent(интервал времени, 0, процедура таймера, 0, метод работы таймера);

После окончания работы с таймером обязательно удаляешь его

timekillEvent(TimerID); //Выключаем таймер

таймер ,срабатывающий при загрузке процессора Найти похожие ветки