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

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

编写相关代码 　　...... 　　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.