DDE := TDdeClientConv.Create(nil);
  if DDE.SetLink( 'Iexplore', 'WWW_GetWindowInfo' ) then
  begin
    PathName := DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' );
  end
  else
    ShowMessage( 'IE没有运行!' );
  DDE.Free;

解决方案 »

  1.   

    意思用DDE调用IE打开一个网页时检查IE运行状态信息,
    参看一个用DDE打开网页的例子:
    var
      ddeClientConv: TDdeClientConv;
    begin
      ddeClientConv:=TDdeClientConv.Create;
      with ddeClientConv do
      begin
        ServiceApplication := '这里 Iexplore.exe径名';
        SetLink('iexplore','WWW_Activate');
        RequestData('0xFFFFFFFF');
        SetLink('iexplore','WWW_OpenURL');
        RequestData(urllst[idx] + ',,0xFFFFFFFF,0x3,,,');
        CloseLink;
      end;
    end;
      

  2.   

    你的代码是利用DDE来检测IE是否正在运行啊  ~~
      

  3.   

    那PathName又什么呢?IE打开网页的路径??
      

  4.   

    DdeClientConv1.RequestData('www.microsoft.com');
      

  5.   

    用的时候把ServiceApplication := '这里 Iexplore.exe径名'设置成你的浏览器所在的完整路径
      

  6.   

    PathName是所打开的网页的反馈信息,这些信息参数是由DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' );这里面所带的参数决定!
      

  7.   

    DDE.SetLink( 'Iexplore', 'WWW_GetWindowInfo' );
    这段话什么意思??
    PathName := DDE.RequestData( '0xFFFFFFFF, sURL, sTitle' );
    这段话又是什么意思?