Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.041 c
3-1132305106
Anny
2005-11-18 12:11
2006.01.15
Прога считывания и обработки штрих кода...


2-1135374392
JEK2
2005-12-24 00:46
2006.01.15
картинку в RichEdit


1-1134061576
Леонид Федьков
2005-12-08 20:06
2006.01.15
Нажатие Caps Lock из программы


4-1131370003
Толик
2005-11-07 16:26
2006.01.15
Количество копий отправленого на печать документа


14-1135330008
Непонимающий
2005-12-23 12:26
2006.01.15
Nexx NF-315




   Наверх