读ie.txt

用C++Builder编的读取IE浏览器地址的源码程序的主干部分

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "host.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::FormCreate(TObject *Sender)
{
 addRE->Lines->Clear();
 Timer1->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
addRE->Lines->Add(Get_URL("IExplore"));
}
//---------------------------------------------------------------------------


void __fastcall TForm1::startBClick(TObject *Sender)
{
Timer1->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Timer1->Enabled = false;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
addRE->Lines->SaveToFile("e:\\wjfwww\\addlog.log");
}
//---------------------------------------这个例子是每隔多长时间查看当前ＩＥ打开的网页的地址。