Utilisez Delphi pour contrôler IE Windows

Auteur：Eve Cole Date de mise à jour：2025-02-17 03:48:01

Description du programme

Ce programme est utilisé pour ouvrir IE, lien vers une page Web spécifiée, obtenir des informations d'adresse URL et le nom de la fenêtre dans la barre d'adresse IE, activer la fenêtre récemment ouverte et fermer la fenêtre récemment ouverte. L'interface de programme est illustrée à la figure 1:

Concevoir des pensées

Il existe de nombreuses façons de programmer à IE en utilisant Delphi. être un client DDE. Dans ce programme, appelez la fonction API Shellexcute pour ouvrir IE.

Figure 1

Lorsque vous utilisez le client DDE dans ce programme, les fonctions et procédures suivantes de la classe tddeclientconv sont utilisées:

Fonction SetLink (Service: String; Sujet: String): Boolean; Fonction OpenLink: Boolean;

Parmi eux, le service de paramètres est le nom d'application du serveur DDE, qui est iExplore pour IE; selon les fonctions. La fonction setLink est utilisée pour définir le sujet de session.

Étapes de conception

Créez une nouvelle application et ajoutez deux composants d'édition et 6 composants de bouton au formulaire. Les propriétés de chaque composant sont illustrées à la figure 2:

Figure 2

Ajoutez des références aux unités DDeman, Shellape et ComObj dans les utilisations et définissez une variable globale DDE de type tddeclientconv.

Écrivez le code pertinent

...... var dde: tddeclientconv; = Tddeclientconv.create (self); end; Tobject); begin / / comploter shellexcute pour ouvrir le navigateur par défaut et définir le mode fenêtre sur sw_shownormal shellexcute (handle, nil, phar , Sw_shownormal); fin; IExplore '', 'www_getwindowinfo' ') alors commencez dde.openlink; ne fonctionne pas ''); fin; ') Début // Lien vers la page Web spécifiée DDE.OPENLING; IE Bouton pour activer la procédure de fenêtre IE récemment ouverte TForm1 .Button4Click (Sender: TOBject); 1 ''); dde.closelink; Si dde.setlink ('iExplore' ',' www_exit '') alors commencez dde.openlink; ); fin.