+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف (/showthread.php?tid=11207)
الصفحات:
1
2
أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - amar1997 - 14-01-2021
السلام عليكم ورحمة الله وبركاته
أخوني لقد صممت برنامج لكن أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف البرنامج ويطلب من المستخدم ادخال مفتاح
علما اني أستخدم دلفي 10.1
وشكرا
أخوني لقد صممت برنامج لكن أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف البرنامج ويطلب من المستخدم ادخال مفتاح
علما اني أستخدم دلفي 10.1
وشكرا
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - محمد عبد العزيز - 14-01-2021
وعليكم السلام ورحمة الله و بركاته
ابسط شيئ تثبيت التاريخ
حيث يكون التاريخ بين 01/01/2021 و 31/12/2021
عند ادخال اي تاريخ خارج ذلك المجال لايقبل
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - Delphi4Us - 14-01-2021
وعليكم السلام ورحمة الله و بركاته
اضافة لما ذكره الاخ عبدالعزيز يمكنك قراءة التاريخ من الانترنت لان تاريخ الجهاز متغير
كود :
var
SNTPClient: TIdSNTP;
begin
SNTPClient := TIdSNTP.Create(nil);
try
SNTPClient.Host := 'pool.ntp.org';
ShowMessage(DateTimeToStr(SNTPClient.DateTime));
finally
SNTPClient.Free;
end;
end;النتيجة ستكون مثل
إقتباس :2021-01-05 17:13:16
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - amar1997 - 14-01-2021
شكرا اخواني على المعلومة لكن لا اعرف كيفية وضع الكود ممكن شرح فلا أعلم عن هذه الدلة ([size=medium]SNTP Client[/size]) انا مبتدا ممكن توضيح او شرح
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - Delphi4Us - 14-01-2021
فقط تحتاج الى اضافة الوحدة IdSNTP
حمل المثال من المرفقات
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - amar1997 - 14-01-2021
بارك الله فيك اخي الكريم سوف أجرب
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - medreg - 15-01-2021
مشكور احي الكريم على هذا الشرح
لكن هناك ملاحظة
ماذا اذا كان الجهاز المستعمل عليه هذا البرنامج ليس له علاقة بالانترنيت
وشكرا
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - Delphi4Us - 15-01-2021
وقتها هناك امرين
الاول لا مفر من استخدام تاريخ الجهاز مع التحقق من التاريخ مثلا اذا كان اقل من اي تاريخ سابق فهذا يدل على ان تاريخ الجهاز غير مضبوط وتطلب ضبط التاريخ وتقفل البرنامج ومع كل تشغيل تطلب التحقق من التاريخ .
الثاني ان تستخدم عدد مرات التشغيل بكل يوم تضيف مثلا واحد بعد ثلاثين تشغيلة يتوقف البرنامج وهذا لا يحتاج الى تاريخ مضبوط المهم ان التاريخ يتغير فكلما تغير التاريخ تضيف واحد للتسجيلة
مما يعني لو ان المستخدم شغل البرنامج واضفت تسجيلة وغير التاريخ وشغله مرة اخرى ستضيف تسجيلة
وهذا لاحظته في بعض البرامج الموجودة بالسوق
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - amar1997 - 16-01-2021
(15-01-2021, 11:17 PM)Delphi4Us كتب : وقتها هناك امرين
الاول لا مفر من استخدام تاريخ الجهاز مع التحقق من التاريخ مثلا اذا كان اقل من اي تاريخ سابق فهذا يدل على ان تاريخ الجهاز غير مضبوط وتطلب ضبط التاريخ وتقفل البرنامج ومع كل تشغيل تطلب التحقق من التاريخ .
الثاني ان تستخدم عدد مرات التشغيل بكل يوم تضيف مثلا واحد بعد ثلاثين تشغيلة يتوقف البرنامج وهذا لا يحتاج الى تاريخ مضبوط المهم ان التاريخ يتغير فكلما تغير التاريخ تضيف واحد للتسجيلة
مما يعني لو ان المستخدم شغل البرنامج واضفت تسجيلة وغير التاريخ وشغله مرة اخرى ستضيف تسجيلة
وهذا لاحظته في بعض البرامج الموجودة بالسوق
سلام عليكم شكرا اخي على المعلومة لكن انا عندي أسئلة بخصوص الموضوع :
1 - أنا لا أعرف أين أضع الكود في الفورم
2 - لا أعرف الكود كامل
3 - لا أعرف كيف احدد مدة إيقاف البرنامج
RE: أريد عمل مدة لبرنامج مثلا لمدة سنة ويتوقف - Delphi4Us - 17-01-2021
وعليكم السلام ورحمة الله وبركاته
الكود سيكون في الـ FormLoad
وما الذي استقريت عليه
استخدام الانترنت ام بدون انترنت