我不过是想在delphi里实现读写IE地址栏里的字符串,难道 真的有那么难吗???
愁死我了。100分悬赏!有高手快来。最好说的明白点!!附原代码》

解决方案 »

  1.   

    转贴I have a code to get only the first/active IE window url address (from delphi3000): 
    function Get_URL(Servicio: string): String;varCliente_DDE: TDDEClientConv;temp:PChar;beginResult := '';Cliente_DDE:= TDDEClientConv.Create( nil );with Cliente_DDE dobeginSetLink( Servicio,'WWW_GetWindowInfo');temp := RequestData('0xFFFFFFFF');Result := StrPas(temp);StrDispose(temp);CloseLink;end;Cliente_DDE.Free;end;procedure TForm1.Button1Click(Sender: TObject);beginEdit1.Text := Get_URL('IExplore');end;-----------------------------------------------------I tried to "play" with the code a bit...it seems to work if i change temp := RequestData('0xFFFFFFFF') to:temp := RequestData('1'); //1 windowortemp := RequestData('2'); //2 windowortemp := RequestData('3'); //3 windowand so on... until temp returns '' (empty string)Anyway, try it.
      

  2.   

    大哥,TDDEClientConv 在哪个单元里呀!!提示没有定义的标志符。
      

  3.   

    uses DDE;你怎么不看帮助?
      

  4.   

    啊,错了!!!sorry 是  uses DdeMan!!