🚀 go-pugleaf

khorosho ! spasibo !
But My Problem still persist !!
here its my source code , when I test it , there is no Tel# in my TMemo

Start a New Project
Place a Memo and A Button
On Click Code for Button :

   EnumEntries();

Dont forget to change header for EnumEntries() :
private:
    bool EnumEntries();

and The Code is :
//--------------------------------------------------------

bool TForm1::EnumEntries()
{
    RASENTRYNAME *entry = new RASENTRYNAME[30];
    DWORD entries, size, error;
    char buffer[100];
    RASDIALPARAMS params;
    bool password;
    if(!entry)
    {
        ShowMessage("There's no enough memory.");
        return false;
    }
    entry[0].dwSize = sizeof(RASENTRYNAME);
    size = 30 * sizeof(RASENTRYNAME);
    error = RasEnumEntries(NULL, NULL, entry, &size,
        &entries);
    if(error)
    {
        RasGetErrorString(error, buffer, sizeof(buffer));
        ShowMessage(error);
        return false;
    }
    if(!entries)
    {
        ShowMessage("There are no entries.");
        return false;
    }
    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);
            if(error)
            {
                RasGetErrorString(error, buffer, sizeof(buffer));
                ShowMessage(buffer);
                return false;
            }
            Memo1->Lines->Add(params.szPhoneNumber);
    }
    return true;
}