Запуск программы

← →
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]

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

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

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

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

> Palladin

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

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