Internet Connection awareness

[cyberant]

Is there a way that I can be aware of an internet connection through delphi code?

 

[KempCGDR]

Check the FAQs, it's in there

 

[cyberant]

Sorry can't seem to see anything in the FAQ. Checked the references as well.

 

[KempCGDR]

My bad, though I could swear there used to be a FAQ on it.

http://www.tek-tips.com/viewthread.cfm?SQID=707272&SPID=102&newpid=102&page=1

http://www.tek-tips.com/viewthread.cfm?SQID=364808&SPID=102&newpid=102&page=1

I don't know which used, I think it something mashed together out of those.

 

[KempCGDR]

Here's the code I used:

function ConnectionType(var ConType:String): Boolean;
var
flags: DWORD;
begin
  Result := InternetGetConnectedState(@flags, 0);
  if Result then
  begin
    if (flags and INTERNET_CONNECTION_MODEM) =    
        INTERNET_CONNECTION_MODEM
        then ConType := 'Modem';
    if (flags and INTERNET_CONNECTION_LAN) = 
        INTERNET_CONNECTION_LAN 
        then ConType := 'LAN';
    if (flags and INTERNET_CONNECTION_PROXY) =  
        INTERNET_CONNECTION_PROXY
        then ConType := 'Proxy';
    if (flags and INTERNET_CONNECTION_MODEM_BUSY) =
        INTERNET_CONNECTION_MODEM_BUSY then
        ConType := 'Modem Busy';
  end;
end;

It returns a boolean saying whether it's connected and the ConType parameter which gives you the type