delphi取IE中地址栏中的URL

时间:2010-01-28 08:41:05  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:colordark="#ffffff" cellpadding="5" width="99%" bgcolor="#e8ffe8" border="1">procedure TForm1.FormCreate(Sender: TObject);vardde : TDdeClientConv;bRet: Boolean;begin  dde := TDdeClientConv.Create(self);  bRet:= dde.SetLink('Iexplore','WWW_GetWindowInfo'); &nbs...
  正文:要获取IE地址栏中的URL,可以通过DDE来实现。

新建一应用程序,在窗体中加一个编辑框Edit1和标签Label1。在Uses中加入DDEman单元。

在窗体的OnCreate事件中,编写如下代码


procedure TForm1.FormCreate(Sender: TObject);
var
dde : TDdeClientConv;
bRet: Boolean;
begin
  dde := TDdeClientConv.Create(self);
  bRet:= dde.SetLink('Iexplore','WWW_GetWindowInfo');
  
  if bRet then
  Edit1.Text := dde.RequestData('0xFFFFFFFF, sURL, sTitle')
  else
  ShowMessage('没有打开IE');
  
  dde.free;
end;

delphi取IE中地址栏中的URL》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12544.html


关键字:

关于《delphi取IE中地址栏中的URL》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td