Gunakan Delphi untuk mengontrol Windows IE

Penulis：Eve Cole Waktu Pembaruan：2025-02-17 03:48:01

Deskripsi program

Program ini digunakan untuk membuka IE, tautan ke halaman web tertentu, mendapatkan informasi alamat URL dan nama jendela di bilah alamat IE, mengaktifkan jendela yang baru dibuka, dan menutup jendela yang baru dibuka. Antarmuka program ditunjukkan pada Gambar 1:

Desain Pikiran

Ada banyak cara untuk memprogram IE menggunakan Delphi. menjadi klien DDE. Dalam program ini, hubungi fungsi API Shellexecute untuk membuka IE.

Gambar 1

Saat menggunakan klien DDE dalam program ini, fungsi dan prosedur berikut dari kelas TDDECLIENTCONV digunakan:

Function SetLink (Layanan: String; Topik: String): Boolean;

Di antara mereka, layanan parameter adalah nama aplikasi dari server DDE, yang merupakan IExplore untuk IE; tergantung fungsinya. Fungsi SetLink digunakan untuk mengatur topik sesi.

Langkah desain

Buat aplikasi baru dan tambahkan dua komponen edit dan 6 komponen tombol ke formulir. Properti masing -masing komponen ditunjukkan pada Gambar 2:

Gambar 2

Tambahkan referensi ke unit DDeman, Shellape dan Comobj dalam penggunaan, dan tentukan variabel global DDE tipe TDDeclientConv.

Tulis kode yang relevan

... = TddeclientConv.create (self); TObject); begin / /Call ShellExecute to open the default browser and set the window mode to SW_SHOWNORMAL ShellExecute(Handle,nil,PChar(''http://www.chinaren.com/index.shtml''),nil,nil , Sw_shownormal); IExplore '', 'www_getwindowinfo' ') kemudian mulai dde.openlink; tidak menjalankan ''); ') Mulai // tautan ke halaman web yang ditentukan dde.openlink; Tombol IE untuk mengaktifkan Prosedur Jendela IE yang baru dibuka TFORM1 .BUTTON4CLICK (Pengirim: Tobject); 1 '); jika dde.setlink ('' iexplore '', '' www_exit '') kemudian mulai dde.openlink; ); akhir.