Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.15;
Скачать: CL | DM;

Вниз

Как в определенное время запустить стороннее приложение?   Найти похожие ветки 

 
dera   (2005-12-23 17:35) [0]

Я делаю так. Ставлю таймер на 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 18:21) [1]

почему-то не срабатывает условие. Не играют ли тут роль милисекунды? И что- то другое? Никак не могу разобраться


 
alex-drob ©   (2005-12-23 18:33) [2]

if now>RunTime then


 
dera   (2005-12-23 18:48) [3]

<if now>RunTime then>

Тогда каждую секунду срабатывать будет. Хотя... если остановить таймер.... в моем случае подходит.
Спасибо!


 
begin...end ©   (2005-12-23 20:16) [4]

> dera   (23.12.05 17:35)

Насколько я понял, приложение нужно запустить только один раз. Тогда зачем нужен ежесекундно срабатывающий таймер?

ИМХО, лучше сделать так. При запуске программы (таймер пока не запускаем) узнаём значение RunTime, вычисляем, сколько осталось времени до этого "часа X" (RunTime - Now), переводим это в миллисекунды (умножая разность на 24 * 60 * 60 * 1000 и округляя до целого), и устанавливаем такой интервал таймеру. Запускаем таймер. В результате таймер в первый раз сработает именно тогда, когда нужно. И в обработчике OnTimer не нужно будет никаких вычислений -- нужно будет только выключить таймер, чтобы он не сработал второй раз.

Но недостатки есть и у этого метода...


 
dera   (2005-12-23 20:46) [5]

<begin...end ©   (23.12.05 20:16) [4] >
Отличный способ! Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2006.01.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
6-1128149397
joisy
2005-10-01 10:49
2006.01.15
Restart file download after disconnect


10-1111064667
kblc
2005-03-17 16:04
2006.01.15
Word.Application


2-1135248850
Scorpio
2005-12-22 13:54
2006.01.15
Oracle


14-1135007795
LordOfRock
2005-12-19 18:56
2006.01.15
Посмотрите сайт


14-1134748697
(CHALING 32)S K i N E R
2005-12-16 18:58
2006.01.15
Дам вам один совет!