Как програмно создать DialUp connection с его шарингом?

DWORD dwRezult;
   DWORD dwRASSize = RAS_STRUCT_SIZE; // to make correct working on Win XP and 2000
   RASENTRY rasEntry;
   RASDIALPARAMS rasParams;
   char ch[255] = {0};

   AddToMemo("START CREATING ENTRY");
   memset(&rasEntry, 0, sizeof(RASENTRY));
   rasEntry.dwSize = dwRASSize;
   rasEntry.dwRedialCount=99;
   rasEntry.dwRedialPause=3;
   rasEntry.dwEncryptionType=ET_Optional;
   rasEntry.dwFramingProtocol=RASFP_Ppp;
   rasEntry.dwfNetProtocols = RASNP_Ip | RASNP_Ipx;
   strcpy(rasEntry.szLocalPhoneNumber, ip.c_str());
   rasEntry.dwfOptions = 1034748696UL;
   rasEntry.dwDialMode = 1UL;
   rasEntry.dwDialExtraPercent = 75UL;
   rasEntry.dwDialExtraSampleSeconds = 120UL;
   rasEntry.dwHangUpExtraPercent = 10UL;
   rasEntry.dwHangUpExtraSampleSeconds = 120UL;
   rasEntry.dwIdleDisconnectSeconds = 1200UL;
   rasEntry.dwfOptions2 = 879UL;
   strcpy(rasEntry.szDeviceName, GetDevice().c_str());
   rasEntry.dwFramingProtocol = RASFP_Ppp;
   rasEntry.dwType=RASET_Phone;
   strcpy(rasEntry.szDeviceType, RASDT_Modem);
   StrCopy(ch, entryName.c_str());
   Application->ProcessMessages();
   dwRezult = RasValidateEntryName( NULL, ch);
   Application->ProcessMessages();
   if(dwRezult != 0)
      return false;

   Application->ProcessMessages();
   dwRezult = RasSetEntryProperties( NULL, ch, &rasEntry, dwRASSize, NULL, 0);
   Application->ProcessMessages();
   if(dwRezult != 0)
      return false;

   memset(&rasParams, 0, sizeof(RASDIALPARAMS));

   rasParams.dwSize = sizeof(RASDIALPARAMS);
   StrCopy(rasParams.szEntryName,   entryName.c_str());
   StrCopy(rasParams.szUserName,    username.c_str());
   StrCopy(rasParams.szPassword,    password.c_str());
   StrCopy(rasParams.szPhoneNumber, ip.c_str());

   Application->ProcessMessages();
   dwRezult = RasSetEntryDialParams( NULL, &rasParams, !bStorePwd);
   Application->ProcessMessages();  
   if(dwRezult != 0)
      return false;

   return true;