Форум: "Прочее";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Вниз
таймер ,срабатывающий при загрузке процессора Найти похожие ветки
← →
oleggar © (2006-06-16 16:54) [0]где-то в Интернет я видел таймер ,срабатывающий при полной загрузке процессора ,даже если приложение висит .Не напомните ,где ?
← →
Prohodil Mimo © (2006-06-16 21:38) [1]А мы тут только и делаем, что следим куда ты лазиешь и записываем каждый твой шаг. Щас в архивах пороемся и скажем где ты был, когда видел тот таймер :о)
← →
Prohodil Mimo © (2006-06-16 21:39) [2]создавй отдельный процесс.
← →
guard_gg © (2006-06-17 01:00) [3]Наверняка ты ищешь мультимедийный таймер (других вроде больше нет :)
Добавляешь в раздел подключенных модулей 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); //Выключаем таймер
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
