使用Delphi轻松控制IE窗口_Deiphi网络编程_Deiphi_编程开发

使用Delphi轻松控制IE窗口

日期：2008-10-20 22:12:12　　　　来源：

　·用DELPHI通过写注册表来实现建立IIS的虚拟目录！　·控制共享Internet连接
　·KPT滤镜详解(五)：Gradient Lab-6　·Delphi无标题窗口的移动

使用Delphi轻松控制IE窗口。
　　本程序用于打开IE、链接到指定的网页、获取IE地址栏中的URL地址信息及该窗口名称、激活
最近打开的窗口以及关闭最近打开的窗口。程序的界面：

设计思想

使用Delphi编程控制IE的方法有多种，在本程序中使用DDE来控制IE，应注意须先确保IE已经
运行，因为此时IE要作为DDE服务器，用户的程序只能作DDE客户端，而DDE客户端无法与一个
没有运行的服务器进行数据交换。在本程序中调用API函数ShellExecute来打开IE。

在本程序中使用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?
荄DE会话的TopicName，不同功能对应的Topic不同；参数Item为会话的ItemName，也因功能不
同而不同。函数SetLink用来设置会话主题，若成功返回True，否则返回False；函?
齊equestData用来返回会话的数据。

设计步骤

新建一个应用程序，为窗体加入两个Edit组件、6个Button组件。各组件属性如图2：

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

编写相关代码

　......
　　var DDE:TDdeClientConv;
　　//DDE为客户端全局变量
　　implementation
　　{$R *.DFM}
　　//创建窗体时创建DDE客户端
　　procedure TForm1.FormCreate(Sender: TObject);
　　begin
　　DDE:=TDdeClientConv.Create(Self);
　　end;
　　//单击Open IE启动默认浏览器并自动打开指定的网页(若IE不是默认浏览器，需手工打
开)
　　procedure TForm1.Button3Click(Sender: TObject);
　　begin
　　//调用ShellExecute打开默认浏览器，将窗口模式设为SW_SHOWNORMAL
　　ShellExecute(Handle,nil,PChar('http://www.chinaren.com/index.shtml'),
nil,nil,SW_SHOWNORMAL);
　　end;
　　//单击Get URL按钮获取IE地址栏URL以及对应窗口标题
　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　//设置会话连接成功
　　if DDE.SetLink('Iexplore', 'WWW_GetWindowInfo') then
　　begin
　　DDE.OpenLink;
　　//返回信息并在组件Edit1中显示
　　Edit1.Text:=DDE.QequestData('-1');
　　DDE.CloseLink;
　　end
　　else
　　ShowMessage('IE没在运行');
　　end;
　　//单击Open URL按钮链接到指定网页
　　procedure TForm1.Button2Click(Sender: TObject);
　　begin
　　if DDE.SetLink('Iexplore', 'WWW_
　　OpenURL') then
　　begin
　　//链接到指定Web页
　　DDE.OpenLink;
　　DDE.RequestData(Edit2.Text);
　　DDE.CloseLink;
　　end
　　else
　　ShowMessage('IE没在运行');
　　end;
　　//单击Activate IE按钮激活最近打开的IE窗口
　　procedure TForm1.Button4Click(Sender: TObject);
　　begin
　　if DDE.SetLink('Iexplore', 'WWW_Activate') then
　　begin
　　DDE.OpenLink;
　　DDE.RequestData('-1');
　　DDE.CloseLink;
　　end
　　else
　　ShowMessage('IE没有运行');
　　end;
　　//单击Close IE按钮关闭最近打开的IE窗口
　　procedure TForm1.Button5Click(Sender: TObject);
　　begin
　　if DDE.SetLink('Iexplore', 'WWW_Exit') then
　　begin
　　DDE.OpenLink;
　　DDE.RequestData('WWW_Exit');
　　DDE.CloseLink;
　　end
　　else
　　ShowMessage('IE没有运行');
　　end. 　[1]

使用Delphi轻松控制IE窗口

Delphi中动画设计(2)

设置共享Internet连接控制的权限

KPT滤镜详解(五)：Gradient Lab-5

IE弹出窗口阻止程序的常见问题

◎→	本类最新
远程程序运行状态的简单监控在IE上增添一个按钮在Delphi中实现ASP编程在Delphi程序中应用IE浏览器控件在DELPHI程序中拨号上网用Delphi编写ASP的ActiveX服务器用Delphi编写CGI程序返回图象

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
九赢广告联盟的优点和缺点通过IP反查域名用VB的Printer对象编写打印程序用DELPHI通过写注册表来实现建立网络积件再思考。（其实也只是胡 Delphi中动画设计(2) Delphi中动画设计