Архив форумов ЦИТФорума

[GREA]

Уважаемый народ,
Некоторая процедура вызывается несколько раз подряд. Иногда процедура не успевает закончить свою работу, прежде чем она будет вызвана снова. Мне нужно, чтобы в таком случае, второй вызов не выполнялся. Надо отслеживать очередь сообщений виндовс, для определения, есть ли в ней уже вызов этой процедуры. Как я могу это реализовать?
Windows 98, Delphi 7.

[Sclis]

Не совсем понятно. "процедура" это екзешник или просто отдельный поток?
Если екзешник, то проверяешь запущен ли уже такой экземпляр. Не знаю как это в Дельфи делается, но по идее это при регистрации класса окна положено смотреть. Всякая прога, считается, имеет окно (даже если она окна не имеет) - когда она стартует то "регестрирует класс окна". Когда один экземпляр запущен класс не надо регестрировать. Там код наподоби\
если НеСуществуетКлассОкна(ОкноПрограммы) то ЗарегестрироватьКлассОкна(ОкноПрограммы)
- вот и надо добавить
иначе Выйти;
если это просто поток, то в модуле с твоей процедурой ставишь глобальную переменную и инициализируешь ее при запуске процедуры, не забывая обнулить при завершении работы.
еще можно почитать книгу Э.Гамма "Паттерны программирования" (я скоро деньги буду требовать за рекламу ) - там есть паттерн "одиночка". Аккурат то о чем ты спрашиваешь. Только то, что ты называешь процедурой там является объектом. То бишь, объект, который будет делать твою процедуру.
Или я чего-то недопонял?

[Вячеслав]

Посмотри в сторону потоков , семафоров и пр.
Наверное это будет лучшим решением
Особенно если работаеш с внешним железом

[GREA]

Application.ProcessMessages,
подставленный в нужное место, решил проблему!
(Кстати, флаги не помогали)