السلام عليكم
كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج حيث لا اعرف كيفية وضع القيمة في المفتاح
اي أن برنامجي بعد مثلا 15 يوم يطلب مفتاح التفعيل
وعليكم السلام
هدا مثال بسيط باستعمال الوقت ان شاء الله يوضح لك الفكرة
مدة صلاحية البرنامج 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;