在线等！等！等！等！等！等！等！等！等！等！等！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！急！

参考下面的试试看
-------------------------------------
不用RasAPI函数，直接在注册表中查询
　　　　在注册表的HKEY_USERS\.Default\RemoteAccess\Addresses下，列出了已经在拨号网络中建立
　　了的拨号连接的名称及其属性设置，其中各项目的名称即为可用的拨号连接的名称；各项目的值即
　　为各拨号连接的属性设置，不过是二进制串，笔者还看不懂．由此可见，我们只要读出各项目的名
　　称即可获取当前系统中可用的拨号连接名称．
var
registryTemp : TRegistry;
stringsTemp : TStringlist;
begin
registryTemp := TRegistry.Create;
stringsTemp := TStringlist.Create;
with registryTemp do
begin
RootKey := HKEY_USERS;//根键设置为HKEY_USERS
//如果存在子键.Default\RemoteAccess\Addresses
if OpenKey('.Default\RemoteAccess\Addresses',false) then
GetValueNames( stringsTemp );//读出各项目的名称，即拨号连接名称
end;
combobox1.Items.assign( stringsTemp );//显示，供选择
end;