[MegaPiha]

Данные о сроке использования можно записывать или в БД или в реестр.
Я бы так делал.
В базе данных создал в БД таблицу с одним полем (формат дата) и при запуске программы проверял бы есть там запись или нет. Если нет (значит первый запуск) то записываем в это поле текущую дату. Если есть то берем разницу между сегодняшней датой и (датой записанной в БД +30 дней) и выдаем нужное сообщение.

[Dissonance]

я не понимаю как эта прога будет без моего вмешательства всё это сверять. Код мне надо примерный код

[Dissonance]

я всё это понимаю но мне нужно примерный код как это сделать. от текста пользы мало. я не понимаю как это написать. Я в делфи мало чего знаю вот и обратился к вам

[MegaPiha]

Ну может что то типа этого...Для начала конечно надо создать таблицу в БД. 1- поле id - ключевое, 2- поле - data -дата.

Код:

Var d:Integer;  
  if DM.ADOTable1.RecordCount=0 then
     begin
        DM.ADOTable1.Edit;
        DM.ADOTable1.FieldByName('data').AsDateTime:=now;
        DM.ADOTable1.Post;
        MessageDlg('Срок действия лицензии составляет 30 дней.", mtInformation, [mbOk], 0)
     end
     else
     begin
       if (now+30)> (DM.ADOTable1.FieldByName('data').AsDateTime) then
       begin
          d:=DaysBetween(now+30,(DM.ADOTable1.FieldByName('data').AsDateTime));
          MessageDlg('До истечения лицензии осталось '+IntToStr(d)+' дней', mtInformation, [mbOk], 0)
       end
       else
       begin
           MessageDlg('Срок действия лицензии истек!', mtInformation, [mbOk], 0);
       end;
     end;

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

[Dissonance]

Ок. Спасибо а какие компоненты ты на форму помещал??? Ведь не только код???

[MegaPiha]

Для данного кода только ADOTable1, который соединил с таблицей с датой.
Если у тебя база данных я так понимаю на форме уже должен быть ADOConnection и соответствующие компоненты ADOTable, ADOQuery, ADODataSet и т.п.

[Dissonance]

Ок спасибо большое