Процедура дозвона модема

//Функция обработки сообщений из порта
VOID WINAPI RasCallback(HRASCONN hrasconn, UINT unMsg,
  RASCONNSTATE rascs, DWORD dwError, DWORD dwExtendedError)
{
  String S = "";
  if (dwError) {
    // Ашибка.
    char buff[256];
    fRasGetErrorString(dwError, buff, sizeof(buff));
    fmMainFtp->LogEvents(buff);
    String MsgError = "При подключении произошла следующая ошибка:\n"+String(buff);
    if(Application->MessageBoxA(MsgError.c_str(),"Ошибка",MB_ICONQUESTION+MB_OKCANCEL)==IDOK){
      fRasHangUp(hrasconn);
     fmMainFtp->ttTimer->Enabled = true;
     return;
    }
    else fmMainFtp->Close();
    return;
  }
  switch (rascs) {
    // Отображение текущего статуса
    case RASCS_PortOpened :
      S = "Открытие порта..."; break;
    case RASCS_DeviceConnected :
      S = "Соединение..."; break;
    case RASCS_Authenticate :
      S = "Вход в сеть..."; break;
    case RASCS_Authenticated :
      S = "Проверка пользователя и пароля"; break;
    case RASCS_Connected : {
      S = "Вход в сеть";
     fmMainFtp->ttTimerClick->Enabled = true;
      break;
    }
    case RASCS_Disconnected :
      S = "Disconnected"; break;
  }
   if (S != "")
    fmMainFtp->LogEvents(S);
}

void __fastcall TfmMainFtp::FormCreate(TObject *Sender)
{
First = 0;
MutexFirst = CreateMutex(NULL,true,"MyMutex");
int Res = GetLastError();
if(Res==ERROR_ALREADY_EXISTS){
First = 1;
 Close();
}
  hRas = 0;
  hRasInstance = LoadLibrary("RASAPI32.DLL");
  if (!hRasInstance) {
    LogEvents("Unable to load RAS DLL.");
    Close();
    return;
  }
  fRasGetErrorString = (pRasGetErrorString)
    GetProcAddress(hRasInstance, "RasGetErrorStringA");
  fRasDial = (pRasDial)
    GetProcAddress(hRasInstance, "RasDialA");
  fRasEnumConnections = (pRasEnumConnections)
    GetProcAddress(hRasInstance, "RasEnumConnectionsA");
  fRasGetConnectStatus = (pRasGetConnectStatus)
    GetProcAddress(hRasInstance, "RasGetConnectStatusA");
  fRasEnumEntries = (pRasEnumEntries)
    GetProcAddress(hRasInstance, "RasEnumEntriesA");
   fRasGetEntryDialParams  = (pRasGetEntryDialParams)GetProcAddress(hRasInstance, "RasGetEntryDialParamsA");
  fRasHangUp = (pRasHangUp)
    GetProcAddress(hRasInstance, "RasHangUpA");
  if (!fRasGetErrorString || !fRasDial || !fRasEnumConnections ||
      !fRasGetConnectStatus || !fRasEnumEntries || !fRasHangUp) {
    LogEvents("Ошибка загрузки функций дозвона");
     Close();
     return;
  }
....

}
void TfmMainFtp::CheckRnaApp()
{
  if (Win32Platform == VER_PLATFORM_WIN32_NT)
    // фор Win9x
    return;
  HWND hWnd = FindWindow("RnaEngClass", 0);
  if (hWnd) {
    //Если в этот момент окно дозвона существует - прибиваем
    PostMessage(hWnd, WM_CLOSE, 0, 0);
    // И ждем на всякий случай.
    Sleep(5000);
  }
}

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

void __fastcall TfmMainFtp::acConnectWithInetExecute(TObject *Sender)
{
ttTimer->Enabled = false;
 hRas = CheckForConnections();
 String PBEntry;
  if (hRas) {
   LogEvents("Используем существующее соединение...");
    ttTimerClick->Enabled = true;
    AlreadyConnected = true;
    // Не надо вызывать  - соедиенение с Инетом уже есть
    return;
  }
  else {
    // Получаем соединение по умолчанию
  PBEntry = GetPhoneBookEntry();
    if (PBEntry == "") {
      LogEvents("Нет соединений");
      Close();
    }
  }

  LogEvents("Соединение отсутствует. Дозваниваемся...");
   CheckRnaApp();
  // Устанавливаем соединение
  RASDIALPARAMS params;
  params.dwSize = sizeof(params);
  strcpy(params.szEntryName, PBEntry.c_str());

   BOOL  PwdDetected = FALSE;
   DWORD Result = fRasGetEntryDialParams(NULL,&params,&PwdDetected);

  DWORD res = fRasDial(0, 0, &params, 1, RasCallback, &hRas);
  if (res) {
    char buff[256];
    fRasGetErrorString(res, buff, sizeof(buff));
    LogEvents(buff);
    String MsgError = "При подключении произошла следующая ошибка:\n"+String(buff);
    if(Application->MessageBoxA(MsgError.c_str(),"Ошибка",MB_ICONQUESTION+MB_OKCANCEL)==IDOK){
    fRasHangUp(hRas);
     ttTimer->Enabled = true;
     return;
    }
    else Close();
  }

}

