06.01.2010, 13:26
|
|
Прохожий
|
|
Регистрация: 05.01.2010
Сообщения: 13
Репутация: 10
|
|
Первый:
Код:
procedure TForm1.FormCreate(Sender: TObject);
Const
date_ = '07.01.10';
Var
ToDay : TDate;
begin
ToDay:=StrToDate('07.01.10');
if Now>ToDay then Application.Terminate;
end;
Третий лень писать |