private:	// ユーザー宣言
    //ダイヤルアップ接続の状態：true(接続中), false(未接続)
    bool connected;
    TDateTime t, starttime, nowtime;

    bool __fastcall CheckDialup();//ダイヤルアップ接続を監視 

//----------------------------------------------------------
//
//　機能　：ダイヤルアップ接続の状態をチェックする
//  戻り値：接続していればtrue、未接続ならfalseを返す
//
//----------------------------------------------------------
bool __fastcall TForm1::CheckDialup()
{
    RASCONN rasconn;  //状態を調べるRAS接続のハンドル
    DWORD buf;        //バイト単位でのバッファサイズ
    DWORD connections;//バッファに書き込まれる接続の数

    //RasEnumConnectionsを呼びだす前にdwSizeの設定が必要
    rasconn.dwSize = sizeof(RASCONN);
    //RASCONN構造体のバイト数
    buf = sizeof(RASCONN);

    //すべてのアクティブなリモートアクセス接続のリスト
    if(RasEnumConnections(&rasconn, &buf, &connections) == 0){
        //モデムがダイヤル中あるいは接続されている場合
        //（接続数が1以上）
        if(connections > 0){
            //接続していれば処理しない
            if(connected) return true; 

            //接続フラグをチェック
            if(!connected){
                //接続時の時刻を保持
                starttime = t.CurrentTime();
                Application->ProcessMessages();
                connected = true;//フラグ変更
                return true;
            }
        }else
            connected = false;//ダイヤルアップ未接続
    }

    return false;
}