在Delphi中如何判断系统网络连接方式?
uses wininet;   Function ConnectionKind :boolean;   var    flags: dword;   begin    Result := InternetGetConnectedState(@flags, 0);   if Result then    begin    if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then    begin    showmessage('Modem');    end;    if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then    begin    showmessage('LAN');    end;    end;   end;  运行后,我们只要看到返回的消息就可知道系统网络的连接方式了。

解决方案 »

  1.   

    Function ConnectionKind :boolean;
    var
    flags: dword;
    begin
         Result := InternetGetConnectedState(@flags, 0);//nternetGetConnectedState 这里是它的用法
        if Result then
        begin
        if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
        begin
        showmessage('Modem');
       end;
       if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
       begin
       showmessage('LAN');
       end;
       end;
    end;
      

  2.   

    就是InternetGetConnectedState(@flags, 0)的返回值啊,这是为什么呢,是不是我的环境有问题呢?