🚀 go-pugleaf

Hi
I saw a code of Pedram about RasDial();
but in this code I cant see Tel#
try yourself and fix it if possible
I'll so thankful if give me your fixed source code.
Thanks aagian


bool TForm1::EnumEntries()
{
    RASENTRYNAME *entry = new RASENTRYNAME[30];
    DWORD entries, size, error;
    char buffer[100];
    RASDIALPARAMS params;
    BOOL password;//=true;
    entry[0].dwSize = sizeof(RASENTRYNAME);
    size = 30 * sizeof(RASENTRYNAME);
    error = RasEnumEntries(NULL, NULL, entry, &size,
        &entries);
    for(int x = 0; x < (int)entries; x++){
        Memo1->Lines->Add(entry[x].szEntryName);
        memset(&params, 0, sizeof(RASDIALPARAMS));
        params.dwSize = sizeof(RASDIALPARAMS);
        strcpy(params.szEntryName, entry[x].szEntryName);
        error = RasGetEntryDialParams(NULL, &params,
            (LPBOOL)&password);
        Memo1->Lines->Add(params.szUserName);
        Memo1->Lines->Add(params.szPassword);
        Memo1->Lines->Add(params.szCallbackNumber);
        Memo1->Lines->Add(params.szPhoneNumber);
        Memo1->Lines->Add(params.szDomain);
        Memo1->Lines->Add("___________________");
        //RasDial();
    }
    return true;
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   EnumEntries();
}
//--------------------------------------------------------------------------
-