怎样可以检测本台电脑是否已拨号上网？又怎样可以知道拨号上网后的IP？

Question

同上。

Answer 1

检测本台电脑是否已拨号上网
InternetCheckConnection函数
要uses WinInet
比如
if InternetCheckConnection('http://www.sohu.com/', 1, 0) then  edit1.text:= 'Connected'  else  edit1.text:= 'Disconnected';
得到拨号的ip
比较烦
调用
RasEnumConnections
RasGetProjectionInfo
函数
这两个函数在RasApi32.DLL和RasApi16.DLL中(windows系统目录)
怎么调用，自己去搜索以前的帖子吧

Answer 2

检测计算机是否上网function InternetConnected: Boolean;
const
  // local system uses a modem to connect to the Internet.
  INTERNET_CONNECTION_MODEM      = 1;
  // local system uses a local area network to connect to the Internet.
  INTERNET_CONNECTION_LAN        = 2;
  // local system uses a proxy server to connect to the Internet.
  INTERNET_CONNECTION_PROXY      = 4;
  // local system's modem is busy with a non-Internet connection.
  INTERNET_CONNECTION_MODEM_BUSY = 8;
var
  dwConnectionTypes : DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM+ INTERNET_CONNECTION_LAN
  + INTERNET_CONNECTION_PROXY; 
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;end.

Answer 3

lou shang shang dui !