Создание PPPoE подключения

HANDLE hHeap = NULL;
DWORD dwErr = NO_ERROR;
LPRASENTRYDLG lpInfo = NULL;
char * lpszEntry = AnsiToUtf8("наименование_подключения").c_str();
 
hHeap = GetProcessHeap();
if( NULL == hHeap ){
    dwErr = GetLastError();
    ShowMessage("GetProcessHeap() failed: Error = " + AnsiString(dwErr));
}
lpInfo = (LPRASENTRYDLG) HeapAlloc( hHeap, HEAP_ZERO_MEMORY, sizeof(RASENTRYDLG));
if( NULL == lpInfo ){
    dwErr = ERROR_OUTOFMEMORY;
    ShowMessage("HeapAlloc() failed");
}
 
lpInfo->dwSize = sizeof(RASENTRYDLG);
lpInfo->dwFlags |= RASEDFLAG_NewBroadbandEntry; // флаг автоматического создания подключения (только для NT)
bool nRet = RasEntryDlg(NULL, lpszEntry, lpInfo);
 
if (nRet == true) {
    MessageBox(prg,("Создано новое подключение " + Utf8ToAnsi(lpInfo->szEntry)).c_str(),Form1->Caption.c_str(), MB_ICONINFORMATION);
}
else
{
    if (lpInfo->dwError != 0)
        MessageBox(prg,("Ошибка создания подключения: " + AnsiString(lpInfo->dwError)).c_str(),Form1->Caption.c_str(),MB_ICONERROR);
}
if( NULL != lpInfo ){
    HeapFree( hHeap, 0, lpInfo);
}