Вопрос: Подскажите алгоритм 30-и дневневного использования программы... Причем при перемене даты на компъютере, дни не сбиваются...
Ответ:
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:=30 дней;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Close;
end;

отредактировано: 30-07-2004 10:32 - ПсихЪ