Запуск процедуры по дате[DELPHI]

помогите сделать проверку на дату.
цель такова: запускаем приложение, и если дата на компе например 01.06.2009 или выше, то выполняется процедура если нет то ни чего не происходит.

 

прописаться в планировщик.
самый простой вариант, это AT.

 

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

 

var
s: string;
begin
s:=timetostr(time);
if .... then .... else ... ;
....
....
end;

 

А можно if .... есче написать?

 

То ли я чето недопонимаю, то ли на паскале time это дата...
мой вариант:

Code:

if date>=strtodate('01.06.2009') then
begin
 showmessage('вовремя!');
end
else
begin
 showmessage('еще рано');
end;