怎样获得IE中的网站名称？

Question

CSDN,标榜“中国最大的开发者网络，为开发人员和相关企业提供全面的信息服务和技术服务”，我都快对它失去耐心了,用宽带上网但在这里享受龟速的待遇，能龟速还表示可以打开，很多的时候还打不开，老说别人不结贴子，不看看多少贴子的答案根本就不对，怎么给分。而且有些帖子提前了n次，但还没一个人回答，浪费青春和银子。
相信如果出现另外一个类似的网站，csdn立马就会“车马稀”了

Answer 1

uses DDEman,ShellAPI,ComObj;
var DDE:TDDEClientConv;   //DDE是全局变量......procedure TForm1.Button1Click(Sender: TObject);
begin
  if DDE.SetLink( 'Iexplore', 'WWW_GetWindowInfo' ) then
  //设置会话连接成功
    begin
     DDE.OpenLink;
     Edit1.Text := DDE.RequestData('-1');
    //返回信息并在Edit1中显示
     DDE.CloseLink;
    end
  else
    ShowMessage( 'IE没有运行！' );end;说名:
  就几个控件,你自己看吧!

Answer 2

谢谢AV_15(C.C.Q.) ，但你的方法只可以取的url，而不是名字

Answer 3

如果要名字:var
  p:pchar;
  h:thandle;
begin
  h:=FINdwindow('IEFRAME',nil);
  getmem(p, GetWindowTextLength(h));
  GetWindowText(h,p, GetWindowTextLength(h));
  caption:=strpas(p);
end;

Answer 4

To: del_c_sharp(feifei)  用FindWindow()确实不错,可是如果桌面上有两个IE窗体,那它们的类名不都是 'IEFRAME' ,那返回什么句柄呢?
  这样我试过,似乎有时候会返回句柄0! 好像不妥,有什么其他解决方案吗?

Answer 5

怎么会返回0??如果有两个ie,findwindow将返回栈顶的句柄,也就是激活比较晚的那个ie窗口的句柄