|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.10.2009, 20:15 | #1 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
Прога выполняемая через определенный интервал
Вообщем нужно выполнять действия через 60 минут, написала следующее:
var i,flag:integer; my:TSystemTime; begin i:=0; flag:=0; while i=0 do begin GetSystemTime(my); if (my.wMinute=56) and (flag=0) then begin ShellExecute(self.Handle,nil,'c:\Lo g.bat',nil,nil,SW_RESTORE); flag:=1; end else if (my.wMinute<>56) and (flag<>0) then flag:=0; end; end; Можно ли как-то это оптимизировать чтобы не так сильно грузился процессор?
Единственное, что ограничивает полет мысли программиста-компилятор
|
17.10.2009, 20:48 | #2 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Через delay() можно попробовать. А вообще лучше переписать на дельфи и сделать там Timer
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
17.10.2009, 21:12 | #3 |
Участник клуба
Регистрация: 15.05.2009
Сообщений: 1,222
|
спасибо, попробую
Единственное, что ограничивает полет мысли программиста-компилятор
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
СУММИРОВАНИЕ ЯЧЕЕК ЧЕРЕЗ ЗАДАННЫЙ ИНТЕРВАЛ | provodnikam | Microsoft Office Excel | 28 | 18.02.2015 18:20 |
Интервал ответа | Pavelok | Работа с сетью в Delphi | 3 | 16.05.2009 22:08 |
Определенный интеграл. | J0n1cK | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 16.04.2009 11:30 |
В СТОЛБЕЦ ВВОДЯТСЯ ЧИСЛА ТОЛЬКО ВХОДЯЩИЕ В ОПРЕДЕЛЕННЫЙ ИНТЕРВАЛ. | exeexeexe | Microsoft Office Excel | 8 | 17.09.2008 10:23 |
Интервал Таймера... | Roof | Общие вопросы Delphi | 27 | 08.07.2008 20:19 |