ارتباط به اینترنت

[The.Ghost]

سلام:
چه شکلی می توان فهمین که کامپیوتر به اینترنت متصل شده است.

[lord_viper]

کد:

uses Wininet ;

function isconnected : Boolean ;
var
  connectiontype: DWORD ;
begin
  connectiontype:=INTERNET_CONNECTION_MODEM // type of connection
                  +INTERNET_CONNECTION_LAN
                  +INTERNET_CONNECTION_PROXY ;
  Result:=InternetGetConnectedState(@connectiontype,0);//are we connect?
end;