Firefox从Delphi获取和更改URL

时间:2013-04-06 17:09:28

标签: delphi url firefox

有没有办法在Firefox中输入当前网址,然后根据重播来更改该文字。 我可以找到用DDEClient打开的url,但我不知道如何更改它?

1 个答案:

答案 0 :(得分:0)

很多年前,我用这种方式(只是片段):

    ...
    DdeClientConv:=TDdeClientConv.Create(nil);
    try with DdeClientConv do
      begin
        if SetLink(Browser, 'WWW_OpenURL') then
          begin
            PCH := RequestData(Format('"%s",,%d',[AURL,0]));
            if Assigned(PCH) then
              begin
                PD := PDWORDS(PCH);
                if PD^[0]=dword(-3) then
                  ShellExecute(GetDesktopWindow(),'Open',PChar(AURL),nil,nil,SW_SHOWNORMAL);
                StrDispose(PCH);
              end;
          end
        else
          ShellExecute(GetDesktopWindow(),'Open',PChar(AURL),nil,nil,SW_SHOWNORMAL)
      end;
    finally
      DdeClientConv.Free;
    end;
    ...