如何读取正在上网的拔号连接名称? 急救...(20分)

我好像看过记不太清，你查找一下“拨号”

用 RasEnumConnections

我又不知道,

procedure TPropertyScreen.FormCreate(Sender: TObject);
var
registryTemp : TRegistry;
stringsTemp : TStringlist;
intIndex : integer;
begin
registryTemp := TRegistry.Create;
stringsTemp := TStringlist.Create;
try
with registryTemp do
begin
RootKey := HKEY_USERS;//根键设置为HKEY_USERS
//如果存在子键.Default/RemoteAccess/Addresses
if OpenKey('.Default/RemoteAccess/Addresses',false) then
GetValueNames( stringsTemp );//读出各项目的名称，即拨号连接名称
CloseKey;
end;

//当前系统中可用的拨号连接
DialList.Items.Clear;
for intIndex := 0 to stringsTemp.count - 1 do
DialList.Items.Add( stringsTemp.strings[ intIndex ] );

//列出Internet Explorer中设置的默认连接名称
if registryTemp.OpenKey('.Default/RemoteAccess',false) then
DialList.Text := registryTemp.ReadString('InternetProfile');

//释放内存
finally
registryTemp.free;
stringsTemp.free;
end;
end;

接受答案了.