كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج

[kakarotte]

السلام عليكم

كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج حيث لا اعرف كيفية وضع القيمة في المفتاح
اي أن برنامجي بعد مثلا 15 يوم يطلب مفتاح التفعيل

[Agmcz]

وعليكم السلام
هدا مثال بسيط باستعمال الوقت ان شاء الله يوضح لك الفكرة

مدة صلاحية البرنامج 2 دقائق

كود :

function TimeEnd: Boolean;
var
  R: TRegistry;
  N: string;
begin
  Result := False;
  R := TRegistry.Create;
  try
    R.RootKey := HKEY_LOCAL_MACHINE;
    R.OpenKey('Software\ghz\time', true);
    if r.ValueExists('Begin') then
    else
    begin
      R.WriteTime('Begin', Now);
    end;
    N := FormatDateTime('n', Abs(R.ReadTime('Begin') - Now));
    if StrToInt(n) >= 2 then  // رقم 2 هو عدد الدقائق
      Result := True;
  finally
    R.Free
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  if Timeend then
  begin
    MessageBox(Handle, 'انتهت صلاحية البرنامج', 'Example', MB_ICONWARNING);
    Application.Terminate;
  end;
end;