Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Запуск процедуры по дате[DELPHI] (https://forum.antichat.xyz/showthread.php?t=121832)

Ant1Player 22.05.2009 18:21
Запуск процедуры по дате[DELPHI]
 
помогите сделать проверку на дату.
цель такова: запускаем приложение, и если дата на компе например 01.06.2009 или выше, то выполняется процедура если нет то ни чего не происходит.

W!z@rD 22.05.2009 18:52
прописаться в планировщик.
самый простой вариант, это AT.

Цитата:
C:\Documents and Settings\W!z@rD>at /?
Команда AT предназначена для запуска команд и программ в указанное время
по определенным дням. Для использования команды AT необходимо, чтобы была
запущена служба расписаний.

AT [\\имя_компьютера] [ [код] [/DELETE] | /DELETE [/YES]]
AT [\\имя_компьютера] время [/INTERACTIVE]
[ /EVERY:день[,...] | /NEXT:день[,...]] "команда"

\\имя_компьютера Имя удаленного компьютера. Если этот параметр опущен,
используется локальный компьютер.
код Порядковый номер запланированной задачи.
/delete Отмена запланированной задачи. Если код задачи опущен,
отменяются все задачи, запланированные для указанного
компьютера.
/yes Отмена запроса на подтверждение при отмене всех
запланированных задач.
время Время запуска команды.
/interactive Разрешение взаимодействия задачи с пользователем,
работающим на компьютере во время запуска задачи.
/every:день[,...] Запуск задачи осуществляется по указанным дням недели или
месяца. Если дата опущена, используется текущий день
месяца.
/next:день[,...] Задача будет запущена в следующий указанный день недели
(например в следующий четверг). Если дата опущена,
используется текущий день месяца.
"команда" Команда Windows NT или имя пакетного файла.

Ant1Player 22.05.2009 19:00
нет, вы не понели.
НУжно не в планировщик поставить программу, а с приложения зделать процедуру по дате...
тоесть запускаеш программу если дата 01.06.2009 и выши то выполняется процедура к примеру showmesage в этом роде надо..

Flame of Soul 22.05.2009 19:12
var
s: string;
begin
s:=timetostr(time);
if .... then .... else ... ;
....
....
end;

Ant1Player 22.05.2009 19:28
А можно if .... есче написать?

МongBa† 22.05.2009 20:22
То ли я чето недопонимаю, то ли на паскале time это дата...
мой вариант:
Код:
if date>=strtodate('01.06.2009') then
begin
 showmessage('вовремя!');
end
else
begin
 showmessage('еще рано');
end;


Время: 09:34