الإثنين 1 ديسمبر 2014 - 20:37 | المشاركة رقم: |
عضو vip
إحصائيةالعضو | |
| موضوع: كيفية جعل الأسطوانة Trial تعمل لعدد محدود من الأيام كيفية جعل الأسطوانة Trial تعمل لعدد محدود من الأيام كيفية جعل الأسطوانة Trial تعمل لعدد محدود من الأيام في هذه الطريقة يمكن جعل الأسطوانة تشتغل بعدد محدد من الأيام بدل الطريقة السابقة والتي كانت بعدد مرات التشغيل وأظن أن هذه الطريقة أفضل إلا أن كلا الطريقتين قد يتضجر منهما المستعمل لأنه في كل مرة تظهر رسالة عدد المرات المتبقية للإستعمال ولعمل ذلك قم بفتح المشروع الذي تريد ولما تنتهي منه قم بما يلي: إذهب إلى الأمر Project ثم إختر الأمر Actions كما ترى إختر On startup وقم بنسخ هذا الكود
كود: - الكود:
-
days_left = 30; date_installed = Application.LoadValue("My Application", "Date Installed"); date_installed = String.ToNumber(date_installed); times_limit = 30; if date_installed == 0 then Application.SaveValue("My Application", "Date Installed", System.GetDate(DATE_FMT_JULIAN)); else day_left = (date_installed + times_limit) - System.GetDate(DATE_FMT_JULIAN); end if day_left < 1 then Dialog.Message("trial period over", "This software has expered"); Application.Exit(); else Dialog.Message("Trial Period", "You have "..days_left.." days in your trial period"); end كما ترى في الصورة فعند تشغيل الإسطوانــة أو معاينــة العمل سوف تخرج لك هذه النافذة تفيد أنه باقـي على إغلاق النسخـة 30 يوم أو عدد الأيام التي قمت بوضعها في الكود وعند إنتهاء عدد الأيام التي تم وضعها في الكود تظهر هذه الصورة. وما على المستعمل إلا رمي القرص واستبداله بقرص آخر وإلى درس آخر إن شاء الله
|
| |
الموضوعالأصلي : كيفية جعل الأسطوانة Trial تعمل لعدد محدود من الأيام // المصدر :