저는 아래와 같이 두개의 함수를 만들어서 사용 중 입니다.

//---------------------------------------------------------------------------
bool __fastcall TMainForm::checkInternet()
{
    Application->ProcessMessages() ;
    try {
        MainForm->IdTCPClient1->ReadTimeout=2000;
        MainForm->IdTCPClient1->ConnectTimeout=2000;
        MainForm->IdTCPClient1->Port=80;
        MainForm->IdTCPClient1->Host="borlandforum.com";
        MainForm->IdTCPClient1->Connect();
        Application->ProcessMessages() ;
        MainForm->IdTCPClient1->Disconnect();
        Application->ProcessMessages() ;
    } catch (...) {
        return false ;
    } ;

    return true ;
}
//---------------------------------------------------------------------------
    if ( checkInternet() )   {
          ShowMessage("인터넷에 연결되었습니다.) ;
    } else {          
          ShowMessage("인터넷연결에 문제가 있습니다.) ;
    };




//---------------------------------------------------------------------------
bool __fastcall TMainForm::httpGet(String stWeb, String stFileName, String stTarget, int intSleep)
{
    TMemoryStream *mmrStreamOrder       = new TMemoryStream ;
    try {
        MainForm->IdHTTP1->Get(stWeb+stFileName, mmrStreamOrder) ;
        Sleep(intSleep);
        mmrStreamOrder->SaveToFile( stTarget ) ;
        Sleep(intSleep);
    } catch (...) {
        MainForm->IdHTTP1->Disconnect() ;
        delete mmrStreamOrder ;
        return false;
    } ;
    MainForm->IdHTTP1->Disconnect() ;
    delete mmrStreamOrder ;
    return true;
}

//---------------------------------------------------------------------------
if ( httpGet("http://img.borlandforum.com/images/", "hdr_cbuilder.gif", "c:\\Test\\hdr_cbuilder.gif", 1000 ) ) {
       ShowMessage("웹 이미지를 가져왔습니다.") ;
};




MNMNNMMMMNMMMMMNM 님이 쓰신 글 :
: 어떤 사이트의 창을 띄우지 않고 인터넷 상에서 접속만 하게 하는 명령어가 있나요?
: 있으면 알려주시기 바랍니다.