Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Запуск программы [D6, XP]

berezne © (2006-08-03 13:13:00)
Привет!
Подскажите, пожалуйста, как реализовать следующее:
при запуске программы идет проверка текущей даты. Если дата больше заданой нужно чтобы программа просто не запустилась.
Как это реализовать?

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

Юрий Зотов (2006-08-03 16:35:00) [1]
> Palladin

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

Palladin (2006-08-03 15:49:00) [2]
:) Ну не знаю, как тебя, но меня бы замучило менять все время эту
дату... да и можно поставить ограничение на количество запусков в один день, например 10-15...

StriderMan (2006-08-03 15:48:00) [3]

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

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

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

Desdechado (2006-08-03 15:43:00) [4]
Palladin © (03.08.06 15:42) [7]
А если первая - уже переведенная?

Palladin (2006-08-03 15:42:00) [5]
:) Храним историю дат запусков.

Юрий Зотов (2006-08-03 14:57:00) [6]
> berezne (03.08.06 13:13)

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

Сергей М. (2006-08-03 14:56:00) [7]

> berezne (03.08.06 13:13)

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

А никак)

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

Cardinal (2006-08-03 14:53:00) [8]
ага, было такое в программе. В 98 винде год обозначен двумя цифрами, а в xp например четырмя

Германн (2006-08-03 14:07:00) [9]

> 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"

Palladin (2006-08-03 13:16:00) [10]
Date - функция возвращающая текущую дату типа TDateTime
EncodeDate(год,месяц,день) - функция создающая перменную типа TDateTime

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

StriderMan (2006-08-03 13:16:00) [11]
if Date > StrToDate('03.08.2006') then Application.Terminate;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »