استخدم Delphi للتحكم في Windows

الكاتب：Eve Cole وقت التحديث：2025-02-17 03:48:01

وصف البرنامج

يتم استخدام هذا البرنامج لفتح IE ، رابط إلى صفحة ويب محددة ، الحصول على معلومات عنوان عنوان URL واسم النافذة في شريط عنوان IE ، وتنشيط النافذة التي تم فتحها مؤخرًا ، وإغلاق النافذة التي تم فتحها مؤخرًا. يظهر واجهة البرنامج في الشكل 1:

أفكار تصميم

هناك العديد من الطرق لبرمجة دلفي في هذا البرنامج. أن يكون عميل DDE. في هذا البرنامج ، اتصل بوظيفة API Shellexecute لفتح IE.

الشكل 1

عند استخدام عميل DDE في هذا البرنامج ، يتم استخدام الوظائف والإجراءات التالية لفئة TDDEclientConv:

وظيفة setLink (Service: Thisp: string): Boolean ؛

من بينها ، خدمة المعلمات هي اسم خادم DDE ، وهو IEXPLORE لـ IE ؛ اعتمادا على الوظائف. يتم استخدام وظيفة setlink لتعيين موضوع الجلسة.

خطوات التصميم

قم بإنشاء تطبيق جديد وأضف مكونين تحرير ومكونات زر 6 إلى النموذج. يوضح الشكل 2 خصائص كل مكون

الشكل 2

أضف إشارات إلى وحدات Ddeman و Shellape و ComoBJ في الاستخدامات ، وتحديد متغير عالمي من النوع tddeclientConv.

اكتب الكود ذي الصلة

...... var dde: tddeclientconv ؛ = tddeclientconv.create (Self) ؛ TOBJECT) ؛ ، SW_SHOWNORMAL) ؛ Iexplore '' ، 'www_getwindowinfo') ابدأ dde.openlink ؛ لا يتم تشغيله ") ثم ابدأ / /رابط إلى صفحة الويب المحددة زر IE لتفعيل إجراء نافذة IE الذي تم فتحه مؤخرًا. 1 ') ؛ إذا كان dde.setlink ('' iexplore '،' www_exit ') ابدأ dde.openlink ؛ )؛ نهاية.