正在阅读：用Delphi控制IE窗口用Delphi控制IE窗口

2004-02-14 09:34 出处：中国电脑教育报作者：游新娥责任编辑：zyq

程序说明 　　本程序用于打开IE、链接到指定的网页、获取IE地址栏中的URL地址信息及该窗口名称、激活最近打开的窗口以及关闭最近打开的窗口。程序的界面如图1：　　设计思想 　　使用Delphi编程控制IE的方法有多种，在本程序中使用DDE来控制IE，应注意须先确保IE已经运行，因为此时IE要作为DDE服务器，用户的程序只能作DDE客户端，而DDE客户端无法与一个没有运行的服务器进行数据交换。在本程序中调用API函数ShellExecute来打开IE。　　

　　图1 　　在本程序中使用DDE客户端时用到了类TDdeClientConv的以下几个函数及过程：　　function SetLink(Service:String；Topic:String):Boolean；　　function OpenLink:Boolean；　　function RequestData(const Item:String):Pchar；　　procedure CloseLink；　　其中，参数Service为DDE服务器的ApplicationName，对IE来说就是Iexplore；参数Topic是DDE会话的TopicName，不同功能对应的Topic不同；参数Item为会话的ItemName，也因功能不同而不同。函数SetLink用来设置会话主题，若成功返回True，否则返回False；函数RequestData用来返回会话的数据。　　设计步骤 　　新建一个应用程序，为窗体加入两个Edit组件、6个Button组件。各组件属性如图2：　　

　　图2 　　在uses中加入对DDEman,ShellAPE和ComObj单元的引用，并定义一个TDdeClientConv类型的全局变量DDE。