الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

شاشة توقيت(امان) للبرنامج

بدأه shalwan في 13 يونيو 2010 · 4 رد · 881 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني السلام عليكم ورحمة الله وبركاته

عملت شاشه لحفظ البرنامج من المتطفلين لو انشغل المشغل عنه لفتره زمنيه محدده بملف عند التصريح له بالعمل

وتطلب كلمة السر لنفس المشغل او الخروج وغلق البرنامج تلقائيا

استخدم فيه timer واجراء بكل فورم عند لمس المفاتيح او الفاره يصفر العداد الزمني بهذا الفورم

وبهذا الشكل وضعت نفسي بمتاهه كبيره فعندي اكثر من 100 فورم او اكثر وكل فورم يحتاج الى عمل اجراء بداخله وهذا

منذ دخولي المنتدى وانا افكار اكثر دقه وسريعه وتعطي المطلوب فهل لي بمثال لتنفيذ هذا العمل بدون الدخول لكل فورم

لقد اوضح لى (احد الزملاء بالمنتدى) كيفية معرفة اللغه وانا متأكد بأنه لا يخلو من اعداد وتنفيذ هذه الفكره

لكم جميعا الشكر

احرصوا على هذا المنتدى ليبقى اشراقة علم للجميع

نسأل الله الجنه لنا ولوالدينا ولمن لهم حق علينا

#2

السلام عليكم ورحمة الله وبركاته

أخي هذه محاولة بسيطة مني أرجوا أن تكون فيها الإجابة على مشكلتك

project1.zip

بسم الله الرحمن الرحيم " وقل رب زدني علما"

#3
mohamed.dz كتب:

السلام عليكم ورحمة الله وبركاته

أخي هذه محاولة بسيطة مني أرجوا أن تكون فيها الإجابة على مشكلتك

السلام عليكم ورحمة الله وبركاته

شكرا اخي محمد

المحاوله جدا جيده واشكرك عليها

ولكن ارغب تطويره اضافة الى الفاره ابي اي مفتاح ايضا (لوحة المفاتيح)

تحياتي وحفظكم الله

تم تعديل هذه المشاركة بواسطة shalwan في 14 يونيو 2010 في 19:46

نسأل الله الجنه لنا ولوالدينا ولمن لهم حق علينا

#4

السلام عليكم ورحمة الله وبركاته

عفوا أخي لا شكر على واجب

اقتباس
ولكن ارغب تطويره اضافة الى الفاره ابي اي مفتاح ايضا (لوحة المفاتيح)

نعم بنفس الطريقة يمكنك إضافة ال windows message المناسبة كما يلي 

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
 if (msg.message=WM_MOUSEMOVE)or(msg.message=WM_KEYDOWN) then
 form1.t:=0;
end

;

يمكنك استعمال WM_KEYUP ، WM_MOUSEMOVE، WM_LBUTTONUP ... الخ

ملاحظة : هذه الأكواد تجدها في الوحدة Messages 

C:\Program Files\Borland\Delphi7\Source\Rtl\Win\messages.pas

بالتوفيق

بسم الله الرحمن الرحيم " وقل رب زدني علما"

#5

mohamed.dz كتب:

السلام عليكم ورحمة الله وبركاته

عفوا أخي لا شكر على واجب

نعم بنفس الطريقة يمكنك إضافة ال windows message المناسبة كما يلي


var Handled: Boolean);
begin
if (msg.message=WM_MOUSEMOVE)or(msg.message=WM_KEYDOWN) then
form1.t:=0;
end
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;

;

يمكنك استعمال WM_KEYUP ، WM_MOUSEMOVE، WM_LBUTTONUP ... الخ

ملاحظة : هذه الأكواد تجدها في الوحدة Messages 

C:\Program Files\Borland\Delphi7\Source\Rtl\Win\messages.pas

بالتوفيق

اخي وضعت نفس الوحد ببرنامجي ولكنه يقرا

if (msg.message=WM_MOUSEMOVE)or(msg.message=WM_KEYDOWN) then

دئما ويعيد المتغير الى صفر ممكن اعرف السبب

حفظك الله

نسأل الله الجنه لنا ولوالدينا ولمن لهم حق علينا

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…