ping Ip;
有一个API实现PING功能,具体的好象是:
HANDLE WINAPI IcmpCreateFile(VOID);
DWORD WINAPI IcmpSendEcho();

解决方案 »

  1.   

    你是服务器吧,那就做个代理服务器的程序,通过你再连接上网,
    那你就完全可以控制客户机是否在上网,是否能上网了。
    在D6有可以使用TNMFAST组件,就像现在的WINGATE。
      

  2.   

    1:在uses中加上WinINet;
    2:function TForm1.CheckOffline: boolean;  //示范代码,Copy过来的
    var
        ConnectState: DWORD;
        StateSize: DWORD;
    begin
        ConnectState:= 0;
        StateSize:= SizeOf(ConnectState);
        result:= false;
        if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
            if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then result:= true;
    end;
      

  3.   

    多谢各位回复!望月狼,InternetQueryOption是API函数吗?
      

  4.   

    用UDP协议啊
    当上限的时候发送一个广播包
    当收到广播包的CLIENT端给服务段也发送一个受到的MESSAGE就可以