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

Запуск программы   Найти похожие ветки 

← →
berezne   (2006-08-03 13:13) [0]

Привет!
Подскажите, пожалуйста, как реализовать следующее:
при запуске программы идет проверка текущей даты. Если дата больше заданой нужно чтобы программа просто не запустилась.
Как это реализовать?

Спасиба за ответы.

---

← →
Palladin ©   (2006-08-03 13:16) [1]

Date - функция возвращающая текущую дату типа TDateTime
EncodeDate(год,месяц,день) - функция создающая перменную типа TDateTime

Операторы сравнения переменных
> - больше
< - меньше
>= - больше или равно
<= - меньше или равно
= - равно
<> - неравно

---

← →
StriderMan ©   (2006-08-03 13:16) [2]

if Date > StrToDate("03.08.2006") then Application.Terminate;

---

← →
Германн ©   (2006-08-03 14:07) [3]

> StriderMan ©   (03.08.06 13:16) [2]
>
> if Date > StrToDate("03.08.2006") then Application.Terminate;
>

Потом будешь отвечать "почему на некоторых компьютерах вываливается ""03.08.2006"" is not a valid date and time"

---

← →
Cardinal ©   (2006-08-03 14:53) [4]

ага, было такое в программе. В 98 винде год обозначен двумя цифрами, а в xp например четырмя

---

← →
Сергей М. ©   (2006-08-03 14:56) [5]

> berezne   (03.08.06 13:13)



> как реализовать


А никак)

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

---

← →
Юрий Зотов ©   (2006-08-03 14:57) [6]

> berezne   (03.08.06 13:13)

Меняем системную дату, после чего программа спокойно работает. Как с ЭТИМ бороться будем?

---

← →
Palladin ©   (2006-08-03 15:42) [7]

:) Храним историю дат запусков.

---

← →
Desdechado ©   (2006-08-03 15:43) [8]

Palladin ©   (03.08.06 15:42) [7]
А если первая - уже переведенная?

---

← →
StriderMan ©   (2006-08-03 15:48) [9]

> Германн ©   (03.08.06 14:07) [3]
> Потом будешь отвечать "почему на некоторых компьютерах вываливается
> ""03.08.2006"" is not a valid date and time

это уже тонкости :). Разумеется так делать не стоит.

К тому же не заметно чтобы автору ветки было интересно решение вопроса :)

---

← →
Palladin ©   (2006-08-03 15:49) [10]

:) Ну не знаю, как тебя, но меня бы замучило менять все время эту
дату... да и можно поставить ограничение на количество запусков в один день, например 10-15...

---

← →
Юрий Зотов ©   (2006-08-03 16:35) [11]

> Palladin

В общем, это хорошо, что все вместе мы подсказали автору и недостаток его решения, и способы его устранения.
;о)

---

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

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



Память: 0.47 MB
Время: 0.036 c