Question

怎样获取firefox正在访问的URL

Answer 1

除了DDE可以下面的方法试试
use oleacc;//http://files.codes-sources.com/fichier.aspx?id=28611&f=oleacc.pas
function ffdoc: THandle;
const
A_szClassName:array[0..6] of PChar=('MozillaUIWindowClass','MozillaWindowClass',
'MozillaWindowClass','MozillaWindowClass','MozillaContentWindowClass',
'MozillaWindowClass','MozillaWindowClass'
);
var
i:Integer;
begin
Result:=0;
for i:=0 to 6 do Result:=FindWindowEx(Result,THandle(nil),A_szClassName[i],nil);
end;
function ffurl:string;
var
acc:IAccessible;
pw:PWChar;
begin
if AccessibleObjectFromWindow(ffdoc,OBJID_CLIENT,IID_IAccessible,Pointer(acc))=0 then
Acc.get_accValue(CHILDID_SELF,pw);
Result:=pw;
end;

initialization
OleInitialize(nil);
finalization
OleUninitialize;