Собственно, можно ли сделать подобие таймера в Паскале (может с Ассемблером), чтоб каждые две секунды выполнялось какое-нибудь действие, а в промежутке пользователь мог клацать по клавиатуре и мышке?

В паскале с таймерами полный гемор. Я как то делал такое, только исходников не осталось.
Сначала узнавай в таблице векторов прерываний адрес текущей функции прерывания таймера:

Код

var LastTimer:pointer; GetIntVec($1C,LastTimer);

потом изменяй таблицу прерываний

Код

SetIntVec($1C,addr(NewTimer));

NеwTimer - это заранее определенная процедура

Код

{$F+} procedure NewTimer; interrupt; begin    {bla bla bla bla} end; {$F-}

И усё, вот и таймер. Только по окончании работы восстанови таблицу векторов прерываний:

Код

SetIntVec($1C,LastTimer);

Не забудь подключить CRT и DOS
Не проверял, но работать вроде должно.

Это сообщение отредактировал(а) Perchilla - 25.9.2004, 02:48

Perchilla Получается, NewTimer - это процедура типа события OnTimer?
И еще:

Цитата

потом изменяй таблицу прерываний

это когда? чет я не понял...
А ты не мог бы на примере? Если не сложно...

Пример не могу, потому что работать не будет. Паскаль я уже порядком подзабыл. Просто выделил для тебя основные моменты:
1. Наличие обработчика прерываний: procedure NewTimer; interrupt;
2. Сохранение таблицы векторов прерываний GetIntVec($1C,LastTimer);
3. Изменение таблицы векторов прерываний: SetIntVec($1C,addr(NewTimer));
4. Восстановление таблицы векторов прерываний: SetIntVec($1C,LastTimer);

$1C соответствует прерыванию от таймера;

Тут в обработчике еще должна быть фильтрация прерываний, чтобы не каждое прерывание обрабатывалось, но это я уже не помню.

Ну ладно. Спасибо. Буду разбираться...