获取浏览器的当前页面地址

function URLInfo(sBrowserPrgFile,sServiceName:string;NetScape:boolean;var Title:string):pchar;

var

    DdeClientConv:TDDEClientConv;

    StartPtr,EndPtr:pchar;

    browseWinName:string;

{参数说明}

{

    sBrowserPrgFile:浏览器EXE文件的完整路径名

    sServiceName:浏览器的DDE-Service名字,如Netscape是Netscape,IE是'iexplore'

    Title:返回当前网页的Title

    返回值:pchar的字符串

}

 

begin

    result :=#0;

    Title :='';

    if (sBrowserPrgFile='') or (not FileExists(sBrowserPrgFile)) then

        raise EBrowserNotFoundError.Create('浏览器应用程序不存在！');

    ddeClientConv :=TDDEClientConv.Create(nil);

    try

        with ddeClientConv do

        begin

            ServiceApplication :=sBrowserPrgFile;

            SetLink(sServiceName,'WWW_GetWindowInfo');

            StartPtr :=RequesttData('0xFFFFFFFF');

        end;

    finally

        ddeClientConv.Free;

    end;

 

    if StartPen^=#0 then

        exit;

    inc(StartPtr);

    EndPtr :=StartPtr;

    while (EndPtr^<>'''') do

        inc(EndPtr);

    EndPtr^=#0;

    result :=StartPtr;

 

    StartPtr :=EndPtr+3;

    if NetScape then

        inc(StartPtr12);

    EndPtr :=StartPtr;

    if Netscape then

        while (EndPtr^<>']') do

            inc(EndPtr)

    else

        while (EndPtr^<>'''') do

            inc(EndPtr);

    EndPtr^ :=#0;

    Title :=StrPas(StartPtr);      

end;