获取本机上网方式的配置信息(50分)

想在Delphi中获取本机的配置是局域网方式还是拨号方式连接，如何实现？

先设成局域网，注册表导出，再设成拨号方式，导出注册表，用fc命令比较。
这样就知道键值。在DELPHI中调用tregistry就成了。
别忘了给分！

weihang, 能具体点吗？
注册表导出，怎么导，fc命令是文件比较吗？ 在windows 下怎么用

只有你回答，当然会给你全部，别急别急，心急吃不到热豆腐

注册表导出,运行regedit.exe,菜单 注册表-导出注册表;
fc是dos下的命令. fc/l file1 file2(如果要输出到文件的话加 >outfile);

如果是拨号上网的话,在注册表hkey_current_user/remoteaccess下存放拨号信息.
如果是局域网方式,则为空.

INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY
三个参数分别用就知道了

uses WinInet;
function GetOnlineStatus : Boolean;
var ConTypes : Integer;
begin
ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if (InternetGetConnectedState(@ConTypes, 0) = False)
then Result := False
else Result := True;
end;

多人接受答案了。