Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.014 c
14-1135241633
Dmitrij_K
2005-12-22 11:53
2006.01.15
2 администрация сайта &amp; форума


6-1128069223
antoxa2005
2005-09-30 12:33
2006.01.15
ПОМОГИТЕ ! Как передать данные от одного приложения по сети друго


14-1134521031
за пиратство
2005-12-14 03:43
2006.01.15
Надо ли сажать в тюрьму за диски ? ( ГэБесия )


14-1135172878
старый маразматик(с)
2005-12-21 16:47
2006.01.15
Ехсеl. есть ли возможность в нем делать суммирование по колонкам


2-1135320208
geonew
2005-12-23 09:43
2006.01.15
печать





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский