取拨号网络列表问题

[sxzqlzx]

我在取拨号网络列表时提示某一段内存只读
代码如下:
LPRASENTRYNAME RasEntry;
DWORD BufSize;
DWORD dwReturn;
DWORD Entries;
DWORD i;
AnsiString sStatus;
ListBox1->Clear() ;
RasEntry = (LPRASENTRYNAME)GlobalAlloc(GPTR, sizeof(RASENTRYNAME));
RasEntry->dwSize = sizeof(RASENTRYNAME);
BufSize = sizeof(RASENTRYNAME) * 256;

if ((dwReturn = RasEnumEntries(NULL, NULL, RasEntry, &BufSize, &Entries))
== 603) //Buffer too small
{
RasEntry = (LPRASENTRYNAME)GlobalAlloc(GPTR, BufSize);
RasEntry->dwSize = sizeof(RASENTRYNAME);
BufSize = sizeof(RASENTRYNAME) * 256;
}
dwReturn = RasEnumEntries(NULL, NULL, RasEntry, &BufSize, &Entries);

if (dwReturn == ERROR_SUCCESS)
{
for (i = 0; i < Entries; i ++)
{
ListBox1->Items->Add(RasEntry->szEntryName);
RasEntry++;
}
}
else
{

MessageDlg("RasEnumEntries Error", mtError, TMsgDlgButtons() << mbOK, 0) ;
}
请各位指点:

[runnerrunning]

up.....

[runnerrunning]

555555555

[ljianq]

下面是我以前写的拨号类中的一个方法，用的很好，供参靠：
void __fastcall TRASDialer::ReadPhoneBookEntry()
{
try {
FPhoneEntries = new RASENTRYNAME[1];
FPhoneEntries[0].dwSize = sizeof(RASENTRYNAME);
DWORD numEntries;
DWORD size = FPhoneEntries[0].dwSize;
DWORD res = RasEnumEntries(0, 0, FPhoneEntries, &size, &numEntries);
if (res == ERROR_BUFFER_TOO_SMALL) {
delete []FPhoneEntries;
FPhoneEntries = new RASENTRYNAME[numEntries];
FPhoneEntries[0].dwSize = sizeof(RASENTRYNAME);
res = RasEnumEntries(0, 0, FPhoneEntries, &size, &numEntries);
if (res) {
char buff[256];
RasGetErrorString(res, buff, sizeof(buff));
throw Exception(buff);
}
}
else if (numEntries == 0) throw Exception("没有拨号连接，请先建立...");
FConnectionCount=numEntries;
}
catch(...) { ; }
}