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

أرجوكم أرجوكم أخوكم في ورطة ( من يريد دعوة صالحة )

مغلق
بدأه Salah Al Deen في 1 يوليو 2003 · 12 رد · 959 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أعزائي مبرمجي الدلفي أحييكم وأشعر بالفخر حين أتصفح هذا المنتدي الرائع سدد الله خطاكم ورعاكم أنا مبرمج مبتدي أضع قدمي على الخطوات الأولى من حياتي المهنية في عالم البرمجة ولقد وفقت في خطوتي الأولى بأختياري للغة الخاصة بالبرمجة ( Delphi ) وقد دهلت من قدرة هذه البيئة في التعامل مع شتى الأفكار التي يريد كل مبرمج تحويلها إلى واقع وعليه ولا أريد أن أطيل عليكم بدأت في وضع فكرة كمشروع للتخرج من المعهد العالي لعلوم الحاسب حيث أدرس وكان المشروع هو تكوين لوحة مفاتيح تعمل بالنقر على الماوس ولكن فرض على من قبل إدارة هيئة التدريس أن تكون هذه اللوحة تعمل في بيئة خارج بيئة الدلفي أي تقوم بإرسال المفاتيح إلى البرامج النصية التي تعمل في وقت عمل لوحة المفاتيح مثل المفكرة أو الوورد ...... إلخ .

ولكن لعدم توفر الكتب أو الموارد اللازمة لهذا العمل في بلدي لجأت إلى النت وفوجئت بعدم وجود ما يمكن أن يساعدني في حل مشكلتي ولى على هذا الحال 4 أشهر فهل من منجد مع العلم أنه لم يتبقى لي من المدة المحددة لإنجاز المشروع سوى أسبوع .

أرجو المساعدة أخوكم في ورطة.

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

#2

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

حاول ان تبحث عن Sendkey+delphi في google ستجد العديد من النتائج منها ما قد يفيدك .

اذكر ان النسخه الخامسه او السادسه من دلفي تحوي ملف اسمه sendkey.pas ( شئ من هذا القبيل ).

http://www.happyarts.de/delphi/faq/sendkey_.htm

http://www.delphimaster.ru/articles/sendkey.html

ساحاول المساعده ان توافر الوقت لدي .

(f)

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#3

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

أشكرك أخ tmaaa على أجابتك السريعة وأشعر بالفخر لوجود محترف مثلك يقدم يد العون والمساعدة لنا نحن المبتدئين فل البرمجة وجعل ذخر لنا وزادك الله علم فوق علم سوف أجل كل أهلي يدعون لك ولكن..................:(

أطمع بأن تبسط علي الأمر فأرجو أن تفهم عجزي عن فهم ما قد تقدمت به فلست ضليع في لغت الدلفي مع حبي الشديد لها وأرجو منك ومن الأخوة الكرام مبرمجي الدلفي المساعدة العاجلة :o

وأشكرك من جديد على الأهتمام والمساعدةعزيزي tmaaa

#4

السلام عليكم

يا شيخ لا محترف ولا شئ ( على قدنا ) :o

شكرا لإطراءك الذي تعدى الحقيقه :D

ما علينا من المقدمات لندخل في صلب الموضوع .

اعتذر عن الخطأ الذي ورد في ردي السابق . اسم الملف هو sndkey32.pas .

سأرفق ملف يحوي مثال بسيط على استخدام sndkey32 .

اقرأ الملف sndkey32 والمثال الذي اضفته وان كان هناك أي اسئله فعلى الرحب والسعه .

في المثال المرفق ستلاحظ عدم عمل '+' ذلك ان sndkey32 يتعامل مع + على انها shift . تحتاج لتعديل الملف sndkey32 بما يتناسب مع مطلوبك .

أقوم حاليا بعمل برنامج شبيه بـ On-Screen KeyBoard المرفق مع النظام (win2k/xp/2003 ) , اذا كان هناك وقت ساكمله و أضعه هنا ( هذا الشئ ليس مؤكدا , حاول ان تستفيد من الملف المرفق لعمل ما تريده ).

(f)

CIONO1

sndkeytest.zip

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#5

عذرا لتدخلي بينك وبين الاخ tmaaa

اقتباس

وكان المشروع هو تكوين لوحة مفاتيح تعمل بالنقر على الماوس

اقتباس

حسب مافهمته من هذه النقطة

هو انك تريد التحكم بالكيبورد

كما تعلم إن لكل زر بالكيبورد رقم في المقاطعة الخاصة به

ولمعرفة رقم كل زر

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 

Shift: TShiftState); 



