Форум программистов [Powered by Invision Power Board]

Код

uses
  ..., Registry;

procedure TForm1.FormCreate(Sender : TObject);
var
  Reg : TRegistry;
  CurDate : TDateTime;
  i : Integer;
begin
  Reg := TRegsitry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE; //выбираем ветку
  Reg.OpenKey('Software\MyProg\Count'); //открываем папку твое программы
  if not Reg.ValueExists('Date') then //если даты нет, то создаем ее
  begin
    Reg.WriteDate('Date', Now);
    Exit;  //...и выходим
  end else begin
    CurDate := Reg.ReadDate('Date'); //считываем дату в реестре
    if CurDate <> Now then begin  //если дата не равна сегодняшней, то
      if not Reg.ValueExists('Count') then //если не существует запись Count, то
      begin
        Reg.WriteInteger('Count', 1); //записываем туда 1 день
      end else begin  //иначе
        i := Reg.ReadInteger('Count'); //считываем Count 
        if i=30 then begin //если Count - 30 дней, то
          ShowMessage('Срок программы истек');
          Reg.CloseKey; Reg.Free; 
          Close; //все...
        end;
        Inc(i);//Добавляем к дням еще один
        Reg.WriteInteger('Count', i); //и записываем его туда же :)
      end;
    end;
  end;
  Reg.CloseKey;
  Reg.Free;//завершаем работу скрипта
end;