使用RasSetEntryProperties吧<br><br>var<br> entry: TRasEntry;<br>begin<br> FillChar(entry, SizeOf(TRasEntry), 0);<br> entry.dwSize := SizeOf(TRasEntry);<br> set_entry_params(entry);<br> if RasSetEntryProperties(nil, PChar('我的连接'),<br> @entry, SizeOf(TRasEntry), nil, 0) = 0 then<br> begin<br> ShowMessage('拨号网络连接创建成功!');<br> end<br> else<br> ShowMessage('拨号网络连接创建失败!')<br>end;