从当前的浏览器取得当前URL

    　　我在看了一篇同名的文章，是用Delphi写的。试了以后效果还行，主要是利用了TDdeClientConv，于是改成CB版的贴出来。蓝色字符为手动添加的。

    Unit1.Cpp
    //---------------------------------------------------------------------------

    #include
    #pragma hdrstop

    #include "Unit1.h"
    //---------------------------------------------------------------------------
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TForm1 *Form1;
    //---------------------------------------------------------------------------
    __fastcall TForm1::TForm1(Tcomponent* Owner)
    : Tform(Owner)
    {
    }
    //---------------------------------------------------------------------------
    String TForm1::Get_URL(AnsiString Servicio)
    {
    TDdeClientConv *Cliente_DDE=new TDdeClientConv(NULL);
    char *temp;
    Cliente_DDE->SetLink(Servicio,"WWW_GetWindowInfo");
    temp=Cliente_DDE->RequestData("0xFFFFFFFF");
    Cliente_DDE->CloseLink();
    delete Cliente_DDE;
    return String(temp);
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::Button1Click(Tobject *Sender)
    {
    ShowMessage(Get_URL("IeXPlore"));
    }
    //---------------------------------------------------------------------------

    Unit1.H
    //---------------------------------------------------------------------------

    #ifndef Unit1H
    #define Unit1H
    //---------------------------------------------------------------------------
    #include

[1]  

【责编:landy】

--------------------next---------------------