to doxpix:呵呵,你太谦虚了吧 :) 我也真是蠢,明明lpdwFlags声明是一个指针,我就是
没想到要用@,真是丢人,呵。
我把代码稍微改了一下,但还是不行 :(
procedure mycheck;
var
flag
word;
begin
InternetGetConnectedState( @flag, 0);
case flag of
INTERNET_CONNECTION_LAN:Showmessage('LAN');
INTERNET_CONNECTION_MODEM:Showmessage('Modem');
INTERNET_CONNECTION_PROXY:showmessage('Proxy');
INTERNET_CONNECTION_MODEM_BUSY:showmessage('Moden busy');
else Showmessage('Can not detect!');
end;
end;
运行中发现flag的值为86,所以检测不出来,另外为什么InternetGetConnectedState的
第二个参数为0 呢?我试了一下,如果设为其它值的话,函数都返回False,不知是怎么
回事?
to netmoles:那个控件是通过操作RAS来判断的吗?但是我的机子由于在局域网中,没有
装RAS,能有用吗?我的Mail:godfather_zhao@netease.com,谢谢。