+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج (/showthread.php?tid=4322)
كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج - kakarotte - 02-07-2012
السلام عليكم
كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج حيث لا اعرف كيفية وضع القيمة في المفتاح
اي أن برنامجي بعد مثلا 15 يوم يطلب مفتاح التفعيل
كيف وضع مفتاح في الرجستري يحسب عدد مرات تشغيل البرنامج - Agmcz - 05-07-2012
وعليكم السلام
هدا مثال بسيط باستعمال الوقت ان شاء الله يوضح لك الفكرة
مدة صلاحية البرنامج 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;