Delphiを使用してIE Windowsを制御します

著者：Eve Cole 更新時間：2025-02-17 03:48:01

プログラムの説明

このプログラムは、IEを開き、指定されたWebページにリンクし、IEアドレスバーでURLアドレス情報とウィンドウ名を取得し、最近開かれたウィンドウをアクティブにし、最近開かれたウィンドウを閉じるために使用されます。プログラムインターフェイスを図1に示します。

デザインの考え

このプログラムでは、DDEを使用して、IEが最初に実行されることを保証するために、多くの方法があります。 DDEクライアントは、実行されていないサーバーとデータを交換できません。このプログラムでは、API関数ShellexeCuteを呼び出してIEを開きます。

図1

このプログラムでDDEクライアントを使用する場合、クラスTDDECLIENTCONVの次の機能と手順が使用されます。

function setlink（service：string）：boolean;

その中で、パラメーターサービスはDDEサーバーのアプリケーション名です。これは、パラメーターのトピックがDDEセッションのトピック名です。関数に応じて。 Function Setlinkは、セッションのトピックを正常に戻すために使用されます。

設計手順

新しいアプリケーションを作成し、フォームに2つの編集コンポーネントと6つのボタンコンポーネントを追加します。各コンポーネントのプロパティを図2に示します。

図2

使用法のDdeman、Shellape、およびComobjユニットへの参照を追加し、TDECLIENTCONV型のグローバル変数DDEを定義します。

関連するコードを記述します

...... var dde：tddeclientconv; = tddeclientconv.create（self）; tobject）、SW_SHOWNORMAL）; iexplore ''、 '' www_getwindowinfo ''）dde.openlinkを開始します実行していません ''） '）//指定されたWebページDde.RequestData（edit2.text）;つまり、最近開かれたIEウィンドウの手順tform1.button4click（sender：tobject）をアクティブにします。 1 ''） dde.setlink（ '' iexplore ''、 '' www_exit '）は、dde.requestdata（' 'www_exit' '）を開始します。）; 終わり。