;                         Notifier : Pointer;
                            var RasConn : THandle) : DWORD; stdcall;

      @RasDial:=GetProcAddress(FRasLibHandle,''RasDialA'');
      拨号后挂起程式
      TRasHangUp =  function(RassCon : THandle) : DWORD; stdcall;
      @RasHangUp:=GetProcAddress(FRasLibHandle,''RasHangUpA'');
    类同}
      @RasEnumEntries:=GetProcAddress(FRasLibHandle,''RasEnumEntriesA'');
      if @RasEnumEntries=nil then Exit;

      RasEntries.Size:=SizeOf(TRasEntryName);
      Size:=SizeOf(RasEntries);
      if RasEnumEntries(nil,nil,@RasEntries,Size,Count)=0 then
      begin
        for i:=1 to Count do
          List.Add(RasEntries[i].EntryName);
      end;
      Result:=True;
    finally
      FreeLibrary(FRasLibHandle);
    end;
except
end;

end;