طريقة دلفي للحد من وقت استخدام البرنامج

غالبًا ما نرى أن العديد من الإصدارات التجريبية من البرامج التي يتم تنزيلها عبر الإنترنت لها حدود زمنية للاستخدام، ومن منظور تجاري، فهي أيضًا إجراء لحماية فوائد البرنامج، فهي تتيح للمستخدمين تجربتها مجانًا لفترة من الوقت إذا كانوا راضين. يمكنهم شراء البرامج التجارية. مثال دالة الكود الموضحة في هذه المقالة هو كيفية إضافة دالة حد زمني إلى البرنامج المكتوب في دلفي. الحد الزمني الافتراضي هنا هو 30 يومًا.

الرمز الرئيسي هو كما يلي:

 وحدة Unit1؛ واجهات استخدام Windows، الرسائل، SysUtils، الفئات، الرسومات، عناصر التحكم، النماذج، التسجيل، مربعات الحوار؛ نوع TForm1 = إجراء الطبقة (TForm) FormCreate(Sender: TObject); Form1: TForm1؛ إجراء التنفيذ{$R *.DFM}. TForm1.FormCreate(Sender: TObject);var RegisterTemp : TRegistry; curDate : TDateTime;begin RegisterTemp := TRegistry.Create; مع RegisterTemp do begin RootKey := HKEY_LOCAL_MACHINE; 'Software/MySoftware'، True) ثم ابدأ إذا كان ReadBool('Runned') ثم // هذه ليست المرة الأولى التي يبدأ فيها التشغيل curDate := Date; if (curDate-ReadTime('LastRunTime')>=ReadInteger('Duration') ثم يبدأ // يتجاوز وقت النظام الحالي فترة الاستخدام ShowMessage('انتهت صلاحية الإصدار التجريبي'); begin RemoveKey('LastRunTime'); WriteBool('Runned',True); // قم بتعيين الفترة التجريبية لمدة 30 يومًا WriteInteger('Duration',30); "فشل!")؛ نهاية؛ نهاية؛ نهاية.