| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как в определенное время запустить стороннее приложение? [D7, 95/98]
dera © (2005-12-23 17:35:00)Я делаю так. Ставлю таймер на 1000, в его обработчике пишу
if now=RunTime then begin
if FileExists('с:\otherprog.exe') then begin
ShellExecute(0,'otherprog.exe','c:\',nil,nil,SW_SHOWNORMAL);
end;
end;
Значение переменной RunTime присваивается при старте проги и оно всегда не меньше, чем время запуска самой проги.
dera (2005-12-23 20:46:00) [1]<begin...end © (23.12.05 20:16) [4] >
Отличный способ! Спасибо.
begin...end (2005-12-23 20:16:00) [2]> dera (23.12.05 17:35)
Насколько я понял, приложение нужно запустить только один раз. Тогда зачем нужен ежесекундно срабатывающий таймер?
ИМХО, лучше сделать так. При запуске программы (таймер пока не запускаем) узнаём значение RunTime, вычисляем, сколько осталось времени до этого "часа X" (RunTime - Now), переводим это в миллисекунды (умножая разность на 24 * 60 * 60 * 1000 и округляя до целого), и устанавливаем такой интервал таймеру. Запускаем таймер. В результате таймер в первый раз сработает именно тогда, когда нужно. И в обработчике OnTimer не нужно будет никаких вычислений -- нужно будет только выключить таймер, чтобы он не сработал второй раз.
Но недостатки есть и у этого метода...
dera (2005-12-23 18:48:00) [3]<if now>RunTime then>
Тогда каждую секунду срабатывать будет. Хотя... если остановить таймер.... в моем случае подходит.
Спасибо!
alex-drob (2005-12-23 18:33:00) [4]if now >RunTime then
dera (2005-12-23 18:21:00) [5]почему-то не срабатывает условие. Не играют ли тут роль милисекунды? И что- то другое? Никак не могу разобраться
| |
