ใช้ Delphi เพื่อควบคุม IE Windows

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-02-17 03:48:01

คำอธิบายโปรแกรม

โปรแกรมนี้ใช้เพื่อเปิด IE ลิงก์ไปยังหน้าเว็บที่ระบุรับข้อมูลที่อยู่ URL และชื่อหน้าต่างในแถบที่อยู่ IE เปิดใช้งานหน้าต่างที่เปิดเมื่อเร็ว ๆ นี้และปิดหน้าต่างที่เปิดเมื่อเร็ว ๆ นี้ อินเทอร์เฟซโปรแกรมแสดงในรูปที่ 1:

ออกแบบความคิด

มีหลายวิธีในการเขียนโปรแกรมเช่นการใช้ Delphi ในโปรแกรมนี้ใช้ DDE เพื่อควบคุม IE เป็นไคลเอนต์ DDE ในโปรแกรมนี้ให้โทรฟังก์ชัน API Shellexecute เพื่อเปิด IE

รูปที่ 1

เมื่อใช้ไคลเอนต์ DDE ในโปรแกรมนี้จะใช้ฟังก์ชั่นและขั้นตอนต่อไปนี้ของคลาส TDDeclientConv:

ฟังก์ชั่น SetLink (บริการ: สตริง: สตริง): บูลีน;

ในหมู่พวกเขาบริการพารามิเตอร์คือแอปพลิเคชันของเซิร์ฟเวอร์ DDE ซึ่งเป็น IExplore สำหรับ IE; ขึ้นอยู่กับฟังก์ชั่น ฟังก์ชั่น SetLink ใช้เพื่อตั้งค่าหัวข้อเซสชัน

ขั้นตอนการออกแบบ

สร้างแอปพลิเคชันใหม่และเพิ่มสองส่วนประกอบแก้ไขและส่วนประกอบปุ่ม 6 ปุ่มลงในแบบฟอร์ม คุณสมบัติของแต่ละองค์ประกอบแสดงในรูปที่ 2:

รูปที่ 2

เพิ่มการอ้างอิงไปยังหน่วย ddeman, shellape และ comobj ในการใช้งานและกำหนดตัวแปร Global DDE ของประเภท tddeclientConv

เขียนรหัสที่เกี่ยวข้อง

...... var dde: tddeclientconv; = tddeclientconv.create (ตัวเอง); TOBJECT); เริ่มต้น//การโทร Shellexecute เพื่อเปิดเบราว์เซอร์เริ่มต้นและตั้งค่าโหมดหน้าต่างเป็น sw_shownormal shellexecute (ด้ามจับ, nil, pchar ('' http://www.chinaren.com/index.shtml ' , sw_shownormal); IExplore '', '' www_getwindowinfo '') จากนั้นเริ่มต้น dde.openlink; ไม่ได้เรียกใช้ ''); จากนั้นเริ่มต้น // ลิงก์ไปยังหน้าเว็บที่ระบุ DDE.OpenLink; ปุ่ม IE เพื่อเปิดใช้งานขั้นตอนหน้าต่างที่เปิดใหม่เมื่อเร็ว ๆ นี้ tform1 .button4click (ผู้ส่ง: tobject); 1 '); ถ้า dde.setLink ('IExplore' ',' 'www_exit' ') จากนั้นเริ่มต้น dde.openlink; ); จบ.