如何获得外部程序的返回参数(100分)

在delphi（4.0-5.0）中如何获得拨号网络的返回参数（连通/失败）

g

?

非要通过拨号网络知道是否连通吗？
应该有其他办法的，
比如查拨号窗体上的Text是不是变成了“正在登陆”

下面函数测试是否连接上internet
Function HasInternetconnect:boolean;
var REG:TRegistry;
dat:array[0..3] of char;
下面代码检查是否连通Internet,from cakk
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('System/CurrentControlSet/Services/RemoteAccess',false);
reg.ReadBinaryData('Remote Connection',dat,4);
reg.free;
result:=(dat[0]=#1);
end;

谢谢各位，不知各位该怎么称呼？以上问题是在编写远程访问程序时遇到的问题，
不上internet网，其登陆方式为通过modem连接NT服务器，都怪小弟没有说清楚，
请各位不要见外？有什么好的办法敬请尽快告诉小弟，小弟在这里先谢过？

WNetAddConnection3
VB声明
Declare Function WNetAddConnection3&
Lib "mpr.dll"
Alias "WNetAddConnection3A" (ByVal hwnd As Long,
lpUserName As String, ByVal dwFlags As Long)
说明
创建同一个网络资源的连接。这个函数与WNetAddConnection2类似，
只是它允许我们为这个函数显示的对话框指定一个物主窗口
返回值
Long， 零表示成功。
参数表
参数 类型及说明
hwnd Long， 指定一个窗口句柄，用作本函数创建的
对话框的父窗口
lpNetResource NETRESOURCE， 在这个结构中设置了下述字段，
对要连接的网络资源进行了定义：dwType， lpLocalName （可为 vbNullString），
lpRemoteName， lpProvider
（设为 vbNullString 表示用默认提供者）。
该结构的其他所有变量都会被忽略
lpPassword String，可选的一个密码。如为vbNullString，
表示采用当前用户的默认密码。如为一个
空字串，则不用任何密码
lpUserName String，用于连接的用户名。如为vbNullString，
表示使用当前用户
dwFlags Long，设为零；或指定常数CONNECT_UPDATE_PROFILE，
表示创建永久性连接
返回值为0时，表示连通/ 否则为失败

接受答案了.