begin 



Label1.Caption:=FloatToStr(key); 



end;

هذا الكود يعطيك الرقم الدال على كل زر من ازرار الكيبورد

اما بالنسبة للSend Key

فهذا الامر غير معرف عنه للاسف في الدلفي

لكن هناك العديد من الوحدات المساعدة

يستعاض عنه بالدلفي بSEndMEssage

حيث انها تقوم بارسال قيم إلى نافذة أو شيئ معين بالبرنامج

أتمنى ان اكون قد قربت إليك الفرة اكثر

واسف مرة اخرى لتدخلي بينك وبين الاستاذ tmaaa

#6

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

والله عاجبني فيك التواضع أستاد tmaaa وتقول أنك مش محترف يأستاد أنت حليت مشكلة دوخت الكثير الكثير من المبرمجين في بلدي وأنقذتني شخصياً من مأزق والله كل كلمات الشكر والدعاء ما توفيق حقك يأستادي العزيز أتمنا أن تقبلني طالب عندك فأرجو أن أحصل على Email الخاص بك .

وأشكر الأخ Reda على مشاركته القصيرة والمفيدة أدامكم الله عوناً لنا وسدد الله خطاكم فلم أخطي حين أخترت هذا الموقع ليكون ملاديه الأخر فأشكر صاحب هذا الموقع ومشرفه على هذا الموقع الرائع .

إني في غاية السعادة.........:D :D (f)(f)

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

#7

هل من الممكن أن تشرح لي كيف يمكن أن أجعل Enter تعمل

وكيف يمكن أن أستفيد من قيم المفاتيح الموجودة بالملف فمثلا عندما أخوم بإرسال كلمة أنتر تطبع كما هي ولا أحصل على سطر جديد فما هو التعديل الدي يجب أن أتبعه.:confused:

#8

السلام عليكم

اولا : لا احب ان أنادى بأستاذ فلست أهلا لهكذا شرف .

ثانيا : بالنسبه للمفتاح enter فعليك استخدام مايلي:

SetForegroundWindow (wndhandle);

SendKeys('~',true);

Salah Al Deen:

اقتباس
فمثلا عندما أخوم بإرسال كلمة أنتر تطبع كما هي ولا أحصل على سطر جديد فما هو التعديل الدي يجب أن أتبعه

tmaaa:

اقتباس
اقرأ الملف sndkey32

يبدو أنك لم تتمعن في قراءه الملف sndkey32.pas

;) :P

راجع الملف لتعرف ما يقابل كل مفتاح .

بامكانك التغيير في الملف كما تشاء بما يتناسب مع ماتريد عمله , طبعا لا تنسى ذكر انك استندت الى ماكتبه Ken Henderson .

(f)

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#9

أشكرك أشكرك أشكرك

لقد فهمت الأن تمام الفهم:D:D:D(f)(f)

#10

السلام عليكم

Salah Al Deen

ما هي أخبار برنامجك ؟

ما بدك تتكرم على المنتدى وتحط شئ عن البرنامج ولو كان البرنامج التنفيذي ;)

(f)

CIONO1

هناك حتى الأحلام أصبحت ممنوعة ...

إنه لعار أن ننتمي لهكذا أوطان ... لكن ... ربما العار أن نكون نحن أبناء لتلكم أوطان .. من يدري ؟!!

ليعلم أولئك ... إنّ الشعوب إنْ هي استيقظت تسحق ظُلامََهَا ...

There, even in dreams u r wanted

To be a programmer, how a nice dream it was

Leaving ...

أعيدوا لإسمي لونه المفضل

#11

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

أشكر الأخ Sum حيث أنه لا يحب لقب أستاد شكراً كثيراُ لقد تحصلت بفضله على درجة لم أحصل عليها طيلة حياتي الدراسية 89% وهذا كله يعود بفضل هذا المنتدي وأعضائه المخلصين لنا نحن المبتدئين وأرغب في إرسال البرنامج كاملاً إلى الموقع ولكن .....................:o

أرجو أن تعذروني فلست أعلم كيف يمكن إرساله للموقع :o:o

فأرجو منكم أن تتكرمو وتعلموني ذلك حتى تعم الفائدة

ولكم مني جزيل الشكر والإمتنان

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

#12

هل من مجيب :(

#13

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

sndkeytest.rar

هذا الموضوع مغلق.

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

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

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

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

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