HRASCONN TfmMainFtp::CheckForConnections()
{
if(GetInternetConnection())return (void*)(1);
  char buff[256];
  RASCONN rc;
  rc.dwSize = sizeof(RASCONN);
  DWORD numConns;
  DWORD size = rc.dwSize;
  // Enumerate the connections.
  DWORD res = fRasEnumConnections(&rc, &size, &numConns);
  if (!res && numConns == 0)
    // No connections, return 0.
    return 0;
  if (res) {
    // Error. Report it.
    fRasGetErrorString(res, buff, sizeof(buff));
    LogEvents(buff);
    String MsgError = "При подключении произошла следующая ошибка:\n"+String(buff);
    if(Application->MessageBoxA(MsgError.c_str(),"Ошибка",MB_ICONQUESTION+MB_OKCANCEL)==IDOK){
    fRasHangUp(rc.hrasconn);
     ttTimer->Enabled = true;
     return 0;
    }
    else Close();
    return 0;
  } else {
    // Получсаем статус
    RASCONNSTATUS status;
    status.dwSize = sizeof(status);
    res = fRasGetConnectStatus(rc.hrasconn, &status);
    if (res) {
      // Error. Report it.
      fRasGetErrorString(res, buff, sizeof(buff));
      LogEvents(buff);
      String MsgError = "При подключении произошла следующая ошибка:\n"+String(buff);
    if(Application->MessageBoxA(MsgError.c_str(),"Ошибка",MB_ICONQUESTION+MB_OKCANCEL)==IDOK){
    fRasHangUp(rc.hrasconn);
     ttTimer->Enabled = true;
     return 0;
    }
    else Close();
      return 0;
    } else {
      // Ищем соединение и опрашиваем ее
      if (status.rasconnstate == RASCS_Connected) {
        LogEvents("Установлено соединение:");
        LogEvents("Тип устройства:\t" +
          String(rc.szDeviceType));
        LogEvents("Название устройства: " +
          String(rc.szDeviceName));
        LogEvents("Соединение: " +
          String(rc.szEntryName));
        return rc.hrasconn;
      } else {
        //Если соединение запущено но имеет статус дисконнект
        LogEvents("Connection Error");
        String MsgError = "При подключении произошла следующая ошибка:\n"+String(buff);
         if(Application->MessageBoxA(MsgError.c_str(),"Ошибка",MB_ICONQUESTION+MB_OKCANCEL)==IDOK){
         fRasHangUp(rc.hrasconn);
         ttTimer->Enabled = true;
         return 0;
        }
        else Close();
        return 0;
      }
    }
  }
  return 0;
}
String TfmMainFtp::GetPhoneBookEntry()
{

 LogEvents("Инициализация соединения");
 String S;
 Reg = new TRegistry;
 Reg->RootKey = HKEY_LOCAL_MACHINE;
 Reg->OpenKeyReadOnly("\\SOFTWARE\\Microsoft\\RAS AutoDial\\Default");

 if(Reg->ValueExists("DefaultInternet")){
  S = Reg->ReadString("DefaultInternet");
  return S;
  }
 else{
  RASENTRYNAME* entries = new RASENTRYNAME;
  entries->dwSize = sizeof(RASENTRYNAME);
  DWORD numEntries;
  DWORD size = entries->dwSize;
  DWORD res = fRasEnumEntries(0, 0, entries, &size, &numEntries);
  if (numEntries == 1) {
    String entryName = entries->szEntryName;
    delete[] entries;
    return entryName;
  }

  if (res == ERROR_BUFFER_TOO_SMALL) {
     delete[] entries;
    entries = new RASENTRYNAME[numEntries];
    entries[0].dwSize = sizeof(RASENTRYNAME);
    res = fRasEnumEntries(0, 0, entries, &size, &numEntries);
    if (res) {
      char buff[256];
      fRasGetErrorString(res, buff, sizeof(buff));
      LogEvents(buff);
    }
  }
  delete[] entries;
  delete Reg;
  return S;
 }